1------------------------------------------------------------------------------ 2-- -- 3-- Matreshka Project -- 4-- -- 5-- Ada Modeling Framework -- 6-- -- 7-- Runtime Library Component -- 8-- -- 9------------------------------------------------------------------------------ 10-- -- 11-- Copyright © 2011-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: 3400 $ $Date: 2012-11-13 10:48:36 +0400 (Tue, 13 Nov 2012) $ 43------------------------------------------------------------------------------ 44with AMF.Elements; 45with AMF.Holders.Elements; 46 47package body AMF.Internals.Holders.UML_Holders is 48 49 --------------- 50 -- To_Holder -- 51 --------------- 52 53 function To_Holder 54 (Item : AMF.UML.Abstractions.UML_Abstraction_Access) 55 return League.Holders.Holder is 56 begin 57 return 58 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 59 end To_Holder; 60 61 --------------- 62 -- To_Holder -- 63 --------------- 64 65 function To_Holder 66 (Item : AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access) 67 return League.Holders.Holder is 68 begin 69 return 70 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 71 end To_Holder; 72 73 --------------- 74 -- To_Holder -- 75 --------------- 76 77 function To_Holder 78 (Item : AMF.UML.Actions.UML_Action_Access) 79 return League.Holders.Holder is 80 begin 81 return 82 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 83 end To_Holder; 84 85 --------------- 86 -- To_Holder -- 87 --------------- 88 89 function To_Holder 90 (Item : AMF.UML.Activities.UML_Activity_Access) 91 return League.Holders.Holder is 92 begin 93 return 94 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 95 end To_Holder; 96 97 --------------- 98 -- To_Holder -- 99 --------------- 100 101 function To_Holder 102 (Item : AMF.UML.Activity_Groups.UML_Activity_Group_Access) 103 return League.Holders.Holder is 104 begin 105 return 106 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 107 end To_Holder; 108 109 --------------- 110 -- To_Holder -- 111 --------------- 112 113 function To_Holder 114 (Item : AMF.UML.Activity_Nodes.UML_Activity_Node_Access) 115 return League.Holders.Holder is 116 begin 117 return 118 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 119 end To_Holder; 120 121 --------------- 122 -- To_Holder -- 123 --------------- 124 125 function To_Holder 126 (Item : AMF.UML.Activity_Partitions.UML_Activity_Partition_Access) 127 return League.Holders.Holder is 128 begin 129 return 130 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 131 end To_Holder; 132 133 --------------- 134 -- To_Holder -- 135 --------------- 136 137 function To_Holder 138 (Item : AMF.UML.Artifacts.UML_Artifact_Access) 139 return League.Holders.Holder is 140 begin 141 return 142 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 143 end To_Holder; 144 145 --------------- 146 -- To_Holder -- 147 --------------- 148 149 function To_Holder 150 (Item : AMF.UML.Associations.UML_Association_Access) 151 return League.Holders.Holder is 152 begin 153 return 154 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 155 end To_Holder; 156 157 --------------- 158 -- To_Holder -- 159 --------------- 160 161 function To_Holder 162 (Item : AMF.UML.Association_Classes.UML_Association_Class_Access) 163 return League.Holders.Holder is 164 begin 165 return 166 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 167 end To_Holder; 168 169 --------------- 170 -- To_Holder -- 171 --------------- 172 173 function To_Holder 174 (Item : AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access) 175 return League.Holders.Holder is 176 begin 177 return 178 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 179 end To_Holder; 180 181 --------------- 182 -- To_Holder -- 183 --------------- 184 185 function To_Holder 186 (Item : AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access) 187 return League.Holders.Holder is 188 begin 189 return 190 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 191 end To_Holder; 192 193 --------------- 194 -- To_Holder -- 195 --------------- 196 197 function To_Holder 198 (Item : AMF.UML.Behaviors.UML_Behavior_Access) 199 return League.Holders.Holder is 200 begin 201 return 202 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 203 end To_Holder; 204 205 --------------- 206 -- To_Holder -- 207 --------------- 208 209 function To_Holder 210 (Item : AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access) 211 return League.Holders.Holder is 212 begin 213 return 214 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 215 end To_Holder; 216 217 --------------- 218 -- To_Holder -- 219 --------------- 220 221 function To_Holder 222 (Item : AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access) 223 return League.Holders.Holder is 224 begin 225 return 226 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 227 end To_Holder; 228 229 --------------- 230 -- To_Holder -- 231 --------------- 232 233 function To_Holder 234 (Item : AMF.UML.Classifiers.UML_Classifier_Access) 235 return League.Holders.Holder is 236 begin 237 return 238 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 239 end To_Holder; 240 241 --------------- 242 -- To_Holder -- 243 --------------- 244 245 function To_Holder 246 (Item : AMF.UML.Classes.UML_Class_Access) 247 return League.Holders.Holder is 248 begin 249 return 250 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 251 end To_Holder; 252 253 --------------- 254 -- To_Holder -- 255 --------------- 256 257 function To_Holder 258 (Item : AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access) 259 return League.Holders.Holder is 260 begin 261 return 262 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 263 end To_Holder; 264 265 --------------- 266 -- To_Holder -- 267 --------------- 268 269 function To_Holder 270 (Item : AMF.UML.Collaborations.UML_Collaboration_Access) 271 return League.Holders.Holder is 272 begin 273 return 274 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 275 end To_Holder; 276 277 --------------- 278 -- To_Holder -- 279 --------------- 280 281 function To_Holder 282 (Item : AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access) 283 return League.Holders.Holder is 284 begin 285 return 286 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 287 end To_Holder; 288 289 --------------- 290 -- To_Holder -- 291 --------------- 292 293 function To_Holder 294 (Item : AMF.UML.Components.UML_Component_Access) 295 return League.Holders.Holder is 296 begin 297 return 298 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 299 end To_Holder; 300 301 --------------- 302 -- To_Holder -- 303 --------------- 304 305 function To_Holder 306 (Item : AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access) 307 return League.Holders.Holder is 308 begin 309 return 310 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 311 end To_Holder; 312 313 --------------- 314 -- To_Holder -- 315 --------------- 316 317 function To_Holder 318 (Item : AMF.UML.Connectable_Elements.UML_Connectable_Element_Access) 319 return League.Holders.Holder is 320 begin 321 return 322 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 323 end To_Holder; 324 325 --------------- 326 -- To_Holder -- 327 --------------- 328 329 function To_Holder 330 (Item : AMF.UML.Connectors.UML_Connector_Access) 331 return League.Holders.Holder is 332 begin 333 return 334 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 335 end To_Holder; 336 337 --------------- 338 -- To_Holder -- 339 --------------- 340 341 function To_Holder 342 (Item : AMF.UML.Constraints.UML_Constraint_Access) 343 return League.Holders.Holder is 344 begin 345 return 346 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 347 end To_Holder; 348 349 --------------- 350 -- To_Holder -- 351 --------------- 352 353 function To_Holder 354 (Item : AMF.UML.Data_Types.UML_Data_Type_Access) 355 return League.Holders.Holder is 356 begin 357 return 358 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 359 end To_Holder; 360 361 --------------- 362 -- To_Holder -- 363 --------------- 364 365 function To_Holder 366 (Item : AMF.UML.Dependencies.UML_Dependency_Access) 367 return League.Holders.Holder is 368 begin 369 return 370 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 371 end To_Holder; 372 373 --------------- 374 -- To_Holder -- 375 --------------- 376 377 function To_Holder 378 (Item : AMF.UML.Deployment_Targets.UML_Deployment_Target_Access) 379 return League.Holders.Holder is 380 begin 381 return 382 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 383 end To_Holder; 384 385 --------------- 386 -- To_Holder -- 387 --------------- 388 389 function To_Holder 390 (Item : AMF.UML.Deployments.UML_Deployment_Access) 391 return League.Holders.Holder is 392 begin 393 return 394 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 395 end To_Holder; 396 397 --------------- 398 -- To_Holder -- 399 --------------- 400 401 function To_Holder 402 (Item : AMF.UML.Duration_Intervals.UML_Duration_Interval_Access) 403 return League.Holders.Holder is 404 begin 405 return 406 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 407 end To_Holder; 408 409 --------------- 410 -- To_Holder -- 411 --------------- 412 413 function To_Holder 414 (Item : AMF.UML.Durations.UML_Duration_Access) 415 return League.Holders.Holder is 416 begin 417 return 418 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 419 end To_Holder; 420 421 --------------- 422 -- To_Holder -- 423 --------------- 424 425 function To_Holder 426 (Item : AMF.UML.Elements.UML_Element_Access) 427 return League.Holders.Holder is 428 begin 429 return 430 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 431 end To_Holder; 432 433 --------------- 434 -- To_Holder -- 435 --------------- 436 437 function To_Holder 438 (Item : AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access) 439 return League.Holders.Holder is 440 begin 441 return 442 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 443 end To_Holder; 444 445 --------------- 446 -- To_Holder -- 447 --------------- 448 449 function To_Holder 450 (Item : AMF.UML.Enumerations.UML_Enumeration_Access) 451 return League.Holders.Holder is 452 begin 453 return 454 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 455 end To_Holder; 456 457 --------------- 458 -- To_Holder -- 459 --------------- 460 461 function To_Holder 462 (Item : AMF.UML.Events.UML_Event_Access) 463 return League.Holders.Holder is 464 begin 465 return 466 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 467 end To_Holder; 468 469 --------------- 470 -- To_Holder -- 471 --------------- 472 473 function To_Holder 474 (Item : AMF.UML.Executable_Nodes.UML_Executable_Node_Access) 475 return League.Holders.Holder is 476 begin 477 return 478 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 479 end To_Holder; 480 481 --------------- 482 -- To_Holder -- 483 --------------- 484 485 function To_Holder 486 (Item : AMF.UML.Execution_Specifications.UML_Execution_Specification_Access) 487 return League.Holders.Holder is 488 begin 489 return 490 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 491 end To_Holder; 492 493 --------------- 494 -- To_Holder -- 495 --------------- 496 497 function To_Holder 498 (Item : AMF.UML.Expansion_Regions.UML_Expansion_Region_Access) 499 return League.Holders.Holder is 500 begin 501 return 502 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 503 end To_Holder; 504 505 --------------- 506 -- To_Holder -- 507 --------------- 508 509 function To_Holder 510 (Item : AMF.UML.Extension_Ends.UML_Extension_End_Access) 511 return League.Holders.Holder is 512 begin 513 return 514 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 515 end To_Holder; 516 517 --------------- 518 -- To_Holder -- 519 --------------- 520 521 function To_Holder 522 (Item : AMF.UML.Input_Pins.UML_Input_Pin_Access) 523 return League.Holders.Holder is 524 begin 525 return 526 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 527 end To_Holder; 528 529 --------------- 530 -- To_Holder -- 531 --------------- 532 533 function To_Holder 534 (Item : AMF.UML.Instance_Specifications.UML_Instance_Specification_Access) 535 return League.Holders.Holder is 536 begin 537 return 538 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 539 end To_Holder; 540 541 --------------- 542 -- To_Holder -- 543 --------------- 544 545 function To_Holder 546 (Item : AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access) 547 return League.Holders.Holder is 548 begin 549 return 550 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 551 end To_Holder; 552 553 --------------- 554 -- To_Holder -- 555 --------------- 556 557 function To_Holder 558 (Item : AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access) 559 return League.Holders.Holder is 560 begin 561 return 562 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 563 end To_Holder; 564 565 --------------- 566 -- To_Holder -- 567 --------------- 568 569 function To_Holder 570 (Item : AMF.UML.Interactions.UML_Interaction_Access) 571 return League.Holders.Holder is 572 begin 573 return 574 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 575 end To_Holder; 576 577 --------------- 578 -- To_Holder -- 579 --------------- 580 581 function To_Holder 582 (Item : AMF.UML.Interfaces.UML_Interface_Access) 583 return League.Holders.Holder is 584 begin 585 return 586 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 587 end To_Holder; 588 589 --------------- 590 -- To_Holder -- 591 --------------- 592 593 function To_Holder 594 (Item : AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access) 595 return League.Holders.Holder is 596 begin 597 return 598 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 599 end To_Holder; 600 601 --------------- 602 -- To_Holder -- 603 --------------- 604 605 function To_Holder 606 (Item : AMF.UML.Intervals.UML_Interval_Access) 607 return League.Holders.Holder is 608 begin 609 return 610 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 611 end To_Holder; 612 613 --------------- 614 -- To_Holder -- 615 --------------- 616 617 function To_Holder 618 (Item : AMF.UML.Invocation_Actions.UML_Invocation_Action_Access) 619 return League.Holders.Holder is 620 begin 621 return 622 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 623 end To_Holder; 624 625 --------------- 626 -- To_Holder -- 627 --------------- 628 629 function To_Holder 630 (Item : AMF.UML.Lifelines.UML_Lifeline_Access) 631 return League.Holders.Holder is 632 begin 633 return 634 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 635 end To_Holder; 636 637 --------------- 638 -- To_Holder -- 639 --------------- 640 641 function To_Holder 642 (Item : AMF.UML.Literal_Specifications.UML_Literal_Specification_Access) 643 return League.Holders.Holder is 644 begin 645 return 646 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 647 end To_Holder; 648 649 --------------- 650 -- To_Holder -- 651 --------------- 652 653 function To_Holder 654 (Item : AMF.UML.Message_Ends.UML_Message_End_Access) 655 return League.Holders.Holder is 656 begin 657 return 658 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 659 end To_Holder; 660 661 --------------- 662 -- To_Holder -- 663 --------------- 664 665 function To_Holder 666 (Item : AMF.UML.Messages.UML_Message_Access) 667 return League.Holders.Holder is 668 begin 669 return 670 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 671 end To_Holder; 672 673 --------------- 674 -- To_Holder -- 675 --------------- 676 677 function To_Holder 678 (Item : AMF.UML.Models.UML_Model_Access) 679 return League.Holders.Holder is 680 begin 681 return 682 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 683 end To_Holder; 684 685 --------------- 686 -- To_Holder -- 687 --------------- 688 689 function To_Holder 690 (Item : AMF.UML.Multiplicity_Elements.UML_Multiplicity_Element_Access) 691 return League.Holders.Holder is 692 begin 693 return 694 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 695 end To_Holder; 696 697 --------------- 698 -- To_Holder -- 699 --------------- 700 701 function To_Holder 702 (Item : AMF.UML.Named_Elements.UML_Named_Element_Access) 703 return League.Holders.Holder is 704 begin 705 return 706 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 707 end To_Holder; 708 709 --------------- 710 -- To_Holder -- 711 --------------- 712 713 function To_Holder 714 (Item : AMF.UML.Namespaces.UML_Namespace_Access) 715 return League.Holders.Holder is 716 begin 717 return 718 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 719 end To_Holder; 720 721 --------------- 722 -- To_Holder -- 723 --------------- 724 725 function To_Holder 726 (Item : AMF.UML.Object_Flows.UML_Object_Flow_Access) 727 return League.Holders.Holder is 728 begin 729 return 730 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 731 end To_Holder; 732 733 --------------- 734 -- To_Holder -- 735 --------------- 736 737 function To_Holder 738 (Item : AMF.UML.Object_Nodes.UML_Object_Node_Access) 739 return League.Holders.Holder is 740 begin 741 return 742 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 743 end To_Holder; 744 745 --------------- 746 -- To_Holder -- 747 --------------- 748 749 function To_Holder 750 (Item : AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access) 751 return League.Holders.Holder is 752 begin 753 return 754 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 755 end To_Holder; 756 757 --------------- 758 -- To_Holder -- 759 --------------- 760 761 function To_Holder 762 (Item : AMF.UML.Opaque_Actions.UML_Opaque_Action_Access) 763 return League.Holders.Holder is 764 begin 765 return 766 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 767 end To_Holder; 768 769 --------------- 770 -- To_Holder -- 771 --------------- 772 773 function To_Holder 774 (Item : AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access) 775 return League.Holders.Holder is 776 begin 777 return 778 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 779 end To_Holder; 780 781 --------------- 782 -- To_Holder -- 783 --------------- 784 785 function To_Holder 786 (Item : AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access) 787 return League.Holders.Holder is 788 begin 789 return 790 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 791 end To_Holder; 792 793 --------------- 794 -- To_Holder -- 795 --------------- 796 797 function To_Holder 798 (Item : AMF.UML.Operations.UML_Operation_Access) 799 return League.Holders.Holder is 800 begin 801 return 802 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 803 end To_Holder; 804 805 --------------- 806 -- To_Holder -- 807 --------------- 808 809 function To_Holder 810 (Item : AMF.UML.Output_Pins.UML_Output_Pin_Access) 811 return League.Holders.Holder is 812 begin 813 return 814 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 815 end To_Holder; 816 817 --------------- 818 -- To_Holder -- 819 --------------- 820 821 function To_Holder 822 (Item : AMF.UML.Packageable_Elements.UML_Packageable_Element_Access) 823 return League.Holders.Holder is 824 begin 825 return 826 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 827 end To_Holder; 828 829 --------------- 830 -- To_Holder -- 831 --------------- 832 833 function To_Holder 834 (Item : AMF.UML.Packages.UML_Package_Access) 835 return League.Holders.Holder is 836 begin 837 return 838 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 839 end To_Holder; 840 841 --------------- 842 -- To_Holder -- 843 --------------- 844 845 function To_Holder 846 (Item : AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access) 847 return League.Holders.Holder is 848 begin 849 return 850 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 851 end To_Holder; 852 853 --------------- 854 -- To_Holder -- 855 --------------- 856 857 function To_Holder 858 (Item : AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access) 859 return League.Holders.Holder is 860 begin 861 return 862 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 863 end To_Holder; 864 865 --------------- 866 -- To_Holder -- 867 --------------- 868 869 function To_Holder 870 (Item : AMF.UML.Parameters.UML_Parameter_Access) 871 return League.Holders.Holder is 872 begin 873 return 874 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 875 end To_Holder; 876 877 --------------- 878 -- To_Holder -- 879 --------------- 880 881 function To_Holder 882 (Item : AMF.UML.Ports.UML_Port_Access) 883 return League.Holders.Holder is 884 begin 885 return 886 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 887 end To_Holder; 888 889 --------------- 890 -- To_Holder -- 891 --------------- 892 893 function To_Holder 894 (Item : AMF.UML.Profiles.UML_Profile_Access) 895 return League.Holders.Holder is 896 begin 897 return 898 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 899 end To_Holder; 900 901 --------------- 902 -- To_Holder -- 903 --------------- 904 905 function To_Holder 906 (Item : AMF.UML.Properties.UML_Property_Access) 907 return League.Holders.Holder is 908 begin 909 return 910 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 911 end To_Holder; 912 913 --------------- 914 -- To_Holder -- 915 --------------- 916 917 function To_Holder 918 (Item : AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access) 919 return League.Holders.Holder is 920 begin 921 return 922 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 923 end To_Holder; 924 925 --------------- 926 -- To_Holder -- 927 --------------- 928 929 function To_Holder 930 (Item : AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access) 931 return League.Holders.Holder is 932 begin 933 return 934 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 935 end To_Holder; 936 937 --------------- 938 -- To_Holder -- 939 --------------- 940 941 function To_Holder 942 (Item : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access) 943 return League.Holders.Holder is 944 begin 945 return 946 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 947 end To_Holder; 948 949 --------------- 950 -- To_Holder -- 951 --------------- 952 953 function To_Holder 954 (Item : AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access) 955 return League.Holders.Holder is 956 begin 957 return 958 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 959 end To_Holder; 960 961 --------------- 962 -- To_Holder -- 963 --------------- 964 965 function To_Holder 966 (Item : AMF.UML.Regions.UML_Region_Access) 967 return League.Holders.Holder is 968 begin 969 return 970 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 971 end To_Holder; 972 973 --------------- 974 -- To_Holder -- 975 --------------- 976 977 function To_Holder 978 (Item : AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access) 979 return League.Holders.Holder is 980 begin 981 return 982 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 983 end To_Holder; 984 985 --------------- 986 -- To_Holder -- 987 --------------- 988 989 function To_Holder 990 (Item : AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access) 991 return League.Holders.Holder is 992 begin 993 return 994 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 995 end To_Holder; 996 997 --------------- 998 -- To_Holder -- 999 --------------- 1000 1001 function To_Holder 1002 (Item : AMF.UML.Signals.UML_Signal_Access) 1003 return League.Holders.Holder is 1004 begin 1005 return 1006 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1007 end To_Holder; 1008 1009 --------------- 1010 -- To_Holder -- 1011 --------------- 1012 1013 function To_Holder 1014 (Item : AMF.UML.State_Machines.UML_State_Machine_Access) 1015 return League.Holders.Holder is 1016 begin 1017 return 1018 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1019 end To_Holder; 1020 1021 --------------- 1022 -- To_Holder -- 1023 --------------- 1024 1025 function To_Holder 1026 (Item : AMF.UML.States.UML_State_Access) 1027 return League.Holders.Holder is 1028 begin 1029 return 1030 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1031 end To_Holder; 1032 1033 --------------- 1034 -- To_Holder -- 1035 --------------- 1036 1037 function To_Holder 1038 (Item : AMF.UML.Stereotypes.UML_Stereotype_Access) 1039 return League.Holders.Holder is 1040 begin 1041 return 1042 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1043 end To_Holder; 1044 1045 --------------- 1046 -- To_Holder -- 1047 --------------- 1048 1049 function To_Holder 1050 (Item : AMF.UML.String_Expressions.UML_String_Expression_Access) 1051 return League.Holders.Holder is 1052 begin 1053 return 1054 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1055 end To_Holder; 1056 1057 --------------- 1058 -- To_Holder -- 1059 --------------- 1060 1061 function To_Holder 1062 (Item : AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access) 1063 return League.Holders.Holder is 1064 begin 1065 return 1066 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1067 end To_Holder; 1068 1069 --------------- 1070 -- To_Holder -- 1071 --------------- 1072 1073 function To_Holder 1074 (Item : AMF.UML.Structured_Classifiers.UML_Structured_Classifier_Access) 1075 return League.Holders.Holder is 1076 begin 1077 return 1078 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1079 end To_Holder; 1080 1081 --------------- 1082 -- To_Holder -- 1083 --------------- 1084 1085 function To_Holder 1086 (Item : AMF.UML.Structural_Features.UML_Structural_Feature_Access) 1087 return League.Holders.Holder is 1088 begin 1089 return 1090 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1091 end To_Holder; 1092 1093 --------------- 1094 -- To_Holder -- 1095 --------------- 1096 1097 function To_Holder 1098 (Item : AMF.UML.Template_Bindings.UML_Template_Binding_Access) 1099 return League.Holders.Holder is 1100 begin 1101 return 1102 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1103 end To_Holder; 1104 1105 --------------- 1106 -- To_Holder -- 1107 --------------- 1108 1109 function To_Holder 1110 (Item : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) 1111 return League.Holders.Holder is 1112 begin 1113 return 1114 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1115 end To_Holder; 1116 1117 --------------- 1118 -- To_Holder -- 1119 --------------- 1120 1121 function To_Holder 1122 (Item : AMF.UML.Template_Signatures.UML_Template_Signature_Access) 1123 return League.Holders.Holder is 1124 begin 1125 return 1126 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1127 end To_Holder; 1128 1129 --------------- 1130 -- To_Holder -- 1131 --------------- 1132 1133 function To_Holder 1134 (Item : AMF.UML.Templateable_Elements.UML_Templateable_Element_Access) 1135 return League.Holders.Holder is 1136 begin 1137 return 1138 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1139 end To_Holder; 1140 1141 --------------- 1142 -- To_Holder -- 1143 --------------- 1144 1145 function To_Holder 1146 (Item : AMF.UML.Time_Intervals.UML_Time_Interval_Access) 1147 return League.Holders.Holder is 1148 begin 1149 return 1150 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1151 end To_Holder; 1152 1153 --------------- 1154 -- To_Holder -- 1155 --------------- 1156 1157 function To_Holder 1158 (Item : AMF.UML.Time_Events.UML_Time_Event_Access) 1159 return League.Holders.Holder is 1160 begin 1161 return 1162 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1163 end To_Holder; 1164 1165 --------------- 1166 -- To_Holder -- 1167 --------------- 1168 1169 function To_Holder 1170 (Item : AMF.UML.Time_Expressions.UML_Time_Expression_Access) 1171 return League.Holders.Holder is 1172 begin 1173 return 1174 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1175 end To_Holder; 1176 1177 --------------- 1178 -- To_Holder -- 1179 --------------- 1180 1181 function To_Holder 1182 (Item : AMF.UML.Transitions.UML_Transition_Access) 1183 return League.Holders.Holder is 1184 begin 1185 return 1186 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1187 end To_Holder; 1188 1189 --------------- 1190 -- To_Holder -- 1191 --------------- 1192 1193 function To_Holder 1194 (Item : AMF.UML.Triggers.UML_Trigger_Access) 1195 return League.Holders.Holder is 1196 begin 1197 return 1198 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1199 end To_Holder; 1200 1201 --------------- 1202 -- To_Holder -- 1203 --------------- 1204 1205 function To_Holder 1206 (Item : AMF.UML.Types.UML_Type_Access) 1207 return League.Holders.Holder is 1208 begin 1209 return 1210 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1211 end To_Holder; 1212 1213 --------------- 1214 -- To_Holder -- 1215 --------------- 1216 1217 function To_Holder 1218 (Item : AMF.UML.Usages.UML_Usage_Access) 1219 return League.Holders.Holder is 1220 begin 1221 return 1222 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1223 end To_Holder; 1224 1225 --------------- 1226 -- To_Holder -- 1227 --------------- 1228 1229 function To_Holder 1230 (Item : AMF.UML.Use_Cases.UML_Use_Case_Access) 1231 return League.Holders.Holder is 1232 begin 1233 return 1234 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1235 end To_Holder; 1236 1237 --------------- 1238 -- To_Holder -- 1239 --------------- 1240 1241 function To_Holder 1242 (Item : AMF.UML.Value_Specifications.UML_Value_Specification_Access) 1243 return League.Holders.Holder is 1244 begin 1245 return 1246 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1247 end To_Holder; 1248 1249 --------------- 1250 -- To_Holder -- 1251 --------------- 1252 1253 function To_Holder 1254 (Item : AMF.UML.Variables.UML_Variable_Access) 1255 return League.Holders.Holder is 1256 begin 1257 return 1258 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1259 end To_Holder; 1260 1261 --------------- 1262 -- To_Holder -- 1263 --------------- 1264 1265 function To_Holder 1266 (Item : AMF.UML.Vertexs.UML_Vertex_Access) 1267 return League.Holders.Holder is 1268 begin 1269 return 1270 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1271 end To_Holder; 1272 1273 --------------- 1274 -- To_Holder -- 1275 --------------- 1276 1277 function To_Holder 1278 (Item : AMF.UML.Write_Structural_Feature_Actions.UML_Write_Structural_Feature_Action_Access) 1279 return League.Holders.Holder is 1280 begin 1281 return 1282 AMF.Holders.Elements.To_Holder (AMF.Elements.Element_Access (Item)); 1283 end To_Holder; 1284 1285end AMF.Internals.Holders.UML_Holders; 1286