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: 3637 $ $Date: 2013-01-07 21:22:12 +0400 (Mon, 07 Jan 2013) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.CMOF; 47with AMF.Internals.Tables.CMOF_Attributes; 48with AMF.Internals.Tables.UMLDI_String_Data_00; 49 50package body AMF.Internals.Tables.UMLDI_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 Initialize_16; 74 Initialize_17; 75 Initialize_18; 76 Initialize_19; 77 Initialize_20; 78 Initialize_21; 79 Initialize_22; 80 Initialize_23; 81 Initialize_24; 82 Initialize_25; 83 Initialize_26; 84 Initialize_27; 85 Initialize_28; 86 Initialize_29; 87 Initialize_30; 88 Initialize_31; 89 Initialize_32; 90 Initialize_33; 91 Initialize_34; 92 Initialize_35; 93 Initialize_36; 94 Initialize_37; 95 Initialize_38; 96 Initialize_39; 97 Initialize_40; 98 Initialize_41; 99 Initialize_42; 100 Initialize_43; 101 Initialize_44; 102 Initialize_45; 103 Initialize_46; 104 Initialize_47; 105 Initialize_48; 106 Initialize_49; 107 Initialize_50; 108 Initialize_51; 109 Initialize_52; 110 Initialize_53; 111 Initialize_54; 112 Initialize_55; 113 Initialize_56; 114 Initialize_57; 115 Initialize_58; 116 Initialize_59; 117 Initialize_60; 118 Initialize_61; 119 Initialize_62; 120 Initialize_63; 121 Initialize_64; 122 Initialize_65; 123 Initialize_66; 124 Initialize_67; 125 Initialize_68; 126 Initialize_69; 127 Initialize_70; 128 Initialize_71; 129 Initialize_72; 130 Initialize_73; 131 Initialize_74; 132 Initialize_75; 133 Initialize_76; 134 Initialize_77; 135 Initialize_78; 136 Initialize_79; 137 Initialize_80; 138 Initialize_81; 139 Initialize_82; 140 Initialize_83; 141 Initialize_84; 142 Initialize_85; 143 Initialize_86; 144 Initialize_87; 145 Initialize_88; 146 Initialize_89; 147 Initialize_90; 148 Initialize_91; 149 Initialize_92; 150 Initialize_93; 151 Initialize_94; 152 Initialize_95; 153 Initialize_96; 154 Initialize_97; 155 Initialize_98; 156 Initialize_99; 157 Initialize_100; 158 Initialize_101; 159 Initialize_102; 160 Initialize_103; 161 Initialize_104; 162 Initialize_105; 163 Initialize_106; 164 Initialize_107; 165 Initialize_108; 166 Initialize_109; 167 Initialize_110; 168 Initialize_111; 169 Initialize_112; 170 Initialize_113; 171 Initialize_114; 172 Initialize_115; 173 Initialize_116; 174 Initialize_117; 175 Initialize_118; 176 Initialize_119; 177 Initialize_120; 178 Initialize_121; 179 Initialize_122; 180 Initialize_123; 181 Initialize_124; 182 Initialize_125; 183 Initialize_126; 184 Initialize_127; 185 Initialize_128; 186 Initialize_129; 187 Initialize_130; 188 Initialize_131; 189 Initialize_132; 190 Initialize_133; 191 Initialize_134; 192 Initialize_135; 193 Initialize_136; 194 Initialize_137; 195 Initialize_138; 196 Initialize_139; 197 Initialize_140; 198 Initialize_141; 199 Initialize_142; 200 Initialize_143; 201 Initialize_144; 202 Initialize_145; 203 Initialize_146; 204 Initialize_147; 205 Initialize_148; 206 Initialize_149; 207 Initialize_150; 208 Initialize_151; 209 Initialize_152; 210 Initialize_153; 211 Initialize_154; 212 Initialize_155; 213 Initialize_156; 214 Initialize_157; 215 Initialize_158; 216 Initialize_159; 217 Initialize_160; 218 Initialize_161; 219 Initialize_162; 220 Initialize_163; 221 Initialize_164; 222 Initialize_165; 223 Initialize_166; 224 Initialize_167; 225 Initialize_168; 226 Initialize_169; 227 Initialize_170; 228 Initialize_171; 229 Initialize_172; 230 Initialize_173; 231 Initialize_174; 232 Initialize_175; 233 Initialize_176; 234 Initialize_177; 235 Initialize_178; 236 Initialize_179; 237 Initialize_180; 238 Initialize_181; 239 Initialize_182; 240 Initialize_183; 241 Initialize_184; 242 Initialize_185; 243 Initialize_186; 244 Initialize_187; 245 Initialize_188; 246 Initialize_189; 247 Initialize_190; 248 Initialize_191; 249 Initialize_192; 250 Initialize_193; 251 Initialize_194; 252 Initialize_195; 253 Initialize_196; 254 Initialize_197; 255 Initialize_198; 256 Initialize_199; 257 Initialize_200; 258 Initialize_201; 259 Initialize_202; 260 Initialize_203; 261 Initialize_204; 262 Initialize_205; 263 Initialize_206; 264 Initialize_207; 265 Initialize_208; 266 Initialize_209; 267 Initialize_210; 268 Initialize_211; 269 Initialize_212; 270 Initialize_213; 271 Initialize_214; 272 Initialize_215; 273 Initialize_216; 274 Initialize_217; 275 Initialize_218; 276 Initialize_219; 277 Initialize_220; 278 Initialize_221; 279 Initialize_222; 280 Initialize_223; 281 Initialize_224; 282 Initialize_225; 283 Initialize_226; 284 Initialize_227; 285 Initialize_228; 286 Initialize_229; 287 Initialize_230; 288 Initialize_231; 289 Initialize_232; 290 Initialize_233; 291 Initialize_234; 292 Initialize_235; 293 Initialize_236; 294 Initialize_237; 295 Initialize_238; 296 Initialize_239; 297 Initialize_240; 298 Initialize_241; 299 Initialize_242; 300 Initialize_243; 301 Initialize_244; 302 Initialize_245; 303 Initialize_246; 304 Initialize_247; 305 Initialize_248; 306 Initialize_249; 307 Initialize_250; 308 Initialize_251; 309 Initialize_252; 310 Initialize_253; 311 Initialize_254; 312 Initialize_255; 313 Initialize_256; 314 Initialize_257; 315 Initialize_258; 316 Initialize_259; 317 Initialize_260; 318 Initialize_261; 319 Initialize_262; 320 Initialize_263; 321 Initialize_264; 322 Initialize_265; 323 Initialize_266; 324 Initialize_267; 325 Initialize_268; 326 Initialize_269; 327 Initialize_270; 328 Initialize_271; 329 Initialize_272; 330 Initialize_273; 331 Initialize_274; 332 Initialize_275; 333 Initialize_276; 334 Initialize_277; 335 Initialize_278; 336 Initialize_279; 337 Initialize_280; 338 Initialize_281; 339 Initialize_282; 340 Initialize_283; 341 Initialize_284; 342 Initialize_285; 343 Initialize_286; 344 Initialize_287; 345 Initialize_288; 346 Initialize_289; 347 Initialize_290; 348 Initialize_291; 349 Initialize_292; 350 Initialize_293; 351 Initialize_294; 352 Initialize_295; 353 Initialize_296; 354 Initialize_297; 355 Initialize_298; 356 Initialize_299; 357 Initialize_300; 358 Initialize_301; 359 Initialize_302; 360 Initialize_303; 361 Initialize_304; 362 Initialize_305; 363 Initialize_306; 364 Initialize_307; 365 Initialize_308; 366 Initialize_309; 367 Initialize_310; 368 Initialize_311; 369 Initialize_312; 370 Initialize_313; 371 Initialize_314; 372 Initialize_315; 373 Initialize_316; 374 Initialize_317; 375 Initialize_318; 376 Initialize_319; 377 end Initialize; 378 379 ------------------ 380 -- Initialize_1 -- 381 ------------------ 382 383 procedure Initialize_1 is 384 begin 385 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 386 (Base + 1, 387 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00EA'Access); 388 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 1, (Is_Empty => True)); 389 end Initialize_1; 390 391 ------------------ 392 -- Initialize_2 -- 393 ------------------ 394 395 procedure Initialize_2 is 396 begin 397 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 398 (Base + 2, 399 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B4'Access); 400 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 2, (Is_Empty => True)); 401 end Initialize_2; 402 403 ------------------ 404 -- Initialize_3 -- 405 ------------------ 406 407 procedure Initialize_3 is 408 begin 409 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 410 (Base + 3, 411 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0047'Access); 412 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 3, (Is_Empty => True)); 413 end Initialize_3; 414 415 ------------------ 416 -- Initialize_4 -- 417 ------------------ 418 419 procedure Initialize_4 is 420 begin 421 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 4, True); 422 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 423 (Base + 4, 424 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0004'Access); 425 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 4, (Is_Empty => True)); 426 end Initialize_4; 427 428 ------------------ 429 -- Initialize_5 -- 430 ------------------ 431 432 procedure Initialize_5 is 433 begin 434 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 435 (Base + 5, 436 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0020'Access); 437 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 5, (Is_Empty => True)); 438 end Initialize_5; 439 440 ------------------ 441 -- Initialize_6 -- 442 ------------------ 443 444 procedure Initialize_6 is 445 begin 446 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 6, True); 447 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 448 (Base + 6, 449 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A3'Access); 450 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 6, (Is_Empty => True)); 451 end Initialize_6; 452 453 ------------------ 454 -- Initialize_7 -- 455 ------------------ 456 457 procedure Initialize_7 is 458 begin 459 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 460 (Base + 7, 461 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D7'Access); 462 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 7, (Is_Empty => True)); 463 end Initialize_7; 464 465 ------------------ 466 -- Initialize_8 -- 467 ------------------ 468 469 procedure Initialize_8 is 470 begin 471 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 472 (Base + 8, 473 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BF'Access); 474 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 8, (Is_Empty => True)); 475 end Initialize_8; 476 477 ------------------ 478 -- Initialize_9 -- 479 ------------------ 480 481 procedure Initialize_9 is 482 begin 483 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 484 (Base + 9, 485 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0032'Access); 486 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 9, (Is_Empty => True)); 487 end Initialize_9; 488 489 ------------------- 490 -- Initialize_10 -- 491 ------------------- 492 493 procedure Initialize_10 is 494 begin 495 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 496 (Base + 10, 497 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E9'Access); 498 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 10, (Is_Empty => True)); 499 end Initialize_10; 500 501 ------------------- 502 -- Initialize_11 -- 503 ------------------- 504 505 procedure Initialize_11 is 506 begin 507 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 508 (Base + 11, 509 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0041'Access); 510 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 11, (Is_Empty => True)); 511 end Initialize_11; 512 513 ------------------- 514 -- Initialize_12 -- 515 ------------------- 516 517 procedure Initialize_12 is 518 begin 519 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 520 (Base + 12, 521 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B5'Access); 522 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 12, (Is_Empty => True)); 523 end Initialize_12; 524 525 ------------------- 526 -- Initialize_13 -- 527 ------------------- 528 529 procedure Initialize_13 is 530 begin 531 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 13, True); 532 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 533 (Base + 13, 534 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0055'Access); 535 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 13, (Is_Empty => True)); 536 end Initialize_13; 537 538 ------------------- 539 -- Initialize_14 -- 540 ------------------- 541 542 procedure Initialize_14 is 543 begin 544 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 14, True); 545 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 546 (Base + 14, 547 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00DF'Access); 548 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 14, (Is_Empty => True)); 549 end Initialize_14; 550 551 ------------------- 552 -- Initialize_15 -- 553 ------------------- 554 555 procedure Initialize_15 is 556 begin 557 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 558 (Base + 15, 559 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00CE'Access); 560 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 15, (Is_Empty => True)); 561 end Initialize_15; 562 563 ------------------- 564 -- Initialize_16 -- 565 ------------------- 566 567 procedure Initialize_16 is 568 begin 569 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 570 (Base + 16, 571 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0027'Access); 572 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 16, (Is_Empty => True)); 573 end Initialize_16; 574 575 ------------------- 576 -- Initialize_17 -- 577 ------------------- 578 579 procedure Initialize_17 is 580 begin 581 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 582 (Base + 17, 583 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0024'Access); 584 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 17, (Is_Empty => True)); 585 end Initialize_17; 586 587 ------------------- 588 -- Initialize_18 -- 589 ------------------- 590 591 procedure Initialize_18 is 592 begin 593 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 594 (Base + 18, 595 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0031'Access); 596 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 18, (Is_Empty => True)); 597 end Initialize_18; 598 599 ------------------- 600 -- Initialize_19 -- 601 ------------------- 602 603 procedure Initialize_19 is 604 begin 605 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 606 (Base + 19, 607 AMF.Internals.Tables.UMLDI_String_Data_00.MS_004E'Access); 608 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 19, (Is_Empty => True)); 609 end Initialize_19; 610 611 ------------------- 612 -- Initialize_20 -- 613 ------------------- 614 615 procedure Initialize_20 is 616 begin 617 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 618 (Base + 20, 619 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0036'Access); 620 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 20, (Is_Empty => True)); 621 end Initialize_20; 622 623 ------------------- 624 -- Initialize_21 -- 625 ------------------- 626 627 procedure Initialize_21 is 628 begin 629 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 630 (Base + 21, 631 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0000'Access); 632 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 21, (Is_Empty => True)); 633 end Initialize_21; 634 635 ------------------- 636 -- Initialize_22 -- 637 ------------------- 638 639 procedure Initialize_22 is 640 begin 641 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 642 (Base + 22, 643 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0075'Access); 644 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 22, (Is_Empty => True)); 645 end Initialize_22; 646 647 ------------------- 648 -- Initialize_23 -- 649 ------------------- 650 651 procedure Initialize_23 is 652 begin 653 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 654 (Base + 23, 655 AMF.Internals.Tables.UMLDI_String_Data_00.MS_004A'Access); 656 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 23, (Is_Empty => True)); 657 end Initialize_23; 658 659 ------------------- 660 -- Initialize_24 -- 661 ------------------- 662 663 procedure Initialize_24 is 664 begin 665 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 666 (Base + 24, 667 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F4'Access); 668 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 24, (Is_Empty => True)); 669 end Initialize_24; 670 671 ------------------- 672 -- Initialize_25 -- 673 ------------------- 674 675 procedure Initialize_25 is 676 begin 677 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 678 (Base + 25, 679 AMF.Internals.Tables.UMLDI_String_Data_00.MS_002E'Access); 680 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 25, (Is_Empty => True)); 681 end Initialize_25; 682 683 ------------------- 684 -- Initialize_26 -- 685 ------------------- 686 687 procedure Initialize_26 is 688 begin 689 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 690 (Base + 26, 691 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A1'Access); 692 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 26, (Is_Empty => True)); 693 end Initialize_26; 694 695 ------------------- 696 -- Initialize_27 -- 697 ------------------- 698 699 procedure Initialize_27 is 700 begin 701 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 702 (Base + 27, 703 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AB'Access); 704 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 27, (Is_Empty => True)); 705 end Initialize_27; 706 707 ------------------- 708 -- Initialize_28 -- 709 ------------------- 710 711 procedure Initialize_28 is 712 begin 713 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 714 (Base + 28, 715 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00DC'Access); 716 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 28, (Is_Empty => True)); 717 end Initialize_28; 718 719 ------------------- 720 -- Initialize_29 -- 721 ------------------- 722 723 procedure Initialize_29 is 724 begin 725 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 726 (Base + 29, 727 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0081'Access); 728 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 29, (Is_Empty => True)); 729 end Initialize_29; 730 731 ------------------- 732 -- Initialize_30 -- 733 ------------------- 734 735 procedure Initialize_30 is 736 begin 737 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 30, True); 738 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 739 (Base + 30, 740 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0082'Access); 741 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 30, (Is_Empty => True)); 742 end Initialize_30; 743 744 ------------------- 745 -- Initialize_31 -- 746 ------------------- 747 748 procedure Initialize_31 is 749 begin 750 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 751 (Base + 31, 752 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00EE'Access); 753 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 31, (Is_Empty => True)); 754 end Initialize_31; 755 756 ------------------- 757 -- Initialize_32 -- 758 ------------------- 759 760 procedure Initialize_32 is 761 begin 762 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 763 (Base + 32, 764 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00CA'Access); 765 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 32, (Is_Empty => True)); 766 end Initialize_32; 767 768 ------------------- 769 -- Initialize_33 -- 770 ------------------- 771 772 procedure Initialize_33 is 773 begin 774 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 775 (Base + 33, 776 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D2'Access); 777 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 33, (Is_Empty => True)); 778 end Initialize_33; 779 780 ------------------- 781 -- Initialize_34 -- 782 ------------------- 783 784 procedure Initialize_34 is 785 begin 786 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 34, True); 787 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 34, True); 788 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 34, (False, 0)); 789 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 790 (Base + 34, 791 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0018'Access); 792 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 34, (False, (Unlimited => True))); 793 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 34, (False, AMF.CMOF.Public_Visibility)); 794 end Initialize_34; 795 796 ------------------- 797 -- Initialize_35 -- 798 ------------------- 799 800 procedure Initialize_35 is 801 begin 802 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 35, True); 803 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 35, True); 804 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 35, (False, 0)); 805 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 806 (Base + 35, 807 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C8'Access); 808 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 35, (False, (Unlimited => True))); 809 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 35, (False, AMF.CMOF.Public_Visibility)); 810 end Initialize_35; 811 812 ------------------- 813 -- Initialize_36 -- 814 ------------------- 815 816 procedure Initialize_36 is 817 begin 818 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 36, (False, 0)); 819 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 820 (Base + 36, 821 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 822 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 36, (False, (Unlimited => True))); 823 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 36, (False, AMF.CMOF.Public_Visibility)); 824 end Initialize_36; 825 826 ------------------- 827 -- Initialize_37 -- 828 ------------------- 829 830 procedure Initialize_37 is 831 begin 832 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 37, True); 833 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 37, True); 834 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 37, (False, 0)); 835 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 836 (Base + 37, 837 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AC'Access); 838 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 37, (False, (Unlimited => True))); 839 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 37, (False, AMF.CMOF.Public_Visibility)); 840 end Initialize_37; 841 842 ------------------- 843 -- Initialize_38 -- 844 ------------------- 845 846 procedure Initialize_38 is 847 begin 848 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 849 (Base + 38, 850 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 851 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 38, (False, (Unlimited => True))); 852 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 38, (False, AMF.CMOF.Public_Visibility)); 853 end Initialize_38; 854 855 ------------------- 856 -- Initialize_39 -- 857 ------------------- 858 859 procedure Initialize_39 is 860 begin 861 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 862 (Base + 39, 863 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007A'Access); 864 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 865 (Base + 39, 866 AMF.Internals.Tables.UMLDI_String_Data_00.MS_006F'Access); 867 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 39, (False, AMF.CMOF.Public_Visibility)); 868 end Initialize_39; 869 870 ------------------- 871 -- Initialize_40 -- 872 ------------------- 873 874 procedure Initialize_40 is 875 begin 876 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 877 (Base + 40, 878 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 879 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 40, (False, AMF.CMOF.Public_Visibility)); 880 end Initialize_40; 881 882 ------------------- 883 -- Initialize_41 -- 884 ------------------- 885 886 procedure Initialize_41 is 887 begin 888 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 889 (Base + 41, 890 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 891 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 41, (False, AMF.CMOF.Public_Visibility)); 892 end Initialize_41; 893 894 ------------------- 895 -- Initialize_42 -- 896 ------------------- 897 898 procedure Initialize_42 is 899 begin 900 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 901 (Base + 42, 902 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003F'Access); 903 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 42, (False, AMF.CMOF.Private_Visibility)); 904 end Initialize_42; 905 906 ------------------- 907 -- Initialize_43 -- 908 ------------------- 909 910 procedure Initialize_43 is 911 begin 912 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 43, (False, 0)); 913 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 914 (Base + 43, 915 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 916 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 43, (False, AMF.CMOF.Public_Visibility)); 917 end Initialize_43; 918 919 ------------------- 920 -- Initialize_44 -- 921 ------------------- 922 923 procedure Initialize_44 is 924 begin 925 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 926 (Base + 44, 927 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007A'Access); 928 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 929 (Base + 44, 930 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F1'Access); 931 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 44, (False, AMF.CMOF.Public_Visibility)); 932 end Initialize_44; 933 934 ------------------- 935 -- Initialize_45 -- 936 ------------------- 937 938 procedure Initialize_45 is 939 begin 940 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 941 (Base + 45, 942 AMF.Internals.Tables.UMLDI_String_Data_00.MS_001B'Access); 943 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 45, (False, AMF.CMOF.Public_Visibility)); 944 end Initialize_45; 945 946 ------------------- 947 -- Initialize_46 -- 948 ------------------- 949 950 procedure Initialize_46 is 951 begin 952 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 953 (Base + 46, 954 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BD'Access); 955 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 956 (Base + 46, 957 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0092'Access); 958 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 46, (False, AMF.CMOF.Public_Visibility)); 959 end Initialize_46; 960 961 ------------------- 962 -- Initialize_47 -- 963 ------------------- 964 965 procedure Initialize_47 is 966 begin 967 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 968 (Base + 47, 969 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007A'Access); 970 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 971 (Base + 47, 972 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D3'Access); 973 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 47, (False, AMF.CMOF.Public_Visibility)); 974 end Initialize_47; 975 976 ------------------- 977 -- Initialize_48 -- 978 ------------------- 979 980 procedure Initialize_48 is 981 begin 982 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 983 (Base + 48, 984 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007A'Access); 985 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 986 (Base + 48, 987 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0077'Access); 988 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 48, (False, AMF.CMOF.Public_Visibility)); 989 end Initialize_48; 990 991 ------------------- 992 -- Initialize_49 -- 993 ------------------- 994 995 procedure Initialize_49 is 996 begin 997 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 998 (Base + 49, 999 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 1000 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 49, (False, AMF.CMOF.Public_Visibility)); 1001 end Initialize_49; 1002 1003 ------------------- 1004 -- Initialize_50 -- 1005 ------------------- 1006 1007 procedure Initialize_50 is 1008 begin 1009 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 50, True); 1010 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 50, (False, 0)); 1011 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1012 (Base + 50, 1013 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0021'Access); 1014 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 50, (False, AMF.CMOF.Public_Visibility)); 1015 end Initialize_50; 1016 1017 ------------------- 1018 -- Initialize_51 -- 1019 ------------------- 1020 1021 procedure Initialize_51 is 1022 begin 1023 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 1024 (Base + 51, 1025 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C2'Access); 1026 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1027 (Base + 51, 1028 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00EC'Access); 1029 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 51, (False, AMF.CMOF.Public_Visibility)); 1030 end Initialize_51; 1031 1032 ------------------- 1033 -- Initialize_52 -- 1034 ------------------- 1035 1036 procedure Initialize_52 is 1037 begin 1038 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 1039 (Base + 52, 1040 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C2'Access); 1041 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1042 (Base + 52, 1043 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0038'Access); 1044 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 52, (False, AMF.CMOF.Public_Visibility)); 1045 end Initialize_52; 1046 1047 ------------------- 1048 -- Initialize_53 -- 1049 ------------------- 1050 1051 procedure Initialize_53 is 1052 begin 1053 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 1054 (Base + 53, 1055 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007A'Access); 1056 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1057 (Base + 53, 1058 AMF.Internals.Tables.UMLDI_String_Data_00.MS_009E'Access); 1059 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 53, (False, AMF.CMOF.Public_Visibility)); 1060 end Initialize_53; 1061 1062 ------------------- 1063 -- Initialize_54 -- 1064 ------------------- 1065 1066 procedure Initialize_54 is 1067 begin 1068 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 54, True); 1069 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 54, (False, 0)); 1070 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1071 (Base + 54, 1072 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0043'Access); 1073 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 54, (False, AMF.CMOF.Public_Visibility)); 1074 end Initialize_54; 1075 1076 ------------------- 1077 -- Initialize_55 -- 1078 ------------------- 1079 1080 procedure Initialize_55 is 1081 begin 1082 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 55, (False, 0)); 1083 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1084 (Base + 55, 1085 AMF.Internals.Tables.UMLDI_String_Data_00.MS_005A'Access); 1086 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 55, (False, AMF.CMOF.Public_Visibility)); 1087 end Initialize_55; 1088 1089 ------------------- 1090 -- Initialize_56 -- 1091 ------------------- 1092 1093 procedure Initialize_56 is 1094 begin 1095 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 56, (False, 0)); 1096 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1097 (Base + 56, 1098 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0093'Access); 1099 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 56, (False, AMF.CMOF.Public_Visibility)); 1100 end Initialize_56; 1101 1102 ------------------- 1103 -- Initialize_57 -- 1104 ------------------- 1105 1106 procedure Initialize_57 is 1107 begin 1108 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1109 (Base + 57, 1110 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D0'Access); 1111 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 57, (False, AMF.CMOF.Public_Visibility)); 1112 end Initialize_57; 1113 1114 ------------------- 1115 -- Initialize_58 -- 1116 ------------------- 1117 1118 procedure Initialize_58 is 1119 begin 1120 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1121 (Base + 58, 1122 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00DA'Access); 1123 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 58, (False, AMF.CMOF.Public_Visibility)); 1124 end Initialize_58; 1125 1126 ------------------- 1127 -- Initialize_59 -- 1128 ------------------- 1129 1130 procedure Initialize_59 is 1131 begin 1132 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 1133 (Base + 59, 1134 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0042'Access); 1135 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1136 (Base + 59, 1137 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003F'Access); 1138 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 59, (False, AMF.CMOF.Public_Visibility)); 1139 end Initialize_59; 1140 1141 ------------------- 1142 -- Initialize_60 -- 1143 ------------------- 1144 1145 procedure Initialize_60 is 1146 begin 1147 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1148 (Base + 60, 1149 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 1150 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 60, (False, AMF.CMOF.Public_Visibility)); 1151 end Initialize_60; 1152 1153 ------------------- 1154 -- Initialize_61 -- 1155 ------------------- 1156 1157 procedure Initialize_61 is 1158 begin 1159 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1160 (Base + 61, 1161 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003F'Access); 1162 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 61, (False, AMF.CMOF.Public_Visibility)); 1163 end Initialize_61; 1164 1165 ------------------- 1166 -- Initialize_62 -- 1167 ------------------- 1168 1169 procedure Initialize_62 is 1170 begin 1171 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1172 (Base + 62, 1173 AMF.Internals.Tables.UMLDI_String_Data_00.MS_004C'Access); 1174 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 62, (False, AMF.CMOF.Public_Visibility)); 1175 end Initialize_62; 1176 1177 ------------------- 1178 -- Initialize_63 -- 1179 ------------------- 1180 1181 procedure Initialize_63 is 1182 begin 1183 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1184 (Base + 63, 1185 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 1186 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 63, (False, AMF.CMOF.Public_Visibility)); 1187 end Initialize_63; 1188 1189 ------------------- 1190 -- Initialize_64 -- 1191 ------------------- 1192 1193 procedure Initialize_64 is 1194 begin 1195 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1196 (Base + 64, 1197 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00ED'Access); 1198 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 64, (False, AMF.CMOF.Public_Visibility)); 1199 end Initialize_64; 1200 1201 ------------------- 1202 -- Initialize_65 -- 1203 ------------------- 1204 1205 procedure Initialize_65 is 1206 begin 1207 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1208 (Base + 65, 1209 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 1210 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 65, (False, AMF.CMOF.Public_Visibility)); 1211 end Initialize_65; 1212 1213 ------------------- 1214 -- Initialize_66 -- 1215 ------------------- 1216 1217 procedure Initialize_66 is 1218 begin 1219 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 66, (False, 0)); 1220 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1221 (Base + 66, 1222 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0088'Access); 1223 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 66, (False, AMF.CMOF.Public_Visibility)); 1224 end Initialize_66; 1225 1226 ------------------- 1227 -- Initialize_67 -- 1228 ------------------- 1229 1230 procedure Initialize_67 is 1231 begin 1232 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 1233 (Base + 67, 1234 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C2'Access); 1235 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1236 (Base + 67, 1237 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0083'Access); 1238 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 67, (False, AMF.CMOF.Public_Visibility)); 1239 end Initialize_67; 1240 1241 ------------------- 1242 -- Initialize_68 -- 1243 ------------------- 1244 1245 procedure Initialize_68 is 1246 begin 1247 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 1248 (Base + 68, 1249 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007A'Access); 1250 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1251 (Base + 68, 1252 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0017'Access); 1253 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 68, (False, AMF.CMOF.Public_Visibility)); 1254 end Initialize_68; 1255 1256 ------------------- 1257 -- Initialize_69 -- 1258 ------------------- 1259 1260 procedure Initialize_69 is 1261 begin 1262 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1263 (Base + 69, 1264 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 1265 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 69, (False, AMF.CMOF.Public_Visibility)); 1266 end Initialize_69; 1267 1268 ------------------- 1269 -- Initialize_70 -- 1270 ------------------- 1271 1272 procedure Initialize_70 is 1273 begin 1274 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Default 1275 (Base + 70, 1276 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007A'Access); 1277 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1278 (Base + 70, 1279 AMF.Internals.Tables.UMLDI_String_Data_00.MS_008F'Access); 1280 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 70, (False, AMF.CMOF.Public_Visibility)); 1281 end Initialize_70; 1282 1283 ------------------- 1284 -- Initialize_71 -- 1285 ------------------- 1286 1287 procedure Initialize_71 is 1288 begin 1289 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1290 (Base + 71, 1291 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BC'Access); 1292 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 71, (False, AMF.CMOF.Public_Visibility)); 1293 end Initialize_71; 1294 1295 ------------------- 1296 -- Initialize_72 -- 1297 ------------------- 1298 1299 procedure Initialize_72 is 1300 begin 1301 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1302 (Base + 72, 1303 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00DE'Access); 1304 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 72, (False, AMF.CMOF.Public_Visibility)); 1305 end Initialize_72; 1306 1307 ------------------- 1308 -- Initialize_73 -- 1309 ------------------- 1310 1311 procedure Initialize_73 is 1312 begin 1313 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 73, (False, 0)); 1314 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1315 (Base + 73, 1316 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0062'Access); 1317 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 73, (False, AMF.CMOF.Public_Visibility)); 1318 end Initialize_73; 1319 1320 ------------------- 1321 -- Initialize_74 -- 1322 ------------------- 1323 1324 procedure Initialize_74 is 1325 begin 1326 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 74, (False, 0)); 1327 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1328 (Base + 74, 1329 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0039'Access); 1330 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 74, (False, AMF.CMOF.Public_Visibility)); 1331 end Initialize_74; 1332 1333 ------------------- 1334 -- Initialize_75 -- 1335 ------------------- 1336 1337 procedure Initialize_75 is 1338 begin 1339 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1340 (Base + 75, 1341 AMF.Internals.Tables.UMLDI_String_Data_00.MS_002B'Access); 1342 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 75, (Is_Empty => True)); 1343 end Initialize_75; 1344 1345 ------------------- 1346 -- Initialize_76 -- 1347 ------------------- 1348 1349 procedure Initialize_76 is 1350 begin 1351 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1352 (Base + 76, 1353 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0079'Access); 1354 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 76, (Is_Empty => True)); 1355 end Initialize_76; 1356 1357 ------------------- 1358 -- Initialize_77 -- 1359 ------------------- 1360 1361 procedure Initialize_77 is 1362 begin 1363 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1364 (Base + 77, 1365 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A9'Access); 1366 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 77, (Is_Empty => True)); 1367 end Initialize_77; 1368 1369 ------------------- 1370 -- Initialize_78 -- 1371 ------------------- 1372 1373 procedure Initialize_78 is 1374 begin 1375 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1376 (Base + 78, 1377 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0013'Access); 1378 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 78, (Is_Empty => True)); 1379 end Initialize_78; 1380 1381 ------------------- 1382 -- Initialize_79 -- 1383 ------------------- 1384 1385 procedure Initialize_79 is 1386 begin 1387 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1388 (Base + 79, 1389 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007B'Access); 1390 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 79, (Is_Empty => True)); 1391 end Initialize_79; 1392 1393 ------------------- 1394 -- Initialize_80 -- 1395 ------------------- 1396 1397 procedure Initialize_80 is 1398 begin 1399 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1400 (Base + 80, 1401 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C9'Access); 1402 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 80, (Is_Empty => True)); 1403 end Initialize_80; 1404 1405 ------------------- 1406 -- Initialize_81 -- 1407 ------------------- 1408 1409 procedure Initialize_81 is 1410 begin 1411 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1412 (Base + 81, 1413 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0002'Access); 1414 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 81, (Is_Empty => True)); 1415 end Initialize_81; 1416 1417 ------------------- 1418 -- Initialize_82 -- 1419 ------------------- 1420 1421 procedure Initialize_82 is 1422 begin 1423 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1424 (Base + 82, 1425 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0050'Access); 1426 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 82, (Is_Empty => True)); 1427 end Initialize_82; 1428 1429 ------------------- 1430 -- Initialize_83 -- 1431 ------------------- 1432 1433 procedure Initialize_83 is 1434 begin 1435 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1436 (Base + 83, 1437 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0016'Access); 1438 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 83, (Is_Empty => True)); 1439 end Initialize_83; 1440 1441 ------------------- 1442 -- Initialize_84 -- 1443 ------------------- 1444 1445 procedure Initialize_84 is 1446 begin 1447 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1448 (Base + 84, 1449 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0048'Access); 1450 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 84, (Is_Empty => True)); 1451 end Initialize_84; 1452 1453 ------------------- 1454 -- Initialize_85 -- 1455 ------------------- 1456 1457 procedure Initialize_85 is 1458 begin 1459 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1460 (Base + 85, 1461 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0006'Access); 1462 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 85, (Is_Empty => True)); 1463 end Initialize_85; 1464 1465 ------------------- 1466 -- Initialize_86 -- 1467 ------------------- 1468 1469 procedure Initialize_86 is 1470 begin 1471 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1472 (Base + 86, 1473 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F2'Access); 1474 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 86, (Is_Empty => True)); 1475 end Initialize_86; 1476 1477 ------------------- 1478 -- Initialize_87 -- 1479 ------------------- 1480 1481 procedure Initialize_87 is 1482 begin 1483 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1484 (Base + 87, 1485 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0040'Access); 1486 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 87, (Is_Empty => True)); 1487 end Initialize_87; 1488 1489 ------------------- 1490 -- Initialize_88 -- 1491 ------------------- 1492 1493 procedure Initialize_88 is 1494 begin 1495 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1496 (Base + 88, 1497 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00CF'Access); 1498 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 88, (Is_Empty => True)); 1499 end Initialize_88; 1500 1501 ------------------- 1502 -- Initialize_89 -- 1503 ------------------- 1504 1505 procedure Initialize_89 is 1506 begin 1507 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1508 (Base + 89, 1509 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D9'Access); 1510 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 89, (Is_Empty => True)); 1511 end Initialize_89; 1512 1513 ------------------- 1514 -- Initialize_90 -- 1515 ------------------- 1516 1517 procedure Initialize_90 is 1518 begin 1519 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1520 (Base + 90, 1521 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A8'Access); 1522 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 90, (Is_Empty => True)); 1523 end Initialize_90; 1524 1525 ------------------- 1526 -- Initialize_91 -- 1527 ------------------- 1528 1529 procedure Initialize_91 is 1530 begin 1531 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1532 (Base + 91, 1533 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007F'Access); 1534 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 91, (Is_Empty => True)); 1535 end Initialize_91; 1536 1537 ------------------- 1538 -- Initialize_92 -- 1539 ------------------- 1540 1541 procedure Initialize_92 is 1542 begin 1543 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1544 (Base + 92, 1545 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A0'Access); 1546 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 92, (Is_Empty => True)); 1547 end Initialize_92; 1548 1549 ------------------- 1550 -- Initialize_93 -- 1551 ------------------- 1552 1553 procedure Initialize_93 is 1554 begin 1555 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1556 (Base + 93, 1557 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BB'Access); 1558 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 93, (Is_Empty => True)); 1559 end Initialize_93; 1560 1561 ------------------- 1562 -- Initialize_94 -- 1563 ------------------- 1564 1565 procedure Initialize_94 is 1566 begin 1567 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1568 (Base + 94, 1569 AMF.Internals.Tables.UMLDI_String_Data_00.MS_004B'Access); 1570 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 94, (Is_Empty => True)); 1571 end Initialize_94; 1572 1573 ------------------- 1574 -- Initialize_95 -- 1575 ------------------- 1576 1577 procedure Initialize_95 is 1578 begin 1579 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1580 (Base + 95, 1581 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0099'Access); 1582 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 95, (Is_Empty => True)); 1583 end Initialize_95; 1584 1585 ------------------- 1586 -- Initialize_96 -- 1587 ------------------- 1588 1589 procedure Initialize_96 is 1590 begin 1591 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1592 (Base + 96, 1593 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0066'Access); 1594 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Uri 1595 (Base + 96, 1596 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0098'Access); 1597 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 96, (Is_Empty => True)); 1598 end Initialize_96; 1599 1600 ------------------- 1601 -- Initialize_97 -- 1602 ------------------- 1603 1604 procedure Initialize_97 is 1605 begin 1606 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 97, (False, 0)); 1607 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1608 (Base + 97, 1609 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1610 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 97, (False, (Unlimited => True))); 1611 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 97, (False, AMF.CMOF.Public_Visibility)); 1612 end Initialize_97; 1613 1614 ------------------- 1615 -- Initialize_98 -- 1616 ------------------- 1617 1618 procedure Initialize_98 is 1619 begin 1620 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 98, (False, 0)); 1621 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1622 (Base + 98, 1623 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1624 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 98, (False, (Unlimited => True))); 1625 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 98, (False, AMF.CMOF.Public_Visibility)); 1626 end Initialize_98; 1627 1628 ------------------- 1629 -- Initialize_99 -- 1630 ------------------- 1631 1632 procedure Initialize_99 is 1633 begin 1634 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 99, (False, 0)); 1635 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1636 (Base + 99, 1637 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1638 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 99, (False, (Unlimited => True))); 1639 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 99, (False, AMF.CMOF.Public_Visibility)); 1640 end Initialize_99; 1641 1642 -------------------- 1643 -- Initialize_100 -- 1644 -------------------- 1645 1646 procedure Initialize_100 is 1647 begin 1648 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 100, (False, 0)); 1649 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1650 (Base + 100, 1651 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1652 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 100, (False, (Unlimited => True))); 1653 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 100, (False, AMF.CMOF.Public_Visibility)); 1654 end Initialize_100; 1655 1656 -------------------- 1657 -- Initialize_101 -- 1658 -------------------- 1659 1660 procedure Initialize_101 is 1661 begin 1662 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 101, (False, 0)); 1663 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1664 (Base + 101, 1665 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F7'Access); 1666 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 101, (False, AMF.CMOF.Public_Visibility)); 1667 end Initialize_101; 1668 1669 -------------------- 1670 -- Initialize_102 -- 1671 -------------------- 1672 1673 procedure Initialize_102 is 1674 begin 1675 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1676 (Base + 102, 1677 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007D'Access); 1678 end Initialize_102; 1679 1680 -------------------- 1681 -- Initialize_103 -- 1682 -------------------- 1683 1684 procedure Initialize_103 is 1685 begin 1686 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1687 (Base + 103, 1688 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0096'Access); 1689 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 103, (False, AMF.CMOF.Public_Visibility)); 1690 end Initialize_103; 1691 1692 -------------------- 1693 -- Initialize_104 -- 1694 -------------------- 1695 1696 procedure Initialize_104 is 1697 begin 1698 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1699 (Base + 104, 1700 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D4'Access); 1701 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 104, (False, (Unlimited => True))); 1702 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 104, (False, AMF.CMOF.Public_Visibility)); 1703 end Initialize_104; 1704 1705 -------------------- 1706 -- Initialize_105 -- 1707 -------------------- 1708 1709 procedure Initialize_105 is 1710 begin 1711 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 105, (False, 0)); 1712 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1713 (Base + 105, 1714 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1715 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 105, (False, (Unlimited => True))); 1716 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 105, (False, AMF.CMOF.Public_Visibility)); 1717 end Initialize_105; 1718 1719 -------------------- 1720 -- Initialize_106 -- 1721 -------------------- 1722 1723 procedure Initialize_106 is 1724 begin 1725 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 106, (False, 0)); 1726 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1727 (Base + 106, 1728 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D4'Access); 1729 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 106, (False, (Unlimited => True))); 1730 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 106, (False, AMF.CMOF.Public_Visibility)); 1731 end Initialize_106; 1732 1733 -------------------- 1734 -- Initialize_107 -- 1735 -------------------- 1736 1737 procedure Initialize_107 is 1738 begin 1739 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 107, (False, 0)); 1740 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1741 (Base + 107, 1742 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003D'Access); 1743 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 107, (False, (Unlimited => True))); 1744 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 107, (False, AMF.CMOF.Public_Visibility)); 1745 end Initialize_107; 1746 1747 -------------------- 1748 -- Initialize_108 -- 1749 -------------------- 1750 1751 procedure Initialize_108 is 1752 begin 1753 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 108, (False, 0)); 1754 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1755 (Base + 108, 1756 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0059'Access); 1757 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 108, (False, (Unlimited => True))); 1758 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 108, (False, AMF.CMOF.Public_Visibility)); 1759 end Initialize_108; 1760 1761 -------------------- 1762 -- Initialize_109 -- 1763 -------------------- 1764 1765 procedure Initialize_109 is 1766 begin 1767 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 109, (False, 0)); 1768 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1769 (Base + 109, 1770 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0065'Access); 1771 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 109, (False, (Unlimited => True))); 1772 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 109, (False, AMF.CMOF.Public_Visibility)); 1773 end Initialize_109; 1774 1775 -------------------- 1776 -- Initialize_110 -- 1777 -------------------- 1778 1779 procedure Initialize_110 is 1780 begin 1781 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 110, (False, 0)); 1782 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1783 (Base + 110, 1784 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1785 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 110, (False, (Unlimited => True))); 1786 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 110, (False, AMF.CMOF.Public_Visibility)); 1787 end Initialize_110; 1788 1789 -------------------- 1790 -- Initialize_111 -- 1791 -------------------- 1792 1793 procedure Initialize_111 is 1794 begin 1795 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 111, (False, 0)); 1796 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1797 (Base + 111, 1798 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1799 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 111, (False, (Unlimited => True))); 1800 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 111, (False, AMF.CMOF.Public_Visibility)); 1801 end Initialize_111; 1802 1803 -------------------- 1804 -- Initialize_112 -- 1805 -------------------- 1806 1807 procedure Initialize_112 is 1808 begin 1809 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 112, (False, 0)); 1810 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1811 (Base + 112, 1812 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1813 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 112, (False, (Unlimited => True))); 1814 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 112, (False, AMF.CMOF.Public_Visibility)); 1815 end Initialize_112; 1816 1817 -------------------- 1818 -- Initialize_113 -- 1819 -------------------- 1820 1821 procedure Initialize_113 is 1822 begin 1823 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 113, (False, 0)); 1824 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1825 (Base + 113, 1826 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1827 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 113, (False, (Unlimited => True))); 1828 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 113, (False, AMF.CMOF.Public_Visibility)); 1829 end Initialize_113; 1830 1831 -------------------- 1832 -- Initialize_114 -- 1833 -------------------- 1834 1835 procedure Initialize_114 is 1836 begin 1837 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 114, (False, 0)); 1838 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1839 (Base + 114, 1840 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1841 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 114, (False, (Unlimited => True))); 1842 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 114, (False, AMF.CMOF.Public_Visibility)); 1843 end Initialize_114; 1844 1845 -------------------- 1846 -- Initialize_115 -- 1847 -------------------- 1848 1849 procedure Initialize_115 is 1850 begin 1851 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 115, (False, 0)); 1852 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1853 (Base + 115, 1854 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1855 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 115, (False, (Unlimited => True))); 1856 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 115, (False, AMF.CMOF.Public_Visibility)); 1857 end Initialize_115; 1858 1859 -------------------- 1860 -- Initialize_116 -- 1861 -------------------- 1862 1863 procedure Initialize_116 is 1864 begin 1865 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 116, (False, 0)); 1866 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1867 (Base + 116, 1868 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AF'Access); 1869 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 116, (False, AMF.CMOF.Public_Visibility)); 1870 end Initialize_116; 1871 1872 -------------------- 1873 -- Initialize_117 -- 1874 -------------------- 1875 1876 procedure Initialize_117 is 1877 begin 1878 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 117, (False, 0)); 1879 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1880 (Base + 117, 1881 AMF.Internals.Tables.UMLDI_String_Data_00.MS_000A'Access); 1882 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 117, (False, (Unlimited => True))); 1883 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 117, (False, AMF.CMOF.Public_Visibility)); 1884 end Initialize_117; 1885 1886 -------------------- 1887 -- Initialize_118 -- 1888 -------------------- 1889 1890 procedure Initialize_118 is 1891 begin 1892 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1893 (Base + 118, 1894 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B8'Access); 1895 end Initialize_118; 1896 1897 -------------------- 1898 -- Initialize_119 -- 1899 -------------------- 1900 1901 procedure Initialize_119 is 1902 begin 1903 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1904 (Base + 119, 1905 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0086'Access); 1906 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 119, (Is_Empty => True)); 1907 end Initialize_119; 1908 1909 -------------------- 1910 -- Initialize_120 -- 1911 -------------------- 1912 1913 procedure Initialize_120 is 1914 begin 1915 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1916 (Base + 120, 1917 AMF.Internals.Tables.UMLDI_String_Data_00.MS_000B'Access); 1918 end Initialize_120; 1919 1920 -------------------- 1921 -- Initialize_121 -- 1922 -------------------- 1923 1924 procedure Initialize_121 is 1925 begin 1926 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 121, (Is_Empty => True)); 1927 end Initialize_121; 1928 1929 -------------------- 1930 -- Initialize_122 -- 1931 -------------------- 1932 1933 procedure Initialize_122 is 1934 begin 1935 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1936 (Base + 122, 1937 AMF.Internals.Tables.UMLDI_String_Data_00.MS_004F'Access); 1938 end Initialize_122; 1939 1940 -------------------- 1941 -- Initialize_123 -- 1942 -------------------- 1943 1944 procedure Initialize_123 is 1945 begin 1946 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1947 (Base + 123, 1948 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F3'Access); 1949 end Initialize_123; 1950 1951 -------------------- 1952 -- Initialize_124 -- 1953 -------------------- 1954 1955 procedure Initialize_124 is 1956 begin 1957 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1958 (Base + 124, 1959 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007E'Access); 1960 end Initialize_124; 1961 1962 -------------------- 1963 -- Initialize_125 -- 1964 -------------------- 1965 1966 procedure Initialize_125 is 1967 begin 1968 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1969 (Base + 125, 1970 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AD'Access); 1971 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 125, (Is_Empty => True)); 1972 end Initialize_125; 1973 1974 -------------------- 1975 -- Initialize_126 -- 1976 -------------------- 1977 1978 procedure Initialize_126 is 1979 begin 1980 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1981 (Base + 126, 1982 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C5'Access); 1983 end Initialize_126; 1984 1985 -------------------- 1986 -- Initialize_127 -- 1987 -------------------- 1988 1989 procedure Initialize_127 is 1990 begin 1991 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 127, (Is_Empty => True)); 1992 end Initialize_127; 1993 1994 -------------------- 1995 -- Initialize_128 -- 1996 -------------------- 1997 1998 procedure Initialize_128 is 1999 begin 2000 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2001 (Base + 128, 2002 AMF.Internals.Tables.UMLDI_String_Data_00.MS_000D'Access); 2003 end Initialize_128; 2004 2005 -------------------- 2006 -- Initialize_129 -- 2007 -------------------- 2008 2009 procedure Initialize_129 is 2010 begin 2011 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2012 (Base + 129, 2013 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E7'Access); 2014 end Initialize_129; 2015 2016 -------------------- 2017 -- Initialize_130 -- 2018 -------------------- 2019 2020 procedure Initialize_130 is 2021 begin 2022 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2023 (Base + 130, 2024 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E0'Access); 2025 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 130, (Is_Empty => True)); 2026 end Initialize_130; 2027 2028 -------------------- 2029 -- Initialize_131 -- 2030 -------------------- 2031 2032 procedure Initialize_131 is 2033 begin 2034 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2035 (Base + 131, 2036 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0008'Access); 2037 end Initialize_131; 2038 2039 -------------------- 2040 -- Initialize_132 -- 2041 -------------------- 2042 2043 procedure Initialize_132 is 2044 begin 2045 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 132, (Is_Empty => True)); 2046 end Initialize_132; 2047 2048 -------------------- 2049 -- Initialize_133 -- 2050 -------------------- 2051 2052 procedure Initialize_133 is 2053 begin 2054 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2055 (Base + 133, 2056 AMF.Internals.Tables.UMLDI_String_Data_00.MS_002D'Access); 2057 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 133, (Is_Empty => True)); 2058 end Initialize_133; 2059 2060 -------------------- 2061 -- Initialize_134 -- 2062 -------------------- 2063 2064 procedure Initialize_134 is 2065 begin 2066 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2067 (Base + 134, 2068 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0091'Access); 2069 end Initialize_134; 2070 2071 -------------------- 2072 -- Initialize_135 -- 2073 -------------------- 2074 2075 procedure Initialize_135 is 2076 begin 2077 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 135, (Is_Empty => True)); 2078 end Initialize_135; 2079 2080 -------------------- 2081 -- Initialize_136 -- 2082 -------------------- 2083 2084 procedure Initialize_136 is 2085 begin 2086 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2087 (Base + 136, 2088 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0033'Access); 2089 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 136, (Is_Empty => True)); 2090 end Initialize_136; 2091 2092 -------------------- 2093 -- Initialize_137 -- 2094 -------------------- 2095 2096 procedure Initialize_137 is 2097 begin 2098 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2099 (Base + 137, 2100 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B7'Access); 2101 end Initialize_137; 2102 2103 -------------------- 2104 -- Initialize_138 -- 2105 -------------------- 2106 2107 procedure Initialize_138 is 2108 begin 2109 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 138, (Is_Empty => True)); 2110 end Initialize_138; 2111 2112 -------------------- 2113 -- Initialize_139 -- 2114 -------------------- 2115 2116 procedure Initialize_139 is 2117 begin 2118 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2119 (Base + 139, 2120 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C4'Access); 2121 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 139, (Is_Empty => True)); 2122 end Initialize_139; 2123 2124 -------------------- 2125 -- Initialize_140 -- 2126 -------------------- 2127 2128 procedure Initialize_140 is 2129 begin 2130 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2131 (Base + 140, 2132 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0014'Access); 2133 end Initialize_140; 2134 2135 -------------------- 2136 -- Initialize_141 -- 2137 -------------------- 2138 2139 procedure Initialize_141 is 2140 begin 2141 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 141, (Is_Empty => True)); 2142 end Initialize_141; 2143 2144 -------------------- 2145 -- Initialize_142 -- 2146 -------------------- 2147 2148 procedure Initialize_142 is 2149 begin 2150 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2151 (Base + 142, 2152 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AD'Access); 2153 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 142, (Is_Empty => True)); 2154 end Initialize_142; 2155 2156 -------------------- 2157 -- Initialize_143 -- 2158 -------------------- 2159 2160 procedure Initialize_143 is 2161 begin 2162 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2163 (Base + 143, 2164 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BE'Access); 2165 end Initialize_143; 2166 2167 -------------------- 2168 -- Initialize_144 -- 2169 -------------------- 2170 2171 procedure Initialize_144 is 2172 begin 2173 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 144, (Is_Empty => True)); 2174 end Initialize_144; 2175 2176 -------------------- 2177 -- Initialize_145 -- 2178 -------------------- 2179 2180 procedure Initialize_145 is 2181 begin 2182 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2183 (Base + 145, 2184 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C0'Access); 2185 end Initialize_145; 2186 2187 -------------------- 2188 -- Initialize_146 -- 2189 -------------------- 2190 2191 procedure Initialize_146 is 2192 begin 2193 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2194 (Base + 146, 2195 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E2'Access); 2196 end Initialize_146; 2197 2198 -------------------- 2199 -- Initialize_147 -- 2200 -------------------- 2201 2202 procedure Initialize_147 is 2203 begin 2204 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2205 (Base + 147, 2206 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0090'Access); 2207 end Initialize_147; 2208 2209 -------------------- 2210 -- Initialize_148 -- 2211 -------------------- 2212 2213 procedure Initialize_148 is 2214 begin 2215 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2216 (Base + 148, 2217 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 2218 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 148, (Is_Empty => True)); 2219 end Initialize_148; 2220 2221 -------------------- 2222 -- Initialize_149 -- 2223 -------------------- 2224 2225 procedure Initialize_149 is 2226 begin 2227 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2228 (Base + 149, 2229 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0067'Access); 2230 end Initialize_149; 2231 2232 -------------------- 2233 -- Initialize_150 -- 2234 -------------------- 2235 2236 procedure Initialize_150 is 2237 begin 2238 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 150, (Is_Empty => True)); 2239 end Initialize_150; 2240 2241 -------------------- 2242 -- Initialize_151 -- 2243 -------------------- 2244 2245 procedure Initialize_151 is 2246 begin 2247 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2248 (Base + 151, 2249 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0015'Access); 2250 end Initialize_151; 2251 2252 -------------------- 2253 -- Initialize_152 -- 2254 -------------------- 2255 2256 procedure Initialize_152 is 2257 begin 2258 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2259 (Base + 152, 2260 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C7'Access); 2261 end Initialize_152; 2262 2263 -------------------- 2264 -- Initialize_153 -- 2265 -------------------- 2266 2267 procedure Initialize_153 is 2268 begin 2269 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2270 (Base + 153, 2271 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B6'Access); 2272 end Initialize_153; 2273 2274 -------------------- 2275 -- Initialize_154 -- 2276 -------------------- 2277 2278 procedure Initialize_154 is 2279 begin 2280 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2281 (Base + 154, 2282 AMF.Internals.Tables.UMLDI_String_Data_00.MS_008C'Access); 2283 end Initialize_154; 2284 2285 -------------------- 2286 -- Initialize_155 -- 2287 -------------------- 2288 2289 procedure Initialize_155 is 2290 begin 2291 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2292 (Base + 155, 2293 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0060'Access); 2294 end Initialize_155; 2295 2296 -------------------- 2297 -- Initialize_156 -- 2298 -------------------- 2299 2300 procedure Initialize_156 is 2301 begin 2302 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2303 (Base + 156, 2304 AMF.Internals.Tables.UMLDI_String_Data_00.MS_004D'Access); 2305 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 156, (Is_Empty => True)); 2306 end Initialize_156; 2307 2308 -------------------- 2309 -- Initialize_157 -- 2310 -------------------- 2311 2312 procedure Initialize_157 is 2313 begin 2314 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2315 (Base + 157, 2316 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0003'Access); 2317 end Initialize_157; 2318 2319 -------------------- 2320 -- Initialize_158 -- 2321 -------------------- 2322 2323 procedure Initialize_158 is 2324 begin 2325 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 158, (Is_Empty => True)); 2326 end Initialize_158; 2327 2328 -------------------- 2329 -- Initialize_159 -- 2330 -------------------- 2331 2332 procedure Initialize_159 is 2333 begin 2334 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2335 (Base + 159, 2336 AMF.Internals.Tables.UMLDI_String_Data_00.MS_005D'Access); 2337 end Initialize_159; 2338 2339 -------------------- 2340 -- Initialize_160 -- 2341 -------------------- 2342 2343 procedure Initialize_160 is 2344 begin 2345 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2346 (Base + 160, 2347 AMF.Internals.Tables.UMLDI_String_Data_00.MS_001C'Access); 2348 end Initialize_160; 2349 2350 -------------------- 2351 -- Initialize_161 -- 2352 -------------------- 2353 2354 procedure Initialize_161 is 2355 begin 2356 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2357 (Base + 161, 2358 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003A'Access); 2359 end Initialize_161; 2360 2361 -------------------- 2362 -- Initialize_162 -- 2363 -------------------- 2364 2365 procedure Initialize_162 is 2366 begin 2367 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2368 (Base + 162, 2369 AMF.Internals.Tables.UMLDI_String_Data_00.MS_008E'Access); 2370 end Initialize_162; 2371 2372 -------------------- 2373 -- Initialize_163 -- 2374 -------------------- 2375 2376 procedure Initialize_163 is 2377 begin 2378 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2379 (Base + 163, 2380 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 2381 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 163, (Is_Empty => True)); 2382 end Initialize_163; 2383 2384 -------------------- 2385 -- Initialize_164 -- 2386 -------------------- 2387 2388 procedure Initialize_164 is 2389 begin 2390 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2391 (Base + 164, 2392 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0022'Access); 2393 end Initialize_164; 2394 2395 -------------------- 2396 -- Initialize_165 -- 2397 -------------------- 2398 2399 procedure Initialize_165 is 2400 begin 2401 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 165, (Is_Empty => True)); 2402 end Initialize_165; 2403 2404 -------------------- 2405 -- Initialize_166 -- 2406 -------------------- 2407 2408 procedure Initialize_166 is 2409 begin 2410 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2411 (Base + 166, 2412 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0074'Access); 2413 end Initialize_166; 2414 2415 -------------------- 2416 -- Initialize_167 -- 2417 -------------------- 2418 2419 procedure Initialize_167 is 2420 begin 2421 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2422 (Base + 167, 2423 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0045'Access); 2424 end Initialize_167; 2425 2426 -------------------- 2427 -- Initialize_168 -- 2428 -------------------- 2429 2430 procedure Initialize_168 is 2431 begin 2432 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2433 (Base + 168, 2434 AMF.Internals.Tables.UMLDI_String_Data_00.MS_000F'Access); 2435 end Initialize_168; 2436 2437 -------------------- 2438 -- Initialize_169 -- 2439 -------------------- 2440 2441 procedure Initialize_169 is 2442 begin 2443 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2444 (Base + 169, 2445 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0090'Access); 2446 end Initialize_169; 2447 2448 -------------------- 2449 -- Initialize_170 -- 2450 -------------------- 2451 2452 procedure Initialize_170 is 2453 begin 2454 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2455 (Base + 170, 2456 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 2457 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 170, (Is_Empty => True)); 2458 end Initialize_170; 2459 2460 -------------------- 2461 -- Initialize_171 -- 2462 -------------------- 2463 2464 procedure Initialize_171 is 2465 begin 2466 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 171, (Is_Empty => True)); 2467 end Initialize_171; 2468 2469 -------------------- 2470 -- Initialize_172 -- 2471 -------------------- 2472 2473 procedure Initialize_172 is 2474 begin 2475 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2476 (Base + 172, 2477 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0029'Access); 2478 end Initialize_172; 2479 2480 -------------------- 2481 -- Initialize_173 -- 2482 -------------------- 2483 2484 procedure Initialize_173 is 2485 begin 2486 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2487 (Base + 173, 2488 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C4'Access); 2489 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 173, (Is_Empty => True)); 2490 end Initialize_173; 2491 2492 -------------------- 2493 -- Initialize_174 -- 2494 -------------------- 2495 2496 procedure Initialize_174 is 2497 begin 2498 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2499 (Base + 174, 2500 AMF.Internals.Tables.UMLDI_String_Data_00.MS_005B'Access); 2501 end Initialize_174; 2502 2503 -------------------- 2504 -- Initialize_175 -- 2505 -------------------- 2506 2507 procedure Initialize_175 is 2508 begin 2509 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 175, (Is_Empty => True)); 2510 end Initialize_175; 2511 2512 -------------------- 2513 -- Initialize_176 -- 2514 -------------------- 2515 2516 procedure Initialize_176 is 2517 begin 2518 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2519 (Base + 176, 2520 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AD'Access); 2521 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 176, (Is_Empty => True)); 2522 end Initialize_176; 2523 2524 -------------------- 2525 -- Initialize_177 -- 2526 -------------------- 2527 2528 procedure Initialize_177 is 2529 begin 2530 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2531 (Base + 177, 2532 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A7'Access); 2533 end Initialize_177; 2534 2535 -------------------- 2536 -- Initialize_178 -- 2537 -------------------- 2538 2539 procedure Initialize_178 is 2540 begin 2541 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 178, (Is_Empty => True)); 2542 end Initialize_178; 2543 2544 -------------------- 2545 -- Initialize_179 -- 2546 -------------------- 2547 2548 procedure Initialize_179 is 2549 begin 2550 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2551 (Base + 179, 2552 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0090'Access); 2553 end Initialize_179; 2554 2555 -------------------- 2556 -- Initialize_180 -- 2557 -------------------- 2558 2559 procedure Initialize_180 is 2560 begin 2561 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2562 (Base + 180, 2563 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 2564 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 180, (Is_Empty => True)); 2565 end Initialize_180; 2566 2567 -------------------- 2568 -- Initialize_181 -- 2569 -------------------- 2570 2571 procedure Initialize_181 is 2572 begin 2573 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2574 (Base + 181, 2575 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0051'Access); 2576 end Initialize_181; 2577 2578 -------------------- 2579 -- Initialize_182 -- 2580 -------------------- 2581 2582 procedure Initialize_182 is 2583 begin 2584 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 182, (Is_Empty => True)); 2585 end Initialize_182; 2586 2587 -------------------- 2588 -- Initialize_183 -- 2589 -------------------- 2590 2591 procedure Initialize_183 is 2592 begin 2593 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2594 (Base + 183, 2595 AMF.Internals.Tables.UMLDI_String_Data_00.MS_008B'Access); 2596 end Initialize_183; 2597 2598 -------------------- 2599 -- Initialize_184 -- 2600 -------------------- 2601 2602 procedure Initialize_184 is 2603 begin 2604 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2605 (Base + 184, 2606 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0012'Access); 2607 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 184, (Is_Empty => True)); 2608 end Initialize_184; 2609 2610 -------------------- 2611 -- Initialize_185 -- 2612 -------------------- 2613 2614 procedure Initialize_185 is 2615 begin 2616 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2617 (Base + 185, 2618 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0056'Access); 2619 end Initialize_185; 2620 2621 -------------------- 2622 -- Initialize_186 -- 2623 -------------------- 2624 2625 procedure Initialize_186 is 2626 begin 2627 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 186, (Is_Empty => True)); 2628 end Initialize_186; 2629 2630 -------------------- 2631 -- Initialize_187 -- 2632 -------------------- 2633 2634 procedure Initialize_187 is 2635 begin 2636 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2637 (Base + 187, 2638 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0058'Access); 2639 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 187, (Is_Empty => True)); 2640 end Initialize_187; 2641 2642 -------------------- 2643 -- Initialize_188 -- 2644 -------------------- 2645 2646 procedure Initialize_188 is 2647 begin 2648 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2649 (Base + 188, 2650 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0030'Access); 2651 end Initialize_188; 2652 2653 -------------------- 2654 -- Initialize_189 -- 2655 -------------------- 2656 2657 procedure Initialize_189 is 2658 begin 2659 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 189, (Is_Empty => True)); 2660 end Initialize_189; 2661 2662 -------------------- 2663 -- Initialize_190 -- 2664 -------------------- 2665 2666 procedure Initialize_190 is 2667 begin 2668 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2669 (Base + 190, 2670 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00CD'Access); 2671 end Initialize_190; 2672 2673 -------------------- 2674 -- Initialize_191 -- 2675 -------------------- 2676 2677 procedure Initialize_191 is 2678 begin 2679 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2680 (Base + 191, 2681 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0080'Access); 2682 end Initialize_191; 2683 2684 -------------------- 2685 -- Initialize_192 -- 2686 -------------------- 2687 2688 procedure Initialize_192 is 2689 begin 2690 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2691 (Base + 192, 2692 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0069'Access); 2693 end Initialize_192; 2694 2695 -------------------- 2696 -- Initialize_193 -- 2697 -------------------- 2698 2699 procedure Initialize_193 is 2700 begin 2701 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2702 (Base + 193, 2703 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D1'Access); 2704 end Initialize_193; 2705 2706 -------------------- 2707 -- Initialize_194 -- 2708 -------------------- 2709 2710 procedure Initialize_194 is 2711 begin 2712 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2713 (Base + 194, 2714 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00CC'Access); 2715 end Initialize_194; 2716 2717 -------------------- 2718 -- Initialize_195 -- 2719 -------------------- 2720 2721 procedure Initialize_195 is 2722 begin 2723 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2724 (Base + 195, 2725 AMF.Internals.Tables.UMLDI_String_Data_00.MS_002C'Access); 2726 end Initialize_195; 2727 2728 -------------------- 2729 -- Initialize_196 -- 2730 -------------------- 2731 2732 procedure Initialize_196 is 2733 begin 2734 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2735 (Base + 196, 2736 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0049'Access); 2737 end Initialize_196; 2738 2739 -------------------- 2740 -- Initialize_197 -- 2741 -------------------- 2742 2743 procedure Initialize_197 is 2744 begin 2745 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2746 (Base + 197, 2747 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0063'Access); 2748 end Initialize_197; 2749 2750 -------------------- 2751 -- Initialize_198 -- 2752 -------------------- 2753 2754 procedure Initialize_198 is 2755 begin 2756 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2757 (Base + 198, 2758 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0007'Access); 2759 end Initialize_198; 2760 2761 -------------------- 2762 -- Initialize_199 -- 2763 -------------------- 2764 2765 procedure Initialize_199 is 2766 begin 2767 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2768 (Base + 199, 2769 AMF.Internals.Tables.UMLDI_String_Data_00.MS_006E'Access); 2770 end Initialize_199; 2771 2772 -------------------- 2773 -- Initialize_200 -- 2774 -------------------- 2775 2776 procedure Initialize_200 is 2777 begin 2778 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2779 (Base + 200, 2780 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0023'Access); 2781 end Initialize_200; 2782 2783 -------------------- 2784 -- Initialize_201 -- 2785 -------------------- 2786 2787 procedure Initialize_201 is 2788 begin 2789 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2790 (Base + 201, 2791 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D8'Access); 2792 end Initialize_201; 2793 2794 -------------------- 2795 -- Initialize_202 -- 2796 -------------------- 2797 2798 procedure Initialize_202 is 2799 begin 2800 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2801 (Base + 202, 2802 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0085'Access); 2803 end Initialize_202; 2804 2805 -------------------- 2806 -- Initialize_203 -- 2807 -------------------- 2808 2809 procedure Initialize_203 is 2810 begin 2811 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2812 (Base + 203, 2813 AMF.Internals.Tables.UMLDI_String_Data_00.MS_009C'Access); 2814 end Initialize_203; 2815 2816 -------------------- 2817 -- Initialize_204 -- 2818 -------------------- 2819 2820 procedure Initialize_204 is 2821 begin 2822 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2823 (Base + 204, 2824 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0061'Access); 2825 end Initialize_204; 2826 2827 -------------------- 2828 -- Initialize_205 -- 2829 -------------------- 2830 2831 procedure Initialize_205 is 2832 begin 2833 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2834 (Base + 205, 2835 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E4'Access); 2836 end Initialize_205; 2837 2838 -------------------- 2839 -- Initialize_206 -- 2840 -------------------- 2841 2842 procedure Initialize_206 is 2843 begin 2844 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2845 (Base + 206, 2846 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0034'Access); 2847 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 206, (Is_Empty => True)); 2848 end Initialize_206; 2849 2850 -------------------- 2851 -- Initialize_207 -- 2852 -------------------- 2853 2854 procedure Initialize_207 is 2855 begin 2856 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2857 (Base + 207, 2858 AMF.Internals.Tables.UMLDI_String_Data_00.MS_000C'Access); 2859 end Initialize_207; 2860 2861 -------------------- 2862 -- Initialize_208 -- 2863 -------------------- 2864 2865 procedure Initialize_208 is 2866 begin 2867 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 208, (Is_Empty => True)); 2868 end Initialize_208; 2869 2870 -------------------- 2871 -- Initialize_209 -- 2872 -------------------- 2873 2874 procedure Initialize_209 is 2875 begin 2876 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2877 (Base + 209, 2878 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00EB'Access); 2879 end Initialize_209; 2880 2881 -------------------- 2882 -- Initialize_210 -- 2883 -------------------- 2884 2885 procedure Initialize_210 is 2886 begin 2887 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2888 (Base + 210, 2889 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C4'Access); 2890 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 210, (Is_Empty => True)); 2891 end Initialize_210; 2892 2893 -------------------- 2894 -- Initialize_211 -- 2895 -------------------- 2896 2897 procedure Initialize_211 is 2898 begin 2899 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2900 (Base + 211, 2901 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003B'Access); 2902 end Initialize_211; 2903 2904 -------------------- 2905 -- Initialize_212 -- 2906 -------------------- 2907 2908 procedure Initialize_212 is 2909 begin 2910 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 212, (Is_Empty => True)); 2911 end Initialize_212; 2912 2913 -------------------- 2914 -- Initialize_213 -- 2915 -------------------- 2916 2917 procedure Initialize_213 is 2918 begin 2919 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2920 (Base + 213, 2921 AMF.Internals.Tables.UMLDI_String_Data_00.MS_001F'Access); 2922 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 213, (Is_Empty => True)); 2923 end Initialize_213; 2924 2925 -------------------- 2926 -- Initialize_214 -- 2927 -------------------- 2928 2929 procedure Initialize_214 is 2930 begin 2931 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2932 (Base + 214, 2933 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0064'Access); 2934 end Initialize_214; 2935 2936 -------------------- 2937 -- Initialize_215 -- 2938 -------------------- 2939 2940 procedure Initialize_215 is 2941 begin 2942 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 215, (Is_Empty => True)); 2943 end Initialize_215; 2944 2945 -------------------- 2946 -- Initialize_216 -- 2947 -------------------- 2948 2949 procedure Initialize_216 is 2950 begin 2951 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2952 (Base + 216, 2953 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0005'Access); 2954 end Initialize_216; 2955 2956 -------------------- 2957 -- Initialize_217 -- 2958 -------------------- 2959 2960 procedure Initialize_217 is 2961 begin 2962 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2963 (Base + 217, 2964 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AA'Access); 2965 end Initialize_217; 2966 2967 -------------------- 2968 -- Initialize_218 -- 2969 -------------------- 2970 2971 procedure Initialize_218 is 2972 begin 2973 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2974 (Base + 218, 2975 AMF.Internals.Tables.UMLDI_String_Data_00.MS_002F'Access); 2976 end Initialize_218; 2977 2978 -------------------- 2979 -- Initialize_219 -- 2980 -------------------- 2981 2982 procedure Initialize_219 is 2983 begin 2984 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2985 (Base + 219, 2986 AMF.Internals.Tables.UMLDI_String_Data_00.MS_005C'Access); 2987 end Initialize_219; 2988 2989 -------------------- 2990 -- Initialize_220 -- 2991 -------------------- 2992 2993 procedure Initialize_220 is 2994 begin 2995 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2996 (Base + 220, 2997 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0078'Access); 2998 end Initialize_220; 2999 3000 -------------------- 3001 -- Initialize_221 -- 3002 -------------------- 3003 3004 procedure Initialize_221 is 3005 begin 3006 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3007 (Base + 221, 3008 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0090'Access); 3009 end Initialize_221; 3010 3011 -------------------- 3012 -- Initialize_222 -- 3013 -------------------- 3014 3015 procedure Initialize_222 is 3016 begin 3017 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3018 (Base + 222, 3019 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 3020 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 222, (Is_Empty => True)); 3021 end Initialize_222; 3022 3023 -------------------- 3024 -- Initialize_223 -- 3025 -------------------- 3026 3027 procedure Initialize_223 is 3028 begin 3029 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3030 (Base + 223, 3031 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D5'Access); 3032 end Initialize_223; 3033 3034 -------------------- 3035 -- Initialize_224 -- 3036 -------------------- 3037 3038 procedure Initialize_224 is 3039 begin 3040 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 224, (Is_Empty => True)); 3041 end Initialize_224; 3042 3043 -------------------- 3044 -- Initialize_225 -- 3045 -------------------- 3046 3047 procedure Initialize_225 is 3048 begin 3049 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3050 (Base + 225, 3051 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0090'Access); 3052 end Initialize_225; 3053 3054 -------------------- 3055 -- Initialize_226 -- 3056 -------------------- 3057 3058 procedure Initialize_226 is 3059 begin 3060 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3061 (Base + 226, 3062 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 3063 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 226, (Is_Empty => True)); 3064 end Initialize_226; 3065 3066 -------------------- 3067 -- Initialize_227 -- 3068 -------------------- 3069 3070 procedure Initialize_227 is 3071 begin 3072 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3073 (Base + 227, 3074 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B9'Access); 3075 end Initialize_227; 3076 3077 -------------------- 3078 -- Initialize_228 -- 3079 -------------------- 3080 3081 procedure Initialize_228 is 3082 begin 3083 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 228, (Is_Empty => True)); 3084 end Initialize_228; 3085 3086 -------------------- 3087 -- Initialize_229 -- 3088 -------------------- 3089 3090 procedure Initialize_229 is 3091 begin 3092 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3093 (Base + 229, 3094 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0090'Access); 3095 end Initialize_229; 3096 3097 -------------------- 3098 -- Initialize_230 -- 3099 -------------------- 3100 3101 procedure Initialize_230 is 3102 begin 3103 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3104 (Base + 230, 3105 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 3106 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 230, (Is_Empty => True)); 3107 end Initialize_230; 3108 3109 -------------------- 3110 -- Initialize_231 -- 3111 -------------------- 3112 3113 procedure Initialize_231 is 3114 begin 3115 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3116 (Base + 231, 3117 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F0'Access); 3118 end Initialize_231; 3119 3120 -------------------- 3121 -- Initialize_232 -- 3122 -------------------- 3123 3124 procedure Initialize_232 is 3125 begin 3126 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 232, (Is_Empty => True)); 3127 end Initialize_232; 3128 3129 -------------------- 3130 -- Initialize_233 -- 3131 -------------------- 3132 3133 procedure Initialize_233 is 3134 begin 3135 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3136 (Base + 233, 3137 AMF.Internals.Tables.UMLDI_String_Data_00.MS_001D'Access); 3138 end Initialize_233; 3139 3140 -------------------- 3141 -- Initialize_234 -- 3142 -------------------- 3143 3144 procedure Initialize_234 is 3145 begin 3146 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3147 (Base + 234, 3148 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E1'Access); 3149 end Initialize_234; 3150 3151 -------------------- 3152 -- Initialize_235 -- 3153 -------------------- 3154 3155 procedure Initialize_235 is 3156 begin 3157 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3158 (Base + 235, 3159 AMF.Internals.Tables.UMLDI_String_Data_00.MS_009A'Access); 3160 end Initialize_235; 3161 3162 -------------------- 3163 -- Initialize_236 -- 3164 -------------------- 3165 3166 procedure Initialize_236 is 3167 begin 3168 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3169 (Base + 236, 3170 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0068'Access); 3171 end Initialize_236; 3172 3173 -------------------- 3174 -- Initialize_237 -- 3175 -------------------- 3176 3177 procedure Initialize_237 is 3178 begin 3179 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3180 (Base + 237, 3181 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BA'Access); 3182 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 237, (Is_Empty => True)); 3183 end Initialize_237; 3184 3185 -------------------- 3186 -- Initialize_238 -- 3187 -------------------- 3188 3189 procedure Initialize_238 is 3190 begin 3191 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3192 (Base + 238, 3193 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E6'Access); 3194 end Initialize_238; 3195 3196 -------------------- 3197 -- Initialize_239 -- 3198 -------------------- 3199 3200 procedure Initialize_239 is 3201 begin 3202 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 239, (Is_Empty => True)); 3203 end Initialize_239; 3204 3205 -------------------- 3206 -- Initialize_240 -- 3207 -------------------- 3208 3209 procedure Initialize_240 is 3210 begin 3211 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3212 (Base + 240, 3213 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B1'Access); 3214 end Initialize_240; 3215 3216 -------------------- 3217 -- Initialize_241 -- 3218 -------------------- 3219 3220 procedure Initialize_241 is 3221 begin 3222 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3223 (Base + 241, 3224 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A4'Access); 3225 end Initialize_241; 3226 3227 -------------------- 3228 -- Initialize_242 -- 3229 -------------------- 3230 3231 procedure Initialize_242 is 3232 begin 3233 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3234 (Base + 242, 3235 AMF.Internals.Tables.UMLDI_String_Data_00.MS_009F'Access); 3236 end Initialize_242; 3237 3238 -------------------- 3239 -- Initialize_243 -- 3240 -------------------- 3241 3242 procedure Initialize_243 is 3243 begin 3244 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3245 (Base + 243, 3246 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0026'Access); 3247 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 243, (Is_Empty => True)); 3248 end Initialize_243; 3249 3250 -------------------- 3251 -- Initialize_244 -- 3252 -------------------- 3253 3254 procedure Initialize_244 is 3255 begin 3256 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3257 (Base + 244, 3258 AMF.Internals.Tables.UMLDI_String_Data_00.MS_008A'Access); 3259 end Initialize_244; 3260 3261 -------------------- 3262 -- Initialize_245 -- 3263 -------------------- 3264 3265 procedure Initialize_245 is 3266 begin 3267 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 245, (Is_Empty => True)); 3268 end Initialize_245; 3269 3270 -------------------- 3271 -- Initialize_246 -- 3272 -------------------- 3273 3274 procedure Initialize_246 is 3275 begin 3276 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3277 (Base + 246, 3278 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0087'Access); 3279 end Initialize_246; 3280 3281 -------------------- 3282 -- Initialize_247 -- 3283 -------------------- 3284 3285 procedure Initialize_247 is 3286 begin 3287 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3288 (Base + 247, 3289 AMF.Internals.Tables.UMLDI_String_Data_00.MS_002A'Access); 3290 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 247, (Is_Empty => True)); 3291 end Initialize_247; 3292 3293 -------------------- 3294 -- Initialize_248 -- 3295 -------------------- 3296 3297 procedure Initialize_248 is 3298 begin 3299 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3300 (Base + 248, 3301 AMF.Internals.Tables.UMLDI_String_Data_00.MS_009D'Access); 3302 end Initialize_248; 3303 3304 -------------------- 3305 -- Initialize_249 -- 3306 -------------------- 3307 3308 procedure Initialize_249 is 3309 begin 3310 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 249, (Is_Empty => True)); 3311 end Initialize_249; 3312 3313 -------------------- 3314 -- Initialize_250 -- 3315 -------------------- 3316 3317 procedure Initialize_250 is 3318 begin 3319 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3320 (Base + 250, 3321 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00DE'Access); 3322 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 250, (Is_Empty => True)); 3323 end Initialize_250; 3324 3325 -------------------- 3326 -- Initialize_251 -- 3327 -------------------- 3328 3329 procedure Initialize_251 is 3330 begin 3331 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3332 (Base + 251, 3333 AMF.Internals.Tables.UMLDI_String_Data_00.MS_007C'Access); 3334 end Initialize_251; 3335 3336 -------------------- 3337 -- Initialize_252 -- 3338 -------------------- 3339 3340 procedure Initialize_252 is 3341 begin 3342 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3343 (Base + 252, 3344 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0071'Access); 3345 end Initialize_252; 3346 3347 -------------------- 3348 -- Initialize_253 -- 3349 -------------------- 3350 3351 procedure Initialize_253 is 3352 begin 3353 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3354 (Base + 253, 3355 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C3'Access); 3356 end Initialize_253; 3357 3358 -------------------- 3359 -- Initialize_254 -- 3360 -------------------- 3361 3362 procedure Initialize_254 is 3363 begin 3364 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3365 (Base + 254, 3366 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0019'Access); 3367 end Initialize_254; 3368 3369 -------------------- 3370 -- Initialize_255 -- 3371 -------------------- 3372 3373 procedure Initialize_255 is 3374 begin 3375 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3376 (Base + 255, 3377 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0072'Access); 3378 end Initialize_255; 3379 3380 -------------------- 3381 -- Initialize_256 -- 3382 -------------------- 3383 3384 procedure Initialize_256 is 3385 begin 3386 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3387 (Base + 256, 3388 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00EF'Access); 3389 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 256, (Is_Empty => True)); 3390 end Initialize_256; 3391 3392 -------------------- 3393 -- Initialize_257 -- 3394 -------------------- 3395 3396 procedure Initialize_257 is 3397 begin 3398 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3399 (Base + 257, 3400 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003C'Access); 3401 end Initialize_257; 3402 3403 -------------------- 3404 -- Initialize_258 -- 3405 -------------------- 3406 3407 procedure Initialize_258 is 3408 begin 3409 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 258, (Is_Empty => True)); 3410 end Initialize_258; 3411 3412 -------------------- 3413 -- Initialize_259 -- 3414 -------------------- 3415 3416 procedure Initialize_259 is 3417 begin 3418 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3419 (Base + 259, 3420 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0076'Access); 3421 end Initialize_259; 3422 3423 -------------------- 3424 -- Initialize_260 -- 3425 -------------------- 3426 3427 procedure Initialize_260 is 3428 begin 3429 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3430 (Base + 260, 3431 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0057'Access); 3432 end Initialize_260; 3433 3434 -------------------- 3435 -- Initialize_261 -- 3436 -------------------- 3437 3438 procedure Initialize_261 is 3439 begin 3440 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3441 (Base + 261, 3442 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00DB'Access); 3443 end Initialize_261; 3444 3445 -------------------- 3446 -- Initialize_262 -- 3447 -------------------- 3448 3449 procedure Initialize_262 is 3450 begin 3451 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3452 (Base + 262, 3453 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C4'Access); 3454 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 262, (Is_Empty => True)); 3455 end Initialize_262; 3456 3457 -------------------- 3458 -- Initialize_263 -- 3459 -------------------- 3460 3461 procedure Initialize_263 is 3462 begin 3463 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3464 (Base + 263, 3465 AMF.Internals.Tables.UMLDI_String_Data_00.MS_001A'Access); 3466 end Initialize_263; 3467 3468 -------------------- 3469 -- Initialize_264 -- 3470 -------------------- 3471 3472 procedure Initialize_264 is 3473 begin 3474 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 264, (Is_Empty => True)); 3475 end Initialize_264; 3476 3477 -------------------- 3478 -- Initialize_265 -- 3479 -------------------- 3480 3481 procedure Initialize_265 is 3482 begin 3483 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3484 (Base + 265, 3485 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AD'Access); 3486 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 265, (Is_Empty => True)); 3487 end Initialize_265; 3488 3489 -------------------- 3490 -- Initialize_266 -- 3491 -------------------- 3492 3493 procedure Initialize_266 is 3494 begin 3495 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3496 (Base + 266, 3497 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00DD'Access); 3498 end Initialize_266; 3499 3500 -------------------- 3501 -- Initialize_267 -- 3502 -------------------- 3503 3504 procedure Initialize_267 is 3505 begin 3506 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 267, (Is_Empty => True)); 3507 end Initialize_267; 3508 3509 -------------------- 3510 -- Initialize_268 -- 3511 -------------------- 3512 3513 procedure Initialize_268 is 3514 begin 3515 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3516 (Base + 268, 3517 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0090'Access); 3518 end Initialize_268; 3519 3520 -------------------- 3521 -- Initialize_269 -- 3522 -------------------- 3523 3524 procedure Initialize_269 is 3525 begin 3526 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3527 (Base + 269, 3528 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0001'Access); 3529 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 269, (Is_Empty => True)); 3530 end Initialize_269; 3531 3532 -------------------- 3533 -- Initialize_270 -- 3534 -------------------- 3535 3536 procedure Initialize_270 is 3537 begin 3538 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3539 (Base + 270, 3540 AMF.Internals.Tables.UMLDI_String_Data_00.MS_005F'Access); 3541 end Initialize_270; 3542 3543 -------------------- 3544 -- Initialize_271 -- 3545 -------------------- 3546 3547 procedure Initialize_271 is 3548 begin 3549 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 271, (Is_Empty => True)); 3550 end Initialize_271; 3551 3552 -------------------- 3553 -- Initialize_272 -- 3554 -------------------- 3555 3556 procedure Initialize_272 is 3557 begin 3558 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3559 (Base + 272, 3560 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A6'Access); 3561 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 272, (Is_Empty => True)); 3562 end Initialize_272; 3563 3564 -------------------- 3565 -- Initialize_273 -- 3566 -------------------- 3567 3568 procedure Initialize_273 is 3569 begin 3570 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3571 (Base + 273, 3572 AMF.Internals.Tables.UMLDI_String_Data_00.MS_000E'Access); 3573 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 273, (Is_Empty => True)); 3574 end Initialize_273; 3575 3576 -------------------- 3577 -- Initialize_274 -- 3578 -------------------- 3579 3580 procedure Initialize_274 is 3581 begin 3582 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3583 (Base + 274, 3584 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0054'Access); 3585 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 274, (Is_Empty => True)); 3586 end Initialize_274; 3587 3588 -------------------- 3589 -- Initialize_275 -- 3590 -------------------- 3591 3592 procedure Initialize_275 is 3593 begin 3594 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3595 (Base + 275, 3596 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0010'Access); 3597 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 275, (Is_Empty => True)); 3598 end Initialize_275; 3599 3600 -------------------- 3601 -- Initialize_276 -- 3602 -------------------- 3603 3604 procedure Initialize_276 is 3605 begin 3606 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3607 (Base + 276, 3608 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0073'Access); 3609 end Initialize_276; 3610 3611 -------------------- 3612 -- Initialize_277 -- 3613 -------------------- 3614 3615 procedure Initialize_277 is 3616 begin 3617 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3618 (Base + 277, 3619 AMF.Internals.Tables.UMLDI_String_Data_00.MS_009B'Access); 3620 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 277, (Is_Empty => True)); 3621 end Initialize_277; 3622 3623 -------------------- 3624 -- Initialize_278 -- 3625 -------------------- 3626 3627 procedure Initialize_278 is 3628 begin 3629 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3630 (Base + 278, 3631 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0094'Access); 3632 end Initialize_278; 3633 3634 -------------------- 3635 -- Initialize_279 -- 3636 -------------------- 3637 3638 procedure Initialize_279 is 3639 begin 3640 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3641 (Base + 279, 3642 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0025'Access); 3643 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 279, (Is_Empty => True)); 3644 end Initialize_279; 3645 3646 -------------------- 3647 -- Initialize_280 -- 3648 -------------------- 3649 3650 procedure Initialize_280 is 3651 begin 3652 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3653 (Base + 280, 3654 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0089'Access); 3655 end Initialize_280; 3656 3657 -------------------- 3658 -- Initialize_281 -- 3659 -------------------- 3660 3661 procedure Initialize_281 is 3662 begin 3663 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3664 (Base + 281, 3665 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0070'Access); 3666 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 281, (Is_Empty => True)); 3667 end Initialize_281; 3668 3669 -------------------- 3670 -- Initialize_282 -- 3671 -------------------- 3672 3673 procedure Initialize_282 is 3674 begin 3675 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3676 (Base + 282, 3677 AMF.Internals.Tables.UMLDI_String_Data_00.MS_006C'Access); 3678 end Initialize_282; 3679 3680 -------------------- 3681 -- Initialize_283 -- 3682 -------------------- 3683 3684 procedure Initialize_283 is 3685 begin 3686 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3687 (Base + 283, 3688 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E8'Access); 3689 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 283, (Is_Empty => True)); 3690 end Initialize_283; 3691 3692 -------------------- 3693 -- Initialize_284 -- 3694 -------------------- 3695 3696 procedure Initialize_284 is 3697 begin 3698 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3699 (Base + 284, 3700 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B0'Access); 3701 end Initialize_284; 3702 3703 -------------------- 3704 -- Initialize_285 -- 3705 -------------------- 3706 3707 procedure Initialize_285 is 3708 begin 3709 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3710 (Base + 285, 3711 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0028'Access); 3712 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 285, (Is_Empty => True)); 3713 end Initialize_285; 3714 3715 -------------------- 3716 -- Initialize_286 -- 3717 -------------------- 3718 3719 procedure Initialize_286 is 3720 begin 3721 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3722 (Base + 286, 3723 AMF.Internals.Tables.UMLDI_String_Data_00.MS_006B'Access); 3724 end Initialize_286; 3725 3726 -------------------- 3727 -- Initialize_287 -- 3728 -------------------- 3729 3730 procedure Initialize_287 is 3731 begin 3732 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3733 (Base + 287, 3734 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0042'Access); 3735 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 287, (Is_Empty => True)); 3736 end Initialize_287; 3737 3738 -------------------- 3739 -- Initialize_288 -- 3740 -------------------- 3741 3742 procedure Initialize_288 is 3743 begin 3744 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3745 (Base + 288, 3746 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0046'Access); 3747 end Initialize_288; 3748 3749 -------------------- 3750 -- Initialize_289 -- 3751 -------------------- 3752 3753 procedure Initialize_289 is 3754 begin 3755 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3756 (Base + 289, 3757 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0095'Access); 3758 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 289, (Is_Empty => True)); 3759 end Initialize_289; 3760 3761 -------------------- 3762 -- Initialize_290 -- 3763 -------------------- 3764 3765 procedure Initialize_290 is 3766 begin 3767 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3768 (Base + 290, 3769 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0053'Access); 3770 end Initialize_290; 3771 3772 -------------------- 3773 -- Initialize_291 -- 3774 -------------------- 3775 3776 procedure Initialize_291 is 3777 begin 3778 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3779 (Base + 291, 3780 AMF.Internals.Tables.UMLDI_String_Data_00.MS_006A'Access); 3781 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 291, (Is_Empty => True)); 3782 end Initialize_291; 3783 3784 -------------------- 3785 -- Initialize_292 -- 3786 -------------------- 3787 3788 procedure Initialize_292 is 3789 begin 3790 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 3791 (Base + 292, 3792 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0009'Access); 3793 end Initialize_292; 3794 3795 -------------------- 3796 -- Initialize_293 -- 3797 -------------------- 3798 3799 procedure Initialize_293 is 3800 begin 3801 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3802 (Base + 293, 3803 AMF.Internals.Tables.UMLDI_String_Data_00.MS_006D'Access); 3804 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 293, (Is_Empty => True)); 3805 end Initialize_293; 3806 3807 -------------------- 3808 -- Initialize_294 -- 3809 -------------------- 3810 3811 procedure Initialize_294 is 3812 begin 3813 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3814 (Base + 294, 3815 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A2'Access); 3816 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 294, (Is_Empty => True)); 3817 end Initialize_294; 3818 3819 -------------------- 3820 -- Initialize_295 -- 3821 -------------------- 3822 3823 procedure Initialize_295 is 3824 begin 3825 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3826 (Base + 295, 3827 AMF.Internals.Tables.UMLDI_String_Data_00.MS_003E'Access); 3828 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 295, (Is_Empty => True)); 3829 end Initialize_295; 3830 3831 -------------------- 3832 -- Initialize_296 -- 3833 -------------------- 3834 3835 procedure Initialize_296 is 3836 begin 3837 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3838 (Base + 296, 3839 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0052'Access); 3840 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 296, (Is_Empty => True)); 3841 end Initialize_296; 3842 3843 -------------------- 3844 -- Initialize_297 -- 3845 -------------------- 3846 3847 procedure Initialize_297 is 3848 begin 3849 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3850 (Base + 297, 3851 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E5'Access); 3852 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 297, (Is_Empty => True)); 3853 end Initialize_297; 3854 3855 -------------------- 3856 -- Initialize_298 -- 3857 -------------------- 3858 3859 procedure Initialize_298 is 3860 begin 3861 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3862 (Base + 298, 3863 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0037'Access); 3864 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 298, (Is_Empty => True)); 3865 end Initialize_298; 3866 3867 -------------------- 3868 -- Initialize_299 -- 3869 -------------------- 3870 3871 procedure Initialize_299 is 3872 begin 3873 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3874 (Base + 299, 3875 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00AE'Access); 3876 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 299, (Is_Empty => True)); 3877 end Initialize_299; 3878 3879 -------------------- 3880 -- Initialize_300 -- 3881 -------------------- 3882 3883 procedure Initialize_300 is 3884 begin 3885 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3886 (Base + 300, 3887 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0011'Access); 3888 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 300, (Is_Empty => True)); 3889 end Initialize_300; 3890 3891 -------------------- 3892 -- Initialize_301 -- 3893 -------------------- 3894 3895 procedure Initialize_301 is 3896 begin 3897 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3898 (Base + 301, 3899 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B3'Access); 3900 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 301, (Is_Empty => True)); 3901 end Initialize_301; 3902 3903 -------------------- 3904 -- Initialize_302 -- 3905 -------------------- 3906 3907 procedure Initialize_302 is 3908 begin 3909 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3910 (Base + 302, 3911 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0097'Access); 3912 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 302, (Is_Empty => True)); 3913 end Initialize_302; 3914 3915 -------------------- 3916 -- Initialize_303 -- 3917 -------------------- 3918 3919 procedure Initialize_303 is 3920 begin 3921 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3922 (Base + 303, 3923 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0044'Access); 3924 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 303, (Is_Empty => True)); 3925 end Initialize_303; 3926 3927 -------------------- 3928 -- Initialize_304 -- 3929 -------------------- 3930 3931 procedure Initialize_304 is 3932 begin 3933 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3934 (Base + 304, 3935 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0084'Access); 3936 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 304, (Is_Empty => True)); 3937 end Initialize_304; 3938 3939 -------------------- 3940 -- Initialize_305 -- 3941 -------------------- 3942 3943 procedure Initialize_305 is 3944 begin 3945 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3946 (Base + 305, 3947 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00D6'Access); 3948 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 305, (Is_Empty => True)); 3949 end Initialize_305; 3950 3951 -------------------- 3952 -- Initialize_306 -- 3953 -------------------- 3954 3955 procedure Initialize_306 is 3956 begin 3957 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3958 (Base + 306, 3959 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C6'Access); 3960 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 306, (Is_Empty => True)); 3961 end Initialize_306; 3962 3963 -------------------- 3964 -- Initialize_307 -- 3965 -------------------- 3966 3967 procedure Initialize_307 is 3968 begin 3969 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3970 (Base + 307, 3971 AMF.Internals.Tables.UMLDI_String_Data_00.MS_008D'Access); 3972 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 307, (Is_Empty => True)); 3973 end Initialize_307; 3974 3975 -------------------- 3976 -- Initialize_308 -- 3977 -------------------- 3978 3979 procedure Initialize_308 is 3980 begin 3981 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3982 (Base + 308, 3983 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00E3'Access); 3984 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 308, (Is_Empty => True)); 3985 end Initialize_308; 3986 3987 -------------------- 3988 -- Initialize_309 -- 3989 -------------------- 3990 3991 procedure Initialize_309 is 3992 begin 3993 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 3994 (Base + 309, 3995 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00C1'Access); 3996 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 309, (Is_Empty => True)); 3997 end Initialize_309; 3998 3999 -------------------- 4000 -- Initialize_310 -- 4001 -------------------- 4002 4003 procedure Initialize_310 is 4004 begin 4005 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 4006 (Base + 310, 4007 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F6'Access); 4008 end Initialize_310; 4009 4010 -------------------- 4011 -- Initialize_311 -- 4012 -------------------- 4013 4014 procedure Initialize_311 is 4015 begin 4016 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 4017 (Base + 311, 4018 AMF.Internals.Tables.UMLDI_String_Data_00.MS_001E'Access); 4019 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 311, (Is_Empty => True)); 4020 end Initialize_311; 4021 4022 -------------------- 4023 -- Initialize_312 -- 4024 -------------------- 4025 4026 procedure Initialize_312 is 4027 begin 4028 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 4029 (Base + 312, 4030 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00F5'Access); 4031 end Initialize_312; 4032 4033 -------------------- 4034 -- Initialize_313 -- 4035 -------------------- 4036 4037 procedure Initialize_313 is 4038 begin 4039 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 4040 (Base + 313, 4041 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00BD'Access); 4042 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 313, (Is_Empty => True)); 4043 end Initialize_313; 4044 4045 -------------------- 4046 -- Initialize_314 -- 4047 -------------------- 4048 4049 procedure Initialize_314 is 4050 begin 4051 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 4052 (Base + 314, 4053 AMF.Internals.Tables.UMLDI_String_Data_00.MS_005E'Access); 4054 end Initialize_314; 4055 4056 -------------------- 4057 -- Initialize_315 -- 4058 -------------------- 4059 4060 procedure Initialize_315 is 4061 begin 4062 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 4063 (Base + 315, 4064 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00B2'Access); 4065 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 315, (Is_Empty => True)); 4066 end Initialize_315; 4067 4068 -------------------- 4069 -- Initialize_316 -- 4070 -------------------- 4071 4072 procedure Initialize_316 is 4073 begin 4074 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 4075 (Base + 316, 4076 AMF.Internals.Tables.UMLDI_String_Data_00.MS_0035'Access); 4077 end Initialize_316; 4078 4079 -------------------- 4080 -- Initialize_317 -- 4081 -------------------- 4082 4083 procedure Initialize_317 is 4084 begin 4085 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 317, AMF.CMOF.Public_Visibility); 4086 end Initialize_317; 4087 4088 -------------------- 4089 -- Initialize_318 -- 4090 -------------------- 4091 4092 procedure Initialize_318 is 4093 begin 4094 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 318, AMF.CMOF.Public_Visibility); 4095 end Initialize_318; 4096 4097 -------------------- 4098 -- Initialize_319 -- 4099 -------------------- 4100 4101 procedure Initialize_319 is 4102 begin 4103 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 4104 (Base + 319, 4105 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00CB'Access); 4106 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value 4107 (Base + 319, 4108 AMF.Internals.Tables.UMLDI_String_Data_00.MS_00A5'Access); 4109 end Initialize_319; 4110 4111end AMF.Internals.Tables.UMLDI_Metamodel.Properties; 4112