1------------------------------------------------------------------------------ 2-- -- 3-- Matreshka Project -- 4-- -- 5-- Ada Modeling Framework -- 6-- -- 7-- Runtime Library Component -- 8-- -- 9------------------------------------------------------------------------------ 10-- -- 11-- Copyright © 2012, Vadim Godunko <vgodunko@gmail.com> -- 12-- All rights reserved. -- 13-- -- 14-- Redistribution and use in source and binary forms, with or without -- 15-- modification, are permitted provided that the following conditions -- 16-- are met: -- 17-- -- 18-- * Redistributions of source code must retain the above copyright -- 19-- notice, this list of conditions and the following disclaimer. -- 20-- -- 21-- * Redistributions in binary form must reproduce the above copyright -- 22-- notice, this list of conditions and the following disclaimer in the -- 23-- documentation and/or other materials provided with the distribution. -- 24-- -- 25-- * Neither the name of the Vadim Godunko, IE nor the names of its -- 26-- contributors may be used to endorse or promote products derived from -- 27-- this software without specific prior written permission. -- 28-- -- 29-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -- 30-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -- 31-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -- 32-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -- 33-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -- 34-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED -- 35-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -- 36-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -- 37-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -- 38-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -- 39-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -- 40-- -- 41------------------------------------------------------------------------------ 42-- $Revision: 2928 $ $Date: 2012-05-01 12:43:19 +0400 (Tue, 01 May 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.CMOF; 47with AMF.Internals.Tables.CMOF_Attributes; 48with AMF.Internals.Tables.Standard_Profile_L2_String_Data_00; 49 50package body AMF.Internals.Tables.Standard_Profile_L2_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 end Initialize; 239 240 ------------------ 241 -- Initialize_1 -- 242 ------------------ 243 244 procedure Initialize_1 is 245 begin 246 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 247 (Base + 1, 248 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0029'Access); 249 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 1, (Is_Empty => True)); 250 end Initialize_1; 251 252 ------------------ 253 -- Initialize_2 -- 254 ------------------ 255 256 procedure Initialize_2 is 257 begin 258 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 259 (Base + 2, 260 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_004A'Access); 261 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 2, (Is_Empty => True)); 262 end Initialize_2; 263 264 ------------------ 265 -- Initialize_3 -- 266 ------------------ 267 268 procedure Initialize_3 is 269 begin 270 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 271 (Base + 3, 272 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_006A'Access); 273 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 3, (Is_Empty => True)); 274 end Initialize_3; 275 276 ------------------ 277 -- Initialize_4 -- 278 ------------------ 279 280 procedure Initialize_4 is 281 begin 282 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 283 (Base + 4, 284 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0088'Access); 285 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 4, (Is_Empty => True)); 286 end Initialize_4; 287 288 ------------------ 289 -- Initialize_5 -- 290 ------------------ 291 292 procedure Initialize_5 is 293 begin 294 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 295 (Base + 5, 296 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_001D'Access); 297 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 5, (Is_Empty => True)); 298 end Initialize_5; 299 300 ------------------ 301 -- Initialize_6 -- 302 ------------------ 303 304 procedure Initialize_6 is 305 begin 306 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 307 (Base + 6, 308 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0013'Access); 309 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 6, (Is_Empty => True)); 310 end Initialize_6; 311 312 ------------------ 313 -- Initialize_7 -- 314 ------------------ 315 316 procedure Initialize_7 is 317 begin 318 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 319 (Base + 7, 320 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0071'Access); 321 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 7, (Is_Empty => True)); 322 end Initialize_7; 323 324 ------------------ 325 -- Initialize_8 -- 326 ------------------ 327 328 procedure Initialize_8 is 329 begin 330 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 331 (Base + 8, 332 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0003'Access); 333 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 8, (Is_Empty => True)); 334 end Initialize_8; 335 336 ------------------ 337 -- Initialize_9 -- 338 ------------------ 339 340 procedure Initialize_9 is 341 begin 342 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 9, True); 343 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 344 (Base + 9, 345 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0010'Access); 346 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 9, (Is_Empty => True)); 347 end Initialize_9; 348 349 ------------------- 350 -- Initialize_10 -- 351 ------------------- 352 353 procedure Initialize_10 is 354 begin 355 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 356 (Base + 10, 357 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0076'Access); 358 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 10, (Is_Empty => True)); 359 end Initialize_10; 360 361 ------------------- 362 -- Initialize_11 -- 363 ------------------- 364 365 procedure Initialize_11 is 366 begin 367 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 368 (Base + 11, 369 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0007'Access); 370 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 11, (Is_Empty => True)); 371 end Initialize_11; 372 373 ------------------- 374 -- Initialize_12 -- 375 ------------------- 376 377 procedure Initialize_12 is 378 begin 379 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 380 (Base + 12, 381 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0036'Access); 382 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 12, (Is_Empty => True)); 383 end Initialize_12; 384 385 ------------------- 386 -- Initialize_13 -- 387 ------------------- 388 389 procedure Initialize_13 is 390 begin 391 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 392 (Base + 13, 393 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0033'Access); 394 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 13, (Is_Empty => True)); 395 end Initialize_13; 396 397 ------------------- 398 -- Initialize_14 -- 399 ------------------- 400 401 procedure Initialize_14 is 402 begin 403 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 404 (Base + 14, 405 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0079'Access); 406 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 14, (Is_Empty => True)); 407 end Initialize_14; 408 409 ------------------- 410 -- Initialize_15 -- 411 ------------------- 412 413 procedure Initialize_15 is 414 begin 415 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 416 (Base + 15, 417 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0040'Access); 418 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 15, (Is_Empty => True)); 419 end Initialize_15; 420 421 ------------------- 422 -- Initialize_16 -- 423 ------------------- 424 425 procedure Initialize_16 is 426 begin 427 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 428 (Base + 16, 429 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_001E'Access); 430 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 16, (Is_Empty => True)); 431 end Initialize_16; 432 433 ------------------- 434 -- Initialize_17 -- 435 ------------------- 436 437 procedure Initialize_17 is 438 begin 439 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 440 (Base + 17, 441 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0052'Access); 442 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 17, (Is_Empty => True)); 443 end Initialize_17; 444 445 ------------------- 446 -- Initialize_18 -- 447 ------------------- 448 449 procedure Initialize_18 is 450 begin 451 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 452 (Base + 18, 453 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_004C'Access); 454 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 18, (Is_Empty => True)); 455 end Initialize_18; 456 457 ------------------- 458 -- Initialize_19 -- 459 ------------------- 460 461 procedure Initialize_19 is 462 begin 463 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 464 (Base + 19, 465 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000A'Access); 466 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 19, (Is_Empty => True)); 467 end Initialize_19; 468 469 ------------------- 470 -- Initialize_20 -- 471 ------------------- 472 473 procedure Initialize_20 is 474 begin 475 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 476 (Base + 20, 477 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0082'Access); 478 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 20, (Is_Empty => True)); 479 end Initialize_20; 480 481 ------------------- 482 -- Initialize_21 -- 483 ------------------- 484 485 procedure Initialize_21 is 486 begin 487 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 488 (Base + 21, 489 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0055'Access); 490 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 21, (Is_Empty => True)); 491 end Initialize_21; 492 493 ------------------- 494 -- Initialize_22 -- 495 ------------------- 496 497 procedure Initialize_22 is 498 begin 499 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 500 (Base + 22, 501 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_001B'Access); 502 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 22, (Is_Empty => True)); 503 end Initialize_22; 504 505 ------------------- 506 -- Initialize_23 -- 507 ------------------- 508 509 procedure Initialize_23 is 510 begin 511 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 512 (Base + 23, 513 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0062'Access); 514 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 23, (Is_Empty => True)); 515 end Initialize_23; 516 517 ------------------- 518 -- Initialize_24 -- 519 ------------------- 520 521 procedure Initialize_24 is 522 begin 523 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 524 (Base + 24, 525 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000B'Access); 526 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 24, (Is_Empty => True)); 527 end Initialize_24; 528 529 ------------------- 530 -- Initialize_25 -- 531 ------------------- 532 533 procedure Initialize_25 is 534 begin 535 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 536 (Base + 25, 537 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_006E'Access); 538 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 25, (Is_Empty => True)); 539 end Initialize_25; 540 541 ------------------- 542 -- Initialize_26 -- 543 ------------------- 544 545 procedure Initialize_26 is 546 begin 547 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 548 (Base + 26, 549 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0014'Access); 550 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 26, (Is_Empty => True)); 551 end Initialize_26; 552 553 ------------------- 554 -- Initialize_27 -- 555 ------------------- 556 557 procedure Initialize_27 is 558 begin 559 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 560 (Base + 27, 561 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0051'Access); 562 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 27, (Is_Empty => True)); 563 end Initialize_27; 564 565 ------------------- 566 -- Initialize_28 -- 567 ------------------- 568 569 procedure Initialize_28 is 570 begin 571 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 572 (Base + 28, 573 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_001A'Access); 574 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 28, (Is_Empty => True)); 575 end Initialize_28; 576 577 ------------------- 578 -- Initialize_29 -- 579 ------------------- 580 581 procedure Initialize_29 is 582 begin 583 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 584 (Base + 29, 585 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_006D'Access); 586 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 29, (Is_Empty => True)); 587 end Initialize_29; 588 589 ------------------- 590 -- Initialize_30 -- 591 ------------------- 592 593 procedure Initialize_30 is 594 begin 595 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 596 (Base + 30, 597 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0022'Access); 598 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 30, (Is_Empty => True)); 599 end Initialize_30; 600 601 ------------------- 602 -- Initialize_31 -- 603 ------------------- 604 605 procedure Initialize_31 is 606 begin 607 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 608 (Base + 31, 609 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000C'Access); 610 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 31, (False, AMF.CMOF.Public_Visibility)); 611 end Initialize_31; 612 613 ------------------- 614 -- Initialize_32 -- 615 ------------------- 616 617 procedure Initialize_32 is 618 begin 619 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 620 (Base + 32, 621 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008D'Access); 622 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 32, (False, AMF.CMOF.Public_Visibility)); 623 end Initialize_32; 624 625 ------------------- 626 -- Initialize_33 -- 627 ------------------- 628 629 procedure Initialize_33 is 630 begin 631 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 632 (Base + 33, 633 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0085'Access); 634 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 33, (False, AMF.CMOF.Public_Visibility)); 635 end Initialize_33; 636 637 ------------------- 638 -- Initialize_34 -- 639 ------------------- 640 641 procedure Initialize_34 is 642 begin 643 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 644 (Base + 34, 645 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008D'Access); 646 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 34, (False, AMF.CMOF.Public_Visibility)); 647 end Initialize_34; 648 649 ------------------- 650 -- Initialize_35 -- 651 ------------------- 652 653 procedure Initialize_35 is 654 begin 655 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 656 (Base + 35, 657 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0078'Access); 658 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 35, (False, AMF.CMOF.Public_Visibility)); 659 end Initialize_35; 660 661 ------------------- 662 -- Initialize_36 -- 663 ------------------- 664 665 procedure Initialize_36 is 666 begin 667 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 36, True); 668 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 669 (Base + 36, 670 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0015'Access); 671 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 36, (False, AMF.CMOF.Public_Visibility)); 672 end Initialize_36; 673 674 ------------------- 675 -- Initialize_37 -- 676 ------------------- 677 678 procedure Initialize_37 is 679 begin 680 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 681 (Base + 37, 682 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0085'Access); 683 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 37, (False, AMF.CMOF.Public_Visibility)); 684 end Initialize_37; 685 686 ------------------- 687 -- Initialize_38 -- 688 ------------------- 689 690 procedure Initialize_38 is 691 begin 692 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 693 (Base + 38, 694 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0011'Access); 695 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 38, (False, AMF.CMOF.Public_Visibility)); 696 end Initialize_38; 697 698 ------------------- 699 -- Initialize_39 -- 700 ------------------- 701 702 procedure Initialize_39 is 703 begin 704 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 705 (Base + 39, 706 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0037'Access); 707 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 39, (False, AMF.CMOF.Public_Visibility)); 708 end Initialize_39; 709 710 ------------------- 711 -- Initialize_40 -- 712 ------------------- 713 714 procedure Initialize_40 is 715 begin 716 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 717 (Base + 40, 718 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0011'Access); 719 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 40, (False, AMF.CMOF.Public_Visibility)); 720 end Initialize_40; 721 722 ------------------- 723 -- Initialize_41 -- 724 ------------------- 725 726 procedure Initialize_41 is 727 begin 728 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 729 (Base + 41, 730 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0011'Access); 731 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 41, (False, AMF.CMOF.Public_Visibility)); 732 end Initialize_41; 733 734 ------------------- 735 -- Initialize_42 -- 736 ------------------- 737 738 procedure Initialize_42 is 739 begin 740 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 741 (Base + 42, 742 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000C'Access); 743 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 42, (False, AMF.CMOF.Public_Visibility)); 744 end Initialize_42; 745 746 ------------------- 747 -- Initialize_43 -- 748 ------------------- 749 750 procedure Initialize_43 is 751 begin 752 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 753 (Base + 43, 754 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007B'Access); 755 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 43, (False, AMF.CMOF.Public_Visibility)); 756 end Initialize_43; 757 758 ------------------- 759 -- Initialize_44 -- 760 ------------------- 761 762 procedure Initialize_44 is 763 begin 764 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 765 (Base + 44, 766 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0037'Access); 767 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 44, (False, AMF.CMOF.Public_Visibility)); 768 end Initialize_44; 769 770 ------------------- 771 -- Initialize_45 -- 772 ------------------- 773 774 procedure Initialize_45 is 775 begin 776 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 777 (Base + 45, 778 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000C'Access); 779 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 45, (False, AMF.CMOF.Public_Visibility)); 780 end Initialize_45; 781 782 ------------------- 783 -- Initialize_46 -- 784 ------------------- 785 786 procedure Initialize_46 is 787 begin 788 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 789 (Base + 46, 790 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008D'Access); 791 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 46, (False, AMF.CMOF.Public_Visibility)); 792 end Initialize_46; 793 794 ------------------- 795 -- Initialize_47 -- 796 ------------------- 797 798 procedure Initialize_47 is 799 begin 800 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 801 (Base + 47, 802 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0011'Access); 803 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 47, (False, AMF.CMOF.Public_Visibility)); 804 end Initialize_47; 805 806 ------------------- 807 -- Initialize_48 -- 808 ------------------- 809 810 procedure Initialize_48 is 811 begin 812 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 813 (Base + 48, 814 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000C'Access); 815 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 48, (False, AMF.CMOF.Public_Visibility)); 816 end Initialize_48; 817 818 ------------------- 819 -- Initialize_49 -- 820 ------------------- 821 822 procedure Initialize_49 is 823 begin 824 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 825 (Base + 49, 826 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007B'Access); 827 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 49, (False, AMF.CMOF.Public_Visibility)); 828 end Initialize_49; 829 830 ------------------- 831 -- Initialize_50 -- 832 ------------------- 833 834 procedure Initialize_50 is 835 begin 836 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 837 (Base + 50, 838 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0037'Access); 839 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 50, (False, AMF.CMOF.Public_Visibility)); 840 end Initialize_50; 841 842 ------------------- 843 -- Initialize_51 -- 844 ------------------- 845 846 procedure Initialize_51 is 847 begin 848 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 849 (Base + 51, 850 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0043'Access); 851 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 51, (False, AMF.CMOF.Public_Visibility)); 852 end Initialize_51; 853 854 ------------------- 855 -- Initialize_52 -- 856 ------------------- 857 858 procedure Initialize_52 is 859 begin 860 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 861 (Base + 52, 862 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0078'Access); 863 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 52, (False, AMF.CMOF.Public_Visibility)); 864 end Initialize_52; 865 866 ------------------- 867 -- Initialize_53 -- 868 ------------------- 869 870 procedure Initialize_53 is 871 begin 872 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 873 (Base + 53, 874 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008D'Access); 875 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 53, (False, AMF.CMOF.Public_Visibility)); 876 end Initialize_53; 877 878 ------------------- 879 -- Initialize_54 -- 880 ------------------- 881 882 procedure Initialize_54 is 883 begin 884 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 885 (Base + 54, 886 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0011'Access); 887 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 54, (False, AMF.CMOF.Public_Visibility)); 888 end Initialize_54; 889 890 ------------------- 891 -- Initialize_55 -- 892 ------------------- 893 894 procedure Initialize_55 is 895 begin 896 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 897 (Base + 55, 898 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008D'Access); 899 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 55, (False, AMF.CMOF.Public_Visibility)); 900 end Initialize_55; 901 902 ------------------- 903 -- Initialize_56 -- 904 ------------------- 905 906 procedure Initialize_56 is 907 begin 908 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 909 (Base + 56, 910 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0037'Access); 911 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 56, (False, AMF.CMOF.Public_Visibility)); 912 end Initialize_56; 913 914 ------------------- 915 -- Initialize_57 -- 916 ------------------- 917 918 procedure Initialize_57 is 919 begin 920 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 921 (Base + 57, 922 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0011'Access); 923 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 57, (False, AMF.CMOF.Public_Visibility)); 924 end Initialize_57; 925 926 ------------------- 927 -- Initialize_58 -- 928 ------------------- 929 930 procedure Initialize_58 is 931 begin 932 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 933 (Base + 58, 934 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0043'Access); 935 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 58, (False, AMF.CMOF.Public_Visibility)); 936 end Initialize_58; 937 938 ------------------- 939 -- Initialize_59 -- 940 ------------------- 941 942 procedure Initialize_59 is 943 begin 944 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 945 (Base + 59, 946 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0037'Access); 947 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 59, (False, AMF.CMOF.Public_Visibility)); 948 end Initialize_59; 949 950 ------------------- 951 -- Initialize_60 -- 952 ------------------- 953 954 procedure Initialize_60 is 955 begin 956 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 957 (Base + 60, 958 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0078'Access); 959 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 60, (False, AMF.CMOF.Public_Visibility)); 960 end Initialize_60; 961 962 ------------------- 963 -- Initialize_61 -- 964 ------------------- 965 966 procedure Initialize_61 is 967 begin 968 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 969 (Base + 61, 970 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000C'Access); 971 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 61, (False, AMF.CMOF.Public_Visibility)); 972 end Initialize_61; 973 974 ------------------- 975 -- Initialize_62 -- 976 ------------------- 977 978 procedure Initialize_62 is 979 begin 980 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 981 (Base + 62, 982 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000C'Access); 983 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 62, (False, AMF.CMOF.Public_Visibility)); 984 end Initialize_62; 985 986 ------------------- 987 -- Initialize_63 -- 988 ------------------- 989 990 procedure Initialize_63 is 991 begin 992 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 993 (Base + 63, 994 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0042'Access); 995 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 63, (Is_Empty => True)); 996 end Initialize_63; 997 998 ------------------- 999 -- Initialize_64 -- 1000 ------------------- 1001 1002 procedure Initialize_64 is 1003 begin 1004 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1005 (Base + 64, 1006 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007C'Access); 1007 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 64, (Is_Empty => True)); 1008 end Initialize_64; 1009 1010 ------------------- 1011 -- Initialize_65 -- 1012 ------------------- 1013 1014 procedure Initialize_65 is 1015 begin 1016 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1017 (Base + 65, 1018 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000E'Access); 1019 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 65, (Is_Empty => True)); 1020 end Initialize_65; 1021 1022 ------------------- 1023 -- Initialize_66 -- 1024 ------------------- 1025 1026 procedure Initialize_66 is 1027 begin 1028 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1029 (Base + 66, 1030 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0017'Access); 1031 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 66, (Is_Empty => True)); 1032 end Initialize_66; 1033 1034 ------------------- 1035 -- Initialize_67 -- 1036 ------------------- 1037 1038 procedure Initialize_67 is 1039 begin 1040 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1041 (Base + 67, 1042 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008C'Access); 1043 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 67, (Is_Empty => True)); 1044 end Initialize_67; 1045 1046 ------------------- 1047 -- Initialize_68 -- 1048 ------------------- 1049 1050 procedure Initialize_68 is 1051 begin 1052 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1053 (Base + 68, 1054 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0020'Access); 1055 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 68, (Is_Empty => True)); 1056 end Initialize_68; 1057 1058 ------------------- 1059 -- Initialize_69 -- 1060 ------------------- 1061 1062 procedure Initialize_69 is 1063 begin 1064 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1065 (Base + 69, 1066 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0069'Access); 1067 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 69, (Is_Empty => True)); 1068 end Initialize_69; 1069 1070 ------------------- 1071 -- Initialize_70 -- 1072 ------------------- 1073 1074 procedure Initialize_70 is 1075 begin 1076 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1077 (Base + 70, 1078 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_003E'Access); 1079 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 70, (Is_Empty => True)); 1080 end Initialize_70; 1081 1082 ------------------- 1083 -- Initialize_71 -- 1084 ------------------- 1085 1086 procedure Initialize_71 is 1087 begin 1088 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1089 (Base + 71, 1090 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0074'Access); 1091 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 71, (Is_Empty => True)); 1092 end Initialize_71; 1093 1094 ------------------- 1095 -- Initialize_72 -- 1096 ------------------- 1097 1098 procedure Initialize_72 is 1099 begin 1100 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1101 (Base + 72, 1102 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0032'Access); 1103 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 72, (Is_Empty => True)); 1104 end Initialize_72; 1105 1106 ------------------- 1107 -- Initialize_73 -- 1108 ------------------- 1109 1110 procedure Initialize_73 is 1111 begin 1112 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1113 (Base + 73, 1114 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_004F'Access); 1115 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 73, (Is_Empty => True)); 1116 end Initialize_73; 1117 1118 ------------------- 1119 -- Initialize_74 -- 1120 ------------------- 1121 1122 procedure Initialize_74 is 1123 begin 1124 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1125 (Base + 74, 1126 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0063'Access); 1127 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 74, (Is_Empty => True)); 1128 end Initialize_74; 1129 1130 ------------------- 1131 -- Initialize_75 -- 1132 ------------------- 1133 1134 procedure Initialize_75 is 1135 begin 1136 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1137 (Base + 75, 1138 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0059'Access); 1139 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 75, (Is_Empty => True)); 1140 end Initialize_75; 1141 1142 ------------------- 1143 -- Initialize_76 -- 1144 ------------------- 1145 1146 procedure Initialize_76 is 1147 begin 1148 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1149 (Base + 76, 1150 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0070'Access); 1151 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 76, (Is_Empty => True)); 1152 end Initialize_76; 1153 1154 ------------------- 1155 -- Initialize_77 -- 1156 ------------------- 1157 1158 procedure Initialize_77 is 1159 begin 1160 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1161 (Base + 77, 1162 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0068'Access); 1163 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 77, (Is_Empty => True)); 1164 end Initialize_77; 1165 1166 ------------------- 1167 -- Initialize_78 -- 1168 ------------------- 1169 1170 procedure Initialize_78 is 1171 begin 1172 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1173 (Base + 78, 1174 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0006'Access); 1175 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 78, (Is_Empty => True)); 1176 end Initialize_78; 1177 1178 ------------------- 1179 -- Initialize_79 -- 1180 ------------------- 1181 1182 procedure Initialize_79 is 1183 begin 1184 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1185 (Base + 79, 1186 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0054'Access); 1187 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 79, (Is_Empty => True)); 1188 end Initialize_79; 1189 1190 ------------------- 1191 -- Initialize_80 -- 1192 ------------------- 1193 1194 procedure Initialize_80 is 1195 begin 1196 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1197 (Base + 80, 1198 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007E'Access); 1199 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 80, (Is_Empty => True)); 1200 end Initialize_80; 1201 1202 ------------------- 1203 -- Initialize_81 -- 1204 ------------------- 1205 1206 procedure Initialize_81 is 1207 begin 1208 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1209 (Base + 81, 1210 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_005B'Access); 1211 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 81, (Is_Empty => True)); 1212 end Initialize_81; 1213 1214 ------------------- 1215 -- Initialize_82 -- 1216 ------------------- 1217 1218 procedure Initialize_82 is 1219 begin 1220 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1221 (Base + 82, 1222 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_004E'Access); 1223 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 82, (Is_Empty => True)); 1224 end Initialize_82; 1225 1226 ------------------- 1227 -- Initialize_83 -- 1228 ------------------- 1229 1230 procedure Initialize_83 is 1231 begin 1232 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1233 (Base + 83, 1234 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0050'Access); 1235 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 83, (Is_Empty => True)); 1236 end Initialize_83; 1237 1238 ------------------- 1239 -- Initialize_84 -- 1240 ------------------- 1241 1242 procedure Initialize_84 is 1243 begin 1244 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1245 (Base + 84, 1246 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0028'Access); 1247 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 84, (Is_Empty => True)); 1248 end Initialize_84; 1249 1250 ------------------- 1251 -- Initialize_85 -- 1252 ------------------- 1253 1254 procedure Initialize_85 is 1255 begin 1256 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1257 (Base + 85, 1258 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_003D'Access); 1259 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 85, (Is_Empty => True)); 1260 end Initialize_85; 1261 1262 ------------------- 1263 -- Initialize_86 -- 1264 ------------------- 1265 1266 procedure Initialize_86 is 1267 begin 1268 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1269 (Base + 86, 1270 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0077'Access); 1271 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 86, (Is_Empty => True)); 1272 end Initialize_86; 1273 1274 ------------------- 1275 -- Initialize_87 -- 1276 ------------------- 1277 1278 procedure Initialize_87 is 1279 begin 1280 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1281 (Base + 87, 1282 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0027'Access); 1283 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 87, (Is_Empty => True)); 1284 end Initialize_87; 1285 1286 ------------------- 1287 -- Initialize_88 -- 1288 ------------------- 1289 1290 procedure Initialize_88 is 1291 begin 1292 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1293 (Base + 88, 1294 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_006F'Access); 1295 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 88, (Is_Empty => True)); 1296 end Initialize_88; 1297 1298 ------------------- 1299 -- Initialize_89 -- 1300 ------------------- 1301 1302 procedure Initialize_89 is 1303 begin 1304 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1305 (Base + 89, 1306 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007F'Access); 1307 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 89, (Is_Empty => True)); 1308 end Initialize_89; 1309 1310 ------------------- 1311 -- Initialize_90 -- 1312 ------------------- 1313 1314 procedure Initialize_90 is 1315 begin 1316 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1317 (Base + 90, 1318 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0038'Access); 1319 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 90, (Is_Empty => True)); 1320 end Initialize_90; 1321 1322 ------------------- 1323 -- Initialize_91 -- 1324 ------------------- 1325 1326 procedure Initialize_91 is 1327 begin 1328 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1329 (Base + 91, 1330 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0067'Access); 1331 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 91, (Is_Empty => True)); 1332 end Initialize_91; 1333 1334 ------------------- 1335 -- Initialize_92 -- 1336 ------------------- 1337 1338 procedure Initialize_92 is 1339 begin 1340 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1341 (Base + 92, 1342 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_004B'Access); 1343 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 92, (Is_Empty => True)); 1344 end Initialize_92; 1345 1346 ------------------- 1347 -- Initialize_93 -- 1348 ------------------- 1349 1350 procedure Initialize_93 is 1351 begin 1352 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1353 (Base + 93, 1354 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0061'Access); 1355 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 93, (Is_Empty => True)); 1356 end Initialize_93; 1357 1358 ------------------- 1359 -- Initialize_94 -- 1360 ------------------- 1361 1362 procedure Initialize_94 is 1363 begin 1364 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1365 (Base + 94, 1366 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0030'Access); 1367 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 94, (Is_Empty => True)); 1368 end Initialize_94; 1369 1370 ------------------- 1371 -- Initialize_95 -- 1372 ------------------- 1373 1374 procedure Initialize_95 is 1375 begin 1376 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1377 (Base + 95, 1378 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007D'Access); 1379 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Uri 1380 (Base + 95, 1381 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0049'Access); 1382 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 95, (Is_Empty => True)); 1383 end Initialize_95; 1384 1385 ------------------- 1386 -- Initialize_96 -- 1387 ------------------- 1388 1389 procedure Initialize_96 is 1390 begin 1391 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 96, AMF.CMOF.Public_Visibility); 1392 end Initialize_96; 1393 1394 ------------------- 1395 -- Initialize_97 -- 1396 ------------------- 1397 1398 procedure Initialize_97 is 1399 begin 1400 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 97, True); 1401 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 97, (False, 0)); 1402 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1403 (Base + 97, 1404 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0060'Access); 1405 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 97, (False, AMF.CMOF.Public_Visibility)); 1406 end Initialize_97; 1407 1408 ------------------- 1409 -- Initialize_98 -- 1410 ------------------- 1411 1412 procedure Initialize_98 is 1413 begin 1414 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 98, True); 1415 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 98, (False, 0)); 1416 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1417 (Base + 98, 1418 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0073'Access); 1419 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 98, (False, AMF.CMOF.Public_Visibility)); 1420 end Initialize_98; 1421 1422 ------------------- 1423 -- Initialize_99 -- 1424 ------------------- 1425 1426 procedure Initialize_99 is 1427 begin 1428 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 99, True); 1429 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 99, (False, 0)); 1430 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1431 (Base + 99, 1432 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0041'Access); 1433 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 99, (False, AMF.CMOF.Public_Visibility)); 1434 end Initialize_99; 1435 1436 -------------------- 1437 -- Initialize_100 -- 1438 -------------------- 1439 1440 procedure Initialize_100 is 1441 begin 1442 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 100, True); 1443 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 100, (False, 0)); 1444 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1445 (Base + 100, 1446 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0008'Access); 1447 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 100, (False, AMF.CMOF.Public_Visibility)); 1448 end Initialize_100; 1449 1450 -------------------- 1451 -- Initialize_101 -- 1452 -------------------- 1453 1454 procedure Initialize_101 is 1455 begin 1456 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 101, True); 1457 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 101, (False, 0)); 1458 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1459 (Base + 101, 1460 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0056'Access); 1461 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 101, (False, AMF.CMOF.Public_Visibility)); 1462 end Initialize_101; 1463 1464 -------------------- 1465 -- Initialize_102 -- 1466 -------------------- 1467 1468 procedure Initialize_102 is 1469 begin 1470 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 102, True); 1471 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 102, (False, 0)); 1472 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1473 (Base + 102, 1474 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_006B'Access); 1475 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 102, (False, AMF.CMOF.Public_Visibility)); 1476 end Initialize_102; 1477 1478 -------------------- 1479 -- Initialize_103 -- 1480 -------------------- 1481 1482 procedure Initialize_103 is 1483 begin 1484 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 103, True); 1485 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 103, (False, 0)); 1486 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1487 (Base + 103, 1488 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0000'Access); 1489 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 103, (False, AMF.CMOF.Public_Visibility)); 1490 end Initialize_103; 1491 1492 -------------------- 1493 -- Initialize_104 -- 1494 -------------------- 1495 1496 procedure Initialize_104 is 1497 begin 1498 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 104, True); 1499 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 104, (False, 0)); 1500 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1501 (Base + 104, 1502 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_001F'Access); 1503 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 104, (False, AMF.CMOF.Public_Visibility)); 1504 end Initialize_104; 1505 1506 -------------------- 1507 -- Initialize_105 -- 1508 -------------------- 1509 1510 procedure Initialize_105 is 1511 begin 1512 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 105, True); 1513 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 105, (False, 0)); 1514 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1515 (Base + 105, 1516 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0075'Access); 1517 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 105, (False, AMF.CMOF.Public_Visibility)); 1518 end Initialize_105; 1519 1520 -------------------- 1521 -- Initialize_106 -- 1522 -------------------- 1523 1524 procedure Initialize_106 is 1525 begin 1526 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 106, True); 1527 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 106, (False, 0)); 1528 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1529 (Base + 106, 1530 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_005C'Access); 1531 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 106, (False, AMF.CMOF.Public_Visibility)); 1532 end Initialize_106; 1533 1534 -------------------- 1535 -- Initialize_107 -- 1536 -------------------- 1537 1538 procedure Initialize_107 is 1539 begin 1540 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 107, True); 1541 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 107, (False, 0)); 1542 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1543 (Base + 107, 1544 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_002F'Access); 1545 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 107, (False, AMF.CMOF.Public_Visibility)); 1546 end Initialize_107; 1547 1548 -------------------- 1549 -- Initialize_108 -- 1550 -------------------- 1551 1552 procedure Initialize_108 is 1553 begin 1554 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 108, True); 1555 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 108, (False, 0)); 1556 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1557 (Base + 108, 1558 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000D'Access); 1559 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 108, (False, AMF.CMOF.Public_Visibility)); 1560 end Initialize_108; 1561 1562 -------------------- 1563 -- Initialize_109 -- 1564 -------------------- 1565 1566 procedure Initialize_109 is 1567 begin 1568 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 109, True); 1569 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 109, (False, 0)); 1570 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1571 (Base + 109, 1572 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0081'Access); 1573 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 109, (False, AMF.CMOF.Public_Visibility)); 1574 end Initialize_109; 1575 1576 -------------------- 1577 -- Initialize_110 -- 1578 -------------------- 1579 1580 procedure Initialize_110 is 1581 begin 1582 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 110, True); 1583 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 110, (False, 0)); 1584 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1585 (Base + 110, 1586 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0001'Access); 1587 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 110, (False, AMF.CMOF.Public_Visibility)); 1588 end Initialize_110; 1589 1590 -------------------- 1591 -- Initialize_111 -- 1592 -------------------- 1593 1594 procedure Initialize_111 is 1595 begin 1596 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 111, True); 1597 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 111, (False, 0)); 1598 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1599 (Base + 111, 1600 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0016'Access); 1601 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 111, (False, AMF.CMOF.Public_Visibility)); 1602 end Initialize_111; 1603 1604 -------------------- 1605 -- Initialize_112 -- 1606 -------------------- 1607 1608 procedure Initialize_112 is 1609 begin 1610 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 112, True); 1611 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 112, (False, 0)); 1612 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1613 (Base + 112, 1614 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0005'Access); 1615 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 112, (False, AMF.CMOF.Public_Visibility)); 1616 end Initialize_112; 1617 1618 -------------------- 1619 -- Initialize_113 -- 1620 -------------------- 1621 1622 procedure Initialize_113 is 1623 begin 1624 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 113, True); 1625 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 113, (False, 0)); 1626 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1627 (Base + 113, 1628 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0064'Access); 1629 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 113, (False, AMF.CMOF.Public_Visibility)); 1630 end Initialize_113; 1631 1632 -------------------- 1633 -- Initialize_114 -- 1634 -------------------- 1635 1636 procedure Initialize_114 is 1637 begin 1638 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 114, True); 1639 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 114, (False, 0)); 1640 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1641 (Base + 114, 1642 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0080'Access); 1643 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 114, (False, AMF.CMOF.Public_Visibility)); 1644 end Initialize_114; 1645 1646 -------------------- 1647 -- Initialize_115 -- 1648 -------------------- 1649 1650 procedure Initialize_115 is 1651 begin 1652 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 115, True); 1653 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 115, (False, 0)); 1654 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1655 (Base + 115, 1656 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0045'Access); 1657 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 115, (False, AMF.CMOF.Public_Visibility)); 1658 end Initialize_115; 1659 1660 -------------------- 1661 -- Initialize_116 -- 1662 -------------------- 1663 1664 procedure Initialize_116 is 1665 begin 1666 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 116, True); 1667 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 116, (False, 0)); 1668 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1669 (Base + 116, 1670 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0065'Access); 1671 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 116, (False, AMF.CMOF.Public_Visibility)); 1672 end Initialize_116; 1673 1674 -------------------- 1675 -- Initialize_117 -- 1676 -------------------- 1677 1678 procedure Initialize_117 is 1679 begin 1680 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 117, True); 1681 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 117, (False, 0)); 1682 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1683 (Base + 117, 1684 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0025'Access); 1685 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 117, (False, AMF.CMOF.Public_Visibility)); 1686 end Initialize_117; 1687 1688 -------------------- 1689 -- Initialize_118 -- 1690 -------------------- 1691 1692 procedure Initialize_118 is 1693 begin 1694 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 118, True); 1695 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 118, (False, 0)); 1696 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1697 (Base + 118, 1698 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0012'Access); 1699 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 118, (False, AMF.CMOF.Public_Visibility)); 1700 end Initialize_118; 1701 1702 -------------------- 1703 -- Initialize_119 -- 1704 -------------------- 1705 1706 procedure Initialize_119 is 1707 begin 1708 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 119, True); 1709 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 119, (False, 0)); 1710 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1711 (Base + 119, 1712 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0035'Access); 1713 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 119, (False, AMF.CMOF.Public_Visibility)); 1714 end Initialize_119; 1715 1716 -------------------- 1717 -- Initialize_120 -- 1718 -------------------- 1719 1720 procedure Initialize_120 is 1721 begin 1722 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 120, True); 1723 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 120, (False, 0)); 1724 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1725 (Base + 120, 1726 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0089'Access); 1727 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 120, (False, AMF.CMOF.Public_Visibility)); 1728 end Initialize_120; 1729 1730 -------------------- 1731 -- Initialize_121 -- 1732 -------------------- 1733 1734 procedure Initialize_121 is 1735 begin 1736 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 121, True); 1737 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 121, (False, 0)); 1738 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1739 (Base + 121, 1740 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0044'Access); 1741 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 121, (False, AMF.CMOF.Public_Visibility)); 1742 end Initialize_121; 1743 1744 -------------------- 1745 -- Initialize_122 -- 1746 -------------------- 1747 1748 procedure Initialize_122 is 1749 begin 1750 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 122, True); 1751 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 122, (False, 0)); 1752 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1753 (Base + 122, 1754 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_003B'Access); 1755 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 122, (False, AMF.CMOF.Public_Visibility)); 1756 end Initialize_122; 1757 1758 -------------------- 1759 -- Initialize_123 -- 1760 -------------------- 1761 1762 procedure Initialize_123 is 1763 begin 1764 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 123, True); 1765 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 123, (False, 0)); 1766 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1767 (Base + 123, 1768 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0084'Access); 1769 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 123, (False, AMF.CMOF.Public_Visibility)); 1770 end Initialize_123; 1771 1772 -------------------- 1773 -- Initialize_124 -- 1774 -------------------- 1775 1776 procedure Initialize_124 is 1777 begin 1778 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 124, True); 1779 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 124, (False, 0)); 1780 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1781 (Base + 124, 1782 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_005C'Access); 1783 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 124, (False, AMF.CMOF.Public_Visibility)); 1784 end Initialize_124; 1785 1786 -------------------- 1787 -- Initialize_125 -- 1788 -------------------- 1789 1790 procedure Initialize_125 is 1791 begin 1792 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 125, True); 1793 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 125, (False, 0)); 1794 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1795 (Base + 125, 1796 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0060'Access); 1797 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 125, (False, AMF.CMOF.Public_Visibility)); 1798 end Initialize_125; 1799 1800 -------------------- 1801 -- Initialize_126 -- 1802 -------------------- 1803 1804 procedure Initialize_126 is 1805 begin 1806 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 126, True); 1807 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 126, (False, 0)); 1808 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1809 (Base + 126, 1810 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_005D'Access); 1811 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 126, (False, AMF.CMOF.Public_Visibility)); 1812 end Initialize_126; 1813 1814 -------------------- 1815 -- Initialize_127 -- 1816 -------------------- 1817 1818 procedure Initialize_127 is 1819 begin 1820 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 127, True); 1821 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 127, (False, 0)); 1822 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1823 (Base + 127, 1824 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008A'Access); 1825 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 127, (False, AMF.CMOF.Public_Visibility)); 1826 end Initialize_127; 1827 1828 -------------------- 1829 -- Initialize_128 -- 1830 -------------------- 1831 1832 procedure Initialize_128 is 1833 begin 1834 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 128, True); 1835 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 128, (False, 0)); 1836 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1837 (Base + 128, 1838 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_002B'Access); 1839 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 128, (False, AMF.CMOF.Public_Visibility)); 1840 end Initialize_128; 1841 1842 -------------------- 1843 -- Initialize_129 -- 1844 -------------------- 1845 1846 procedure Initialize_129 is 1847 begin 1848 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1849 (Base + 129, 1850 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0072'Access); 1851 end Initialize_129; 1852 1853 -------------------- 1854 -- Initialize_130 -- 1855 -------------------- 1856 1857 procedure Initialize_130 is 1858 begin 1859 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1860 (Base + 130, 1861 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0048'Access); 1862 end Initialize_130; 1863 1864 -------------------- 1865 -- Initialize_131 -- 1866 -------------------- 1867 1868 procedure Initialize_131 is 1869 begin 1870 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1871 (Base + 131, 1872 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_004D'Access); 1873 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 131, (Is_Empty => True)); 1874 end Initialize_131; 1875 1876 -------------------- 1877 -- Initialize_132 -- 1878 -------------------- 1879 1880 procedure Initialize_132 is 1881 begin 1882 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 132, (Is_Empty => True)); 1883 end Initialize_132; 1884 1885 -------------------- 1886 -- Initialize_133 -- 1887 -------------------- 1888 1889 procedure Initialize_133 is 1890 begin 1891 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1892 (Base + 133, 1893 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_002A'Access); 1894 end Initialize_133; 1895 1896 -------------------- 1897 -- Initialize_134 -- 1898 -------------------- 1899 1900 procedure Initialize_134 is 1901 begin 1902 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 1903 (Base + 134, 1904 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0053'Access); 1905 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 134, (Is_Empty => True)); 1906 end Initialize_134; 1907 1908 -------------------- 1909 -- Initialize_135 -- 1910 -------------------- 1911 1912 procedure Initialize_135 is 1913 begin 1914 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 135, (Is_Empty => True)); 1915 end Initialize_135; 1916 1917 -------------------- 1918 -- Initialize_136 -- 1919 -------------------- 1920 1921 procedure Initialize_136 is 1922 begin 1923 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1924 (Base + 136, 1925 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008B'Access); 1926 end Initialize_136; 1927 1928 -------------------- 1929 -- Initialize_137 -- 1930 -------------------- 1931 1932 procedure Initialize_137 is 1933 begin 1934 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1935 (Base + 137, 1936 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_001C'Access); 1937 end Initialize_137; 1938 1939 -------------------- 1940 -- Initialize_138 -- 1941 -------------------- 1942 1943 procedure Initialize_138 is 1944 begin 1945 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1946 (Base + 138, 1947 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_000F'Access); 1948 end Initialize_138; 1949 1950 -------------------- 1951 -- Initialize_139 -- 1952 -------------------- 1953 1954 procedure Initialize_139 is 1955 begin 1956 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1957 (Base + 139, 1958 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0046'Access); 1959 end Initialize_139; 1960 1961 -------------------- 1962 -- Initialize_140 -- 1963 -------------------- 1964 1965 procedure Initialize_140 is 1966 begin 1967 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1968 (Base + 140, 1969 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0009'Access); 1970 end Initialize_140; 1971 1972 -------------------- 1973 -- Initialize_141 -- 1974 -------------------- 1975 1976 procedure Initialize_141 is 1977 begin 1978 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1979 (Base + 141, 1980 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0031'Access); 1981 end Initialize_141; 1982 1983 -------------------- 1984 -- Initialize_142 -- 1985 -------------------- 1986 1987 procedure Initialize_142 is 1988 begin 1989 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 1990 (Base + 142, 1991 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0004'Access); 1992 end Initialize_142; 1993 1994 -------------------- 1995 -- Initialize_143 -- 1996 -------------------- 1997 1998 procedure Initialize_143 is 1999 begin 2000 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2001 (Base + 143, 2002 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0047'Access); 2003 end Initialize_143; 2004 2005 -------------------- 2006 -- Initialize_144 -- 2007 -------------------- 2008 2009 procedure Initialize_144 is 2010 begin 2011 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2012 (Base + 144, 2013 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0039'Access); 2014 end Initialize_144; 2015 2016 -------------------- 2017 -- Initialize_145 -- 2018 -------------------- 2019 2020 procedure Initialize_145 is 2021 begin 2022 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2023 (Base + 145, 2024 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0034'Access); 2025 end Initialize_145; 2026 2027 -------------------- 2028 -- Initialize_146 -- 2029 -------------------- 2030 2031 procedure Initialize_146 is 2032 begin 2033 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2034 (Base + 146, 2035 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0087'Access); 2036 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 146, (Is_Empty => True)); 2037 end Initialize_146; 2038 2039 -------------------- 2040 -- Initialize_147 -- 2041 -------------------- 2042 2043 procedure Initialize_147 is 2044 begin 2045 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 147, (Is_Empty => True)); 2046 end Initialize_147; 2047 2048 -------------------- 2049 -- Initialize_148 -- 2050 -------------------- 2051 2052 procedure Initialize_148 is 2053 begin 2054 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2055 (Base + 148, 2056 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0018'Access); 2057 end Initialize_148; 2058 2059 -------------------- 2060 -- Initialize_149 -- 2061 -------------------- 2062 2063 procedure Initialize_149 is 2064 begin 2065 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2066 (Base + 149, 2067 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_008E'Access); 2068 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 149, (Is_Empty => True)); 2069 end Initialize_149; 2070 2071 -------------------- 2072 -- Initialize_150 -- 2073 -------------------- 2074 2075 procedure Initialize_150 is 2076 begin 2077 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 150, (Is_Empty => True)); 2078 end Initialize_150; 2079 2080 -------------------- 2081 -- Initialize_151 -- 2082 -------------------- 2083 2084 procedure Initialize_151 is 2085 begin 2086 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2087 (Base + 151, 2088 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0066'Access); 2089 end Initialize_151; 2090 2091 -------------------- 2092 -- Initialize_152 -- 2093 -------------------- 2094 2095 procedure Initialize_152 is 2096 begin 2097 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2098 (Base + 152, 2099 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0053'Access); 2100 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 152, (Is_Empty => True)); 2101 end Initialize_152; 2102 2103 -------------------- 2104 -- Initialize_153 -- 2105 -------------------- 2106 2107 procedure Initialize_153 is 2108 begin 2109 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 153, (Is_Empty => True)); 2110 end Initialize_153; 2111 2112 -------------------- 2113 -- Initialize_154 -- 2114 -------------------- 2115 2116 procedure Initialize_154 is 2117 begin 2118 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2119 (Base + 154, 2120 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_006C'Access); 2121 end Initialize_154; 2122 2123 -------------------- 2124 -- Initialize_155 -- 2125 -------------------- 2126 2127 procedure Initialize_155 is 2128 begin 2129 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2130 (Base + 155, 2131 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0086'Access); 2132 end Initialize_155; 2133 2134 -------------------- 2135 -- Initialize_156 -- 2136 -------------------- 2137 2138 procedure Initialize_156 is 2139 begin 2140 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2141 (Base + 156, 2142 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0083'Access); 2143 end Initialize_156; 2144 2145 -------------------- 2146 -- Initialize_157 -- 2147 -------------------- 2148 2149 procedure Initialize_157 is 2150 begin 2151 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2152 (Base + 157, 2153 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_003F'Access); 2154 end Initialize_157; 2155 2156 -------------------- 2157 -- Initialize_158 -- 2158 -------------------- 2159 2160 procedure Initialize_158 is 2161 begin 2162 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2163 (Base + 158, 2164 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0058'Access); 2165 end Initialize_158; 2166 2167 -------------------- 2168 -- Initialize_159 -- 2169 -------------------- 2170 2171 procedure Initialize_159 is 2172 begin 2173 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2174 (Base + 159, 2175 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_005F'Access); 2176 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 159, (Is_Empty => True)); 2177 end Initialize_159; 2178 2179 -------------------- 2180 -- Initialize_160 -- 2181 -------------------- 2182 2183 procedure Initialize_160 is 2184 begin 2185 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 160, (Is_Empty => True)); 2186 end Initialize_160; 2187 2188 -------------------- 2189 -- Initialize_161 -- 2190 -------------------- 2191 2192 procedure Initialize_161 is 2193 begin 2194 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2195 (Base + 161, 2196 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0002'Access); 2197 end Initialize_161; 2198 2199 -------------------- 2200 -- Initialize_162 -- 2201 -------------------- 2202 2203 procedure Initialize_162 is 2204 begin 2205 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2206 (Base + 162, 2207 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_003A'Access); 2208 end Initialize_162; 2209 2210 -------------------- 2211 -- Initialize_163 -- 2212 -------------------- 2213 2214 procedure Initialize_163 is 2215 begin 2216 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2217 (Base + 163, 2218 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007A'Access); 2219 end Initialize_163; 2220 2221 -------------------- 2222 -- Initialize_164 -- 2223 -------------------- 2224 2225 procedure Initialize_164 is 2226 begin 2227 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2228 (Base + 164, 2229 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0024'Access); 2230 end Initialize_164; 2231 2232 -------------------- 2233 -- Initialize_165 -- 2234 -------------------- 2235 2236 procedure Initialize_165 is 2237 begin 2238 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2239 (Base + 165, 2240 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_002D'Access); 2241 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 165, (Is_Empty => True)); 2242 end Initialize_165; 2243 2244 -------------------- 2245 -- Initialize_166 -- 2246 -------------------- 2247 2248 procedure Initialize_166 is 2249 begin 2250 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 166, (Is_Empty => True)); 2251 end Initialize_166; 2252 2253 -------------------- 2254 -- Initialize_167 -- 2255 -------------------- 2256 2257 procedure Initialize_167 is 2258 begin 2259 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2260 (Base + 167, 2261 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_002E'Access); 2262 end Initialize_167; 2263 2264 -------------------- 2265 -- Initialize_168 -- 2266 -------------------- 2267 2268 procedure Initialize_168 is 2269 begin 2270 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2271 (Base + 168, 2272 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_005E'Access); 2273 end Initialize_168; 2274 2275 -------------------- 2276 -- Initialize_169 -- 2277 -------------------- 2278 2279 procedure Initialize_169 is 2280 begin 2281 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2282 (Base + 169, 2283 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0021'Access); 2284 end Initialize_169; 2285 2286 -------------------- 2287 -- Initialize_170 -- 2288 -------------------- 2289 2290 procedure Initialize_170 is 2291 begin 2292 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2293 (Base + 170, 2294 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_005A'Access); 2295 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 170, (Is_Empty => True)); 2296 end Initialize_170; 2297 2298 -------------------- 2299 -- Initialize_171 -- 2300 -------------------- 2301 2302 procedure Initialize_171 is 2303 begin 2304 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 171, (Is_Empty => True)); 2305 end Initialize_171; 2306 2307 -------------------- 2308 -- Initialize_172 -- 2309 -------------------- 2310 2311 procedure Initialize_172 is 2312 begin 2313 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2314 (Base + 172, 2315 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0026'Access); 2316 end Initialize_172; 2317 2318 -------------------- 2319 -- Initialize_173 -- 2320 -------------------- 2321 2322 procedure Initialize_173 is 2323 begin 2324 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2325 (Base + 173, 2326 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0019'Access); 2327 end Initialize_173; 2328 2329 -------------------- 2330 -- Initialize_174 -- 2331 -------------------- 2332 2333 procedure Initialize_174 is 2334 begin 2335 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2336 (Base + 174, 2337 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0021'Access); 2338 end Initialize_174; 2339 2340 -------------------- 2341 -- Initialize_175 -- 2342 -------------------- 2343 2344 procedure Initialize_175 is 2345 begin 2346 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2347 (Base + 175, 2348 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_002C'Access); 2349 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 175, (Is_Empty => True)); 2350 end Initialize_175; 2351 2352 -------------------- 2353 -- Initialize_176 -- 2354 -------------------- 2355 2356 procedure Initialize_176 is 2357 begin 2358 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 176, (Is_Empty => True)); 2359 end Initialize_176; 2360 2361 -------------------- 2362 -- Initialize_177 -- 2363 -------------------- 2364 2365 procedure Initialize_177 is 2366 begin 2367 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 2368 (Base + 177, 2369 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0057'Access); 2370 end Initialize_177; 2371 2372 -------------------- 2373 -- Initialize_178 -- 2374 -------------------- 2375 2376 procedure Initialize_178 is 2377 begin 2378 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2379 (Base + 178, 2380 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_0023'Access); 2381 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 178, (Is_Empty => True)); 2382 end Initialize_178; 2383 2384 -------------------- 2385 -- Initialize_179 -- 2386 -------------------- 2387 2388 procedure Initialize_179 is 2389 begin 2390 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 179, (Is_Empty => True)); 2391 end Initialize_179; 2392 2393 -------------------- 2394 -- Initialize_180 -- 2395 -------------------- 2396 2397 procedure Initialize_180 is 2398 begin 2399 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 2400 (Base + 180, 2401 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_003C'Access); 2402 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value 2403 (Base + 180, 2404 AMF.Internals.Tables.Standard_Profile_L2_String_Data_00.MS_007D'Access); 2405 end Initialize_180; 2406 2407end AMF.Internals.Tables.Standard_Profile_L2_Metamodel.Properties; 2408