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