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: 2937 $ $Date: 2012-05-01 21:07:27 +0400 (Tue, 01 May 2012) $ 43------------------------------------------------------------------------------ 44with AMF.Elements; 45with AMF.Internals.Element_Collections; 46with AMF.Internals.Helpers; 47with AMF.Internals.Tables.UML_Attributes; 48with AMF.Visitors.UML_Iterators; 49with AMF.Visitors.UML_Visitors; 50with League.Strings.Internals; 51with Matreshka.Internals.Strings; 52 53package body AMF.Internals.UML_Activities is 54 55 ------------------- 56 -- Enter_Element -- 57 ------------------- 58 59 overriding procedure Enter_Element 60 (Self : not null access constant UML_Activity_Proxy; 61 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 62 Control : in out AMF.Visitors.Traverse_Control) is 63 begin 64 if Visitor in AMF.Visitors.UML_Visitors.UML_Visitor'Class then 65 AMF.Visitors.UML_Visitors.UML_Visitor'Class 66 (Visitor).Enter_Activity 67 (AMF.UML.Activities.UML_Activity_Access (Self), 68 Control); 69 end if; 70 end Enter_Element; 71 72 ------------------- 73 -- Leave_Element -- 74 ------------------- 75 76 overriding procedure Leave_Element 77 (Self : not null access constant UML_Activity_Proxy; 78 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 79 Control : in out AMF.Visitors.Traverse_Control) is 80 begin 81 if Visitor in AMF.Visitors.UML_Visitors.UML_Visitor'Class then 82 AMF.Visitors.UML_Visitors.UML_Visitor'Class 83 (Visitor).Leave_Activity 84 (AMF.UML.Activities.UML_Activity_Access (Self), 85 Control); 86 end if; 87 end Leave_Element; 88 89 ------------------- 90 -- Visit_Element -- 91 ------------------- 92 93 overriding procedure Visit_Element 94 (Self : not null access constant UML_Activity_Proxy; 95 Iterator : in out AMF.Visitors.Abstract_Iterator'Class; 96 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 97 Control : in out AMF.Visitors.Traverse_Control) is 98 begin 99 if Iterator in AMF.Visitors.UML_Iterators.UML_Iterator'Class then 100 AMF.Visitors.UML_Iterators.UML_Iterator'Class 101 (Iterator).Visit_Activity 102 (Visitor, 103 AMF.UML.Activities.UML_Activity_Access (Self), 104 Control); 105 end if; 106 end Visit_Element; 107 108 -------------- 109 -- Get_Edge -- 110 -------------- 111 112 overriding function Get_Edge 113 (Self : not null access constant UML_Activity_Proxy) 114 return AMF.UML.Activity_Edges.Collections.Set_Of_UML_Activity_Edge is 115 begin 116 return 117 AMF.UML.Activity_Edges.Collections.Wrap 118 (AMF.Internals.Element_Collections.Wrap 119 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Edge 120 (Self.Element))); 121 end Get_Edge; 122 123 --------------- 124 -- Get_Group -- 125 --------------- 126 127 overriding function Get_Group 128 (Self : not null access constant UML_Activity_Proxy) 129 return AMF.UML.Activity_Groups.Collections.Set_Of_UML_Activity_Group is 130 begin 131 return 132 AMF.UML.Activity_Groups.Collections.Wrap 133 (AMF.Internals.Element_Collections.Wrap 134 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Group 135 (Self.Element))); 136 end Get_Group; 137 138 ---------------------- 139 -- Get_Is_Read_Only -- 140 ---------------------- 141 142 overriding function Get_Is_Read_Only 143 (Self : not null access constant UML_Activity_Proxy) 144 return Boolean is 145 begin 146 return 147 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Read_Only 148 (Self.Element); 149 end Get_Is_Read_Only; 150 151 ---------------------- 152 -- Set_Is_Read_Only -- 153 ---------------------- 154 155 overriding procedure Set_Is_Read_Only 156 (Self : not null access UML_Activity_Proxy; 157 To : Boolean) is 158 begin 159 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Read_Only 160 (Self.Element, To); 161 end Set_Is_Read_Only; 162 163 ----------------------------- 164 -- Get_Is_Single_Execution -- 165 ----------------------------- 166 167 overriding function Get_Is_Single_Execution 168 (Self : not null access constant UML_Activity_Proxy) 169 return Boolean is 170 begin 171 return 172 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Single_Execution 173 (Self.Element); 174 end Get_Is_Single_Execution; 175 176 ----------------------------- 177 -- Set_Is_Single_Execution -- 178 ----------------------------- 179 180 overriding procedure Set_Is_Single_Execution 181 (Self : not null access UML_Activity_Proxy; 182 To : Boolean) is 183 begin 184 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Single_Execution 185 (Self.Element, To); 186 end Set_Is_Single_Execution; 187 188 -------------- 189 -- Get_Node -- 190 -------------- 191 192 overriding function Get_Node 193 (Self : not null access constant UML_Activity_Proxy) 194 return AMF.UML.Activity_Nodes.Collections.Set_Of_UML_Activity_Node is 195 begin 196 return 197 AMF.UML.Activity_Nodes.Collections.Wrap 198 (AMF.Internals.Element_Collections.Wrap 199 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Node 200 (Self.Element))); 201 end Get_Node; 202 203 ------------------- 204 -- Get_Partition -- 205 ------------------- 206 207 overriding function Get_Partition 208 (Self : not null access constant UML_Activity_Proxy) 209 return AMF.UML.Activity_Partitions.Collections.Set_Of_UML_Activity_Partition is 210 begin 211 return 212 AMF.UML.Activity_Partitions.Collections.Wrap 213 (AMF.Internals.Element_Collections.Wrap 214 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Partition 215 (Self.Element))); 216 end Get_Partition; 217 218 ------------------------- 219 -- Get_Structured_Node -- 220 ------------------------- 221 222 overriding function Get_Structured_Node 223 (Self : not null access constant UML_Activity_Proxy) 224 return AMF.UML.Structured_Activity_Nodes.Collections.Set_Of_UML_Structured_Activity_Node is 225 begin 226 return 227 AMF.UML.Structured_Activity_Nodes.Collections.Wrap 228 (AMF.Internals.Element_Collections.Wrap 229 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Structured_Node 230 (Self.Element))); 231 end Get_Structured_Node; 232 233 ------------------ 234 -- Get_Variable -- 235 ------------------ 236 237 overriding function Get_Variable 238 (Self : not null access constant UML_Activity_Proxy) 239 return AMF.UML.Variables.Collections.Set_Of_UML_Variable is 240 begin 241 return 242 AMF.UML.Variables.Collections.Wrap 243 (AMF.Internals.Element_Collections.Wrap 244 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Variable 245 (Self.Element))); 246 end Get_Variable; 247 248 ----------------- 249 -- Get_Context -- 250 ----------------- 251 252 overriding function Get_Context 253 (Self : not null access constant UML_Activity_Proxy) 254 return AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access is 255 begin 256 return 257 AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access 258 (AMF.Internals.Helpers.To_Element 259 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Context 260 (Self.Element))); 261 end Get_Context; 262 263 ---------------------- 264 -- Get_Is_Reentrant -- 265 ---------------------- 266 267 overriding function Get_Is_Reentrant 268 (Self : not null access constant UML_Activity_Proxy) 269 return Boolean is 270 begin 271 return 272 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Reentrant 273 (Self.Element); 274 end Get_Is_Reentrant; 275 276 ---------------------- 277 -- Set_Is_Reentrant -- 278 ---------------------- 279 280 overriding procedure Set_Is_Reentrant 281 (Self : not null access UML_Activity_Proxy; 282 To : Boolean) is 283 begin 284 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Reentrant 285 (Self.Element, To); 286 end Set_Is_Reentrant; 287 288 ------------------------- 289 -- Get_Owned_Parameter -- 290 ------------------------- 291 292 overriding function Get_Owned_Parameter 293 (Self : not null access constant UML_Activity_Proxy) 294 return AMF.UML.Parameters.Collections.Ordered_Set_Of_UML_Parameter is 295 begin 296 return 297 AMF.UML.Parameters.Collections.Wrap 298 (AMF.Internals.Element_Collections.Wrap 299 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Parameter 300 (Self.Element))); 301 end Get_Owned_Parameter; 302 303 ----------------------------- 304 -- Get_Owned_Parameter_Set -- 305 ----------------------------- 306 307 overriding function Get_Owned_Parameter_Set 308 (Self : not null access constant UML_Activity_Proxy) 309 return AMF.UML.Parameter_Sets.Collections.Set_Of_UML_Parameter_Set is 310 begin 311 return 312 AMF.UML.Parameter_Sets.Collections.Wrap 313 (AMF.Internals.Element_Collections.Wrap 314 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Parameter_Set 315 (Self.Element))); 316 end Get_Owned_Parameter_Set; 317 318 ----------------------- 319 -- Get_Postcondition -- 320 ----------------------- 321 322 overriding function Get_Postcondition 323 (Self : not null access constant UML_Activity_Proxy) 324 return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is 325 begin 326 return 327 AMF.UML.Constraints.Collections.Wrap 328 (AMF.Internals.Element_Collections.Wrap 329 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Postcondition 330 (Self.Element))); 331 end Get_Postcondition; 332 333 ---------------------- 334 -- Get_Precondition -- 335 ---------------------- 336 337 overriding function Get_Precondition 338 (Self : not null access constant UML_Activity_Proxy) 339 return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is 340 begin 341 return 342 AMF.UML.Constraints.Collections.Wrap 343 (AMF.Internals.Element_Collections.Wrap 344 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Precondition 345 (Self.Element))); 346 end Get_Precondition; 347 348 ---------------------------- 349 -- Get_Redefined_Behavior -- 350 ---------------------------- 351 352 overriding function Get_Redefined_Behavior 353 (Self : not null access constant UML_Activity_Proxy) 354 return AMF.UML.Behaviors.Collections.Set_Of_UML_Behavior is 355 begin 356 return 357 AMF.UML.Behaviors.Collections.Wrap 358 (AMF.Internals.Element_Collections.Wrap 359 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Behavior 360 (Self.Element))); 361 end Get_Redefined_Behavior; 362 363 ----------------------- 364 -- Get_Specification -- 365 ----------------------- 366 367 overriding function Get_Specification 368 (Self : not null access constant UML_Activity_Proxy) 369 return AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access is 370 begin 371 return 372 AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access 373 (AMF.Internals.Helpers.To_Element 374 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Specification 375 (Self.Element))); 376 end Get_Specification; 377 378 ----------------------- 379 -- Set_Specification -- 380 ----------------------- 381 382 overriding procedure Set_Specification 383 (Self : not null access UML_Activity_Proxy; 384 To : AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access) is 385 begin 386 AMF.Internals.Tables.UML_Attributes.Internal_Set_Specification 387 (Self.Element, 388 AMF.Internals.Helpers.To_Element 389 (AMF.Elements.Element_Access (To))); 390 end Set_Specification; 391 392 ------------------- 393 -- Get_Extension -- 394 ------------------- 395 396 overriding function Get_Extension 397 (Self : not null access constant UML_Activity_Proxy) 398 return AMF.UML.Extensions.Collections.Set_Of_UML_Extension is 399 begin 400 return 401 AMF.UML.Extensions.Collections.Wrap 402 (AMF.Internals.Element_Collections.Wrap 403 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Extension 404 (Self.Element))); 405 end Get_Extension; 406 407 --------------------- 408 -- Get_Is_Abstract -- 409 --------------------- 410 411 overriding function Get_Is_Abstract 412 (Self : not null access constant UML_Activity_Proxy) 413 return Boolean is 414 begin 415 return 416 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Abstract 417 (Self.Element); 418 end Get_Is_Abstract; 419 420 ------------------- 421 -- Get_Is_Active -- 422 ------------------- 423 424 overriding function Get_Is_Active 425 (Self : not null access constant UML_Activity_Proxy) 426 return Boolean is 427 begin 428 return 429 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Active 430 (Self.Element); 431 end Get_Is_Active; 432 433 ------------------- 434 -- Set_Is_Active -- 435 ------------------- 436 437 overriding procedure Set_Is_Active 438 (Self : not null access UML_Activity_Proxy; 439 To : Boolean) is 440 begin 441 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Active 442 (Self.Element, To); 443 end Set_Is_Active; 444 445 --------------------------- 446 -- Get_Nested_Classifier -- 447 --------------------------- 448 449 overriding function Get_Nested_Classifier 450 (Self : not null access constant UML_Activity_Proxy) 451 return AMF.UML.Classifiers.Collections.Ordered_Set_Of_UML_Classifier is 452 begin 453 return 454 AMF.UML.Classifiers.Collections.Wrap 455 (AMF.Internals.Element_Collections.Wrap 456 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Nested_Classifier 457 (Self.Element))); 458 end Get_Nested_Classifier; 459 460 ------------------------- 461 -- Get_Owned_Attribute -- 462 ------------------------- 463 464 overriding function Get_Owned_Attribute 465 (Self : not null access constant UML_Activity_Proxy) 466 return AMF.UML.Properties.Collections.Ordered_Set_Of_UML_Property is 467 begin 468 return 469 AMF.UML.Properties.Collections.Wrap 470 (AMF.Internals.Element_Collections.Wrap 471 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Attribute 472 (Self.Element))); 473 end Get_Owned_Attribute; 474 475 ------------------------- 476 -- Get_Owned_Operation -- 477 ------------------------- 478 479 overriding function Get_Owned_Operation 480 (Self : not null access constant UML_Activity_Proxy) 481 return AMF.UML.Operations.Collections.Ordered_Set_Of_UML_Operation is 482 begin 483 return 484 AMF.UML.Operations.Collections.Wrap 485 (AMF.Internals.Element_Collections.Wrap 486 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Operation 487 (Self.Element))); 488 end Get_Owned_Operation; 489 490 ------------------------- 491 -- Get_Owned_Reception -- 492 ------------------------- 493 494 overriding function Get_Owned_Reception 495 (Self : not null access constant UML_Activity_Proxy) 496 return AMF.UML.Receptions.Collections.Set_Of_UML_Reception is 497 begin 498 return 499 AMF.UML.Receptions.Collections.Wrap 500 (AMF.Internals.Element_Collections.Wrap 501 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Reception 502 (Self.Element))); 503 end Get_Owned_Reception; 504 505 --------------------- 506 -- Get_Super_Class -- 507 --------------------- 508 509 overriding function Get_Super_Class 510 (Self : not null access constant UML_Activity_Proxy) 511 return AMF.UML.Classes.Collections.Set_Of_UML_Class is 512 begin 513 return 514 AMF.UML.Classes.Collections.Wrap 515 (AMF.Internals.Element_Collections.Wrap 516 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Super_Class 517 (Self.Element))); 518 end Get_Super_Class; 519 520 ----------------------------- 521 -- Get_Classifier_Behavior -- 522 ----------------------------- 523 524 overriding function Get_Classifier_Behavior 525 (Self : not null access constant UML_Activity_Proxy) 526 return AMF.UML.Behaviors.UML_Behavior_Access is 527 begin 528 return 529 AMF.UML.Behaviors.UML_Behavior_Access 530 (AMF.Internals.Helpers.To_Element 531 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Classifier_Behavior 532 (Self.Element))); 533 end Get_Classifier_Behavior; 534 535 ----------------------------- 536 -- Set_Classifier_Behavior -- 537 ----------------------------- 538 539 overriding procedure Set_Classifier_Behavior 540 (Self : not null access UML_Activity_Proxy; 541 To : AMF.UML.Behaviors.UML_Behavior_Access) is 542 begin 543 AMF.Internals.Tables.UML_Attributes.Internal_Set_Classifier_Behavior 544 (Self.Element, 545 AMF.Internals.Helpers.To_Element 546 (AMF.Elements.Element_Access (To))); 547 end Set_Classifier_Behavior; 548 549 ------------------------------- 550 -- Get_Interface_Realization -- 551 ------------------------------- 552 553 overriding function Get_Interface_Realization 554 (Self : not null access constant UML_Activity_Proxy) 555 return AMF.UML.Interface_Realizations.Collections.Set_Of_UML_Interface_Realization is 556 begin 557 return 558 AMF.UML.Interface_Realizations.Collections.Wrap 559 (AMF.Internals.Element_Collections.Wrap 560 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Interface_Realization 561 (Self.Element))); 562 end Get_Interface_Realization; 563 564 ------------------------ 565 -- Get_Owned_Behavior -- 566 ------------------------ 567 568 overriding function Get_Owned_Behavior 569 (Self : not null access constant UML_Activity_Proxy) 570 return AMF.UML.Behaviors.Collections.Set_Of_UML_Behavior is 571 begin 572 return 573 AMF.UML.Behaviors.Collections.Wrap 574 (AMF.Internals.Element_Collections.Wrap 575 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Behavior 576 (Self.Element))); 577 end Get_Owned_Behavior; 578 579 ------------------- 580 -- Get_Attribute -- 581 ------------------- 582 583 overriding function Get_Attribute 584 (Self : not null access constant UML_Activity_Proxy) 585 return AMF.UML.Properties.Collections.Set_Of_UML_Property is 586 begin 587 return 588 AMF.UML.Properties.Collections.Wrap 589 (AMF.Internals.Element_Collections.Wrap 590 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Attribute 591 (Self.Element))); 592 end Get_Attribute; 593 594 --------------------------- 595 -- Get_Collaboration_Use -- 596 --------------------------- 597 598 overriding function Get_Collaboration_Use 599 (Self : not null access constant UML_Activity_Proxy) 600 return AMF.UML.Collaboration_Uses.Collections.Set_Of_UML_Collaboration_Use is 601 begin 602 return 603 AMF.UML.Collaboration_Uses.Collections.Wrap 604 (AMF.Internals.Element_Collections.Wrap 605 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Collaboration_Use 606 (Self.Element))); 607 end Get_Collaboration_Use; 608 609 ----------------- 610 -- Get_Feature -- 611 ----------------- 612 613 overriding function Get_Feature 614 (Self : not null access constant UML_Activity_Proxy) 615 return AMF.UML.Features.Collections.Set_Of_UML_Feature is 616 begin 617 return 618 AMF.UML.Features.Collections.Wrap 619 (AMF.Internals.Element_Collections.Wrap 620 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Feature 621 (Self.Element))); 622 end Get_Feature; 623 624 ----------------- 625 -- Get_General -- 626 ----------------- 627 628 overriding function Get_General 629 (Self : not null access constant UML_Activity_Proxy) 630 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is 631 begin 632 return 633 AMF.UML.Classifiers.Collections.Wrap 634 (AMF.Internals.Element_Collections.Wrap 635 (AMF.Internals.Tables.UML_Attributes.Internal_Get_General 636 (Self.Element))); 637 end Get_General; 638 639 ------------------------ 640 -- Get_Generalization -- 641 ------------------------ 642 643 overriding function Get_Generalization 644 (Self : not null access constant UML_Activity_Proxy) 645 return AMF.UML.Generalizations.Collections.Set_Of_UML_Generalization is 646 begin 647 return 648 AMF.UML.Generalizations.Collections.Wrap 649 (AMF.Internals.Element_Collections.Wrap 650 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Generalization 651 (Self.Element))); 652 end Get_Generalization; 653 654 -------------------------- 655 -- Get_Inherited_Member -- 656 -------------------------- 657 658 overriding function Get_Inherited_Member 659 (Self : not null access constant UML_Activity_Proxy) 660 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is 661 begin 662 return 663 AMF.UML.Named_Elements.Collections.Wrap 664 (AMF.Internals.Element_Collections.Wrap 665 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Inherited_Member 666 (Self.Element))); 667 end Get_Inherited_Member; 668 669 --------------------------------- 670 -- Get_Is_Final_Specialization -- 671 --------------------------------- 672 673 overriding function Get_Is_Final_Specialization 674 (Self : not null access constant UML_Activity_Proxy) 675 return Boolean is 676 begin 677 return 678 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Final_Specialization 679 (Self.Element); 680 end Get_Is_Final_Specialization; 681 682 --------------------------------- 683 -- Set_Is_Final_Specialization -- 684 --------------------------------- 685 686 overriding procedure Set_Is_Final_Specialization 687 (Self : not null access UML_Activity_Proxy; 688 To : Boolean) is 689 begin 690 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Final_Specialization 691 (Self.Element, To); 692 end Set_Is_Final_Specialization; 693 694 ---------------------------------- 695 -- Get_Owned_Template_Signature -- 696 ---------------------------------- 697 698 overriding function Get_Owned_Template_Signature 699 (Self : not null access constant UML_Activity_Proxy) 700 return AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access is 701 begin 702 return 703 AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access 704 (AMF.Internals.Helpers.To_Element 705 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Template_Signature 706 (Self.Element))); 707 end Get_Owned_Template_Signature; 708 709 ---------------------------------- 710 -- Set_Owned_Template_Signature -- 711 ---------------------------------- 712 713 overriding procedure Set_Owned_Template_Signature 714 (Self : not null access UML_Activity_Proxy; 715 To : AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access) is 716 begin 717 AMF.Internals.Tables.UML_Attributes.Internal_Set_Owned_Template_Signature 718 (Self.Element, 719 AMF.Internals.Helpers.To_Element 720 (AMF.Elements.Element_Access (To))); 721 end Set_Owned_Template_Signature; 722 723 ------------------------ 724 -- Get_Owned_Use_Case -- 725 ------------------------ 726 727 overriding function Get_Owned_Use_Case 728 (Self : not null access constant UML_Activity_Proxy) 729 return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case is 730 begin 731 return 732 AMF.UML.Use_Cases.Collections.Wrap 733 (AMF.Internals.Element_Collections.Wrap 734 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Use_Case 735 (Self.Element))); 736 end Get_Owned_Use_Case; 737 738 -------------------------- 739 -- Get_Powertype_Extent -- 740 -------------------------- 741 742 overriding function Get_Powertype_Extent 743 (Self : not null access constant UML_Activity_Proxy) 744 return AMF.UML.Generalization_Sets.Collections.Set_Of_UML_Generalization_Set is 745 begin 746 return 747 AMF.UML.Generalization_Sets.Collections.Wrap 748 (AMF.Internals.Element_Collections.Wrap 749 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Powertype_Extent 750 (Self.Element))); 751 end Get_Powertype_Extent; 752 753 ------------------------------ 754 -- Get_Redefined_Classifier -- 755 ------------------------------ 756 757 overriding function Get_Redefined_Classifier 758 (Self : not null access constant UML_Activity_Proxy) 759 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is 760 begin 761 return 762 AMF.UML.Classifiers.Collections.Wrap 763 (AMF.Internals.Element_Collections.Wrap 764 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Classifier 765 (Self.Element))); 766 end Get_Redefined_Classifier; 767 768 ------------------------ 769 -- Get_Representation -- 770 ------------------------ 771 772 overriding function Get_Representation 773 (Self : not null access constant UML_Activity_Proxy) 774 return AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access is 775 begin 776 return 777 AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access 778 (AMF.Internals.Helpers.To_Element 779 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Representation 780 (Self.Element))); 781 end Get_Representation; 782 783 ------------------------ 784 -- Set_Representation -- 785 ------------------------ 786 787 overriding procedure Set_Representation 788 (Self : not null access UML_Activity_Proxy; 789 To : AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access) is 790 begin 791 AMF.Internals.Tables.UML_Attributes.Internal_Set_Representation 792 (Self.Element, 793 AMF.Internals.Helpers.To_Element 794 (AMF.Elements.Element_Access (To))); 795 end Set_Representation; 796 797 ---------------------- 798 -- Get_Substitution -- 799 ---------------------- 800 801 overriding function Get_Substitution 802 (Self : not null access constant UML_Activity_Proxy) 803 return AMF.UML.Substitutions.Collections.Set_Of_UML_Substitution is 804 begin 805 return 806 AMF.UML.Substitutions.Collections.Wrap 807 (AMF.Internals.Element_Collections.Wrap 808 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Substitution 809 (Self.Element))); 810 end Get_Substitution; 811 812 ---------------------------- 813 -- Get_Template_Parameter -- 814 ---------------------------- 815 816 overriding function Get_Template_Parameter 817 (Self : not null access constant UML_Activity_Proxy) 818 return AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access is 819 begin 820 return 821 AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access 822 (AMF.Internals.Helpers.To_Element 823 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Parameter 824 (Self.Element))); 825 end Get_Template_Parameter; 826 827 ---------------------------- 828 -- Set_Template_Parameter -- 829 ---------------------------- 830 831 overriding procedure Set_Template_Parameter 832 (Self : not null access UML_Activity_Proxy; 833 To : AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access) is 834 begin 835 AMF.Internals.Tables.UML_Attributes.Internal_Set_Template_Parameter 836 (Self.Element, 837 AMF.Internals.Helpers.To_Element 838 (AMF.Elements.Element_Access (To))); 839 end Set_Template_Parameter; 840 841 ------------------ 842 -- Get_Use_Case -- 843 ------------------ 844 845 overriding function Get_Use_Case 846 (Self : not null access constant UML_Activity_Proxy) 847 return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case is 848 begin 849 return 850 AMF.UML.Use_Cases.Collections.Wrap 851 (AMF.Internals.Element_Collections.Wrap 852 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Use_Case 853 (Self.Element))); 854 end Get_Use_Case; 855 856 ------------------------ 857 -- Get_Element_Import -- 858 ------------------------ 859 860 overriding function Get_Element_Import 861 (Self : not null access constant UML_Activity_Proxy) 862 return AMF.UML.Element_Imports.Collections.Set_Of_UML_Element_Import is 863 begin 864 return 865 AMF.UML.Element_Imports.Collections.Wrap 866 (AMF.Internals.Element_Collections.Wrap 867 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Element_Import 868 (Self.Element))); 869 end Get_Element_Import; 870 871 ------------------------- 872 -- Get_Imported_Member -- 873 ------------------------- 874 875 overriding function Get_Imported_Member 876 (Self : not null access constant UML_Activity_Proxy) 877 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is 878 begin 879 return 880 AMF.UML.Packageable_Elements.Collections.Wrap 881 (AMF.Internals.Element_Collections.Wrap 882 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Imported_Member 883 (Self.Element))); 884 end Get_Imported_Member; 885 886 ---------------- 887 -- Get_Member -- 888 ---------------- 889 890 overriding function Get_Member 891 (Self : not null access constant UML_Activity_Proxy) 892 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is 893 begin 894 return 895 AMF.UML.Named_Elements.Collections.Wrap 896 (AMF.Internals.Element_Collections.Wrap 897 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Member 898 (Self.Element))); 899 end Get_Member; 900 901 ---------------------- 902 -- Get_Owned_Member -- 903 ---------------------- 904 905 overriding function Get_Owned_Member 906 (Self : not null access constant UML_Activity_Proxy) 907 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is 908 begin 909 return 910 AMF.UML.Named_Elements.Collections.Wrap 911 (AMF.Internals.Element_Collections.Wrap 912 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Member 913 (Self.Element))); 914 end Get_Owned_Member; 915 916 -------------------- 917 -- Get_Owned_Rule -- 918 -------------------- 919 920 overriding function Get_Owned_Rule 921 (Self : not null access constant UML_Activity_Proxy) 922 return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is 923 begin 924 return 925 AMF.UML.Constraints.Collections.Wrap 926 (AMF.Internals.Element_Collections.Wrap 927 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Rule 928 (Self.Element))); 929 end Get_Owned_Rule; 930 931 ------------------------ 932 -- Get_Package_Import -- 933 ------------------------ 934 935 overriding function Get_Package_Import 936 (Self : not null access constant UML_Activity_Proxy) 937 return AMF.UML.Package_Imports.Collections.Set_Of_UML_Package_Import is 938 begin 939 return 940 AMF.UML.Package_Imports.Collections.Wrap 941 (AMF.Internals.Element_Collections.Wrap 942 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Package_Import 943 (Self.Element))); 944 end Get_Package_Import; 945 946 --------------------------- 947 -- Get_Client_Dependency -- 948 --------------------------- 949 950 overriding function Get_Client_Dependency 951 (Self : not null access constant UML_Activity_Proxy) 952 return AMF.UML.Dependencies.Collections.Set_Of_UML_Dependency is 953 begin 954 return 955 AMF.UML.Dependencies.Collections.Wrap 956 (AMF.Internals.Element_Collections.Wrap 957 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Client_Dependency 958 (Self.Element))); 959 end Get_Client_Dependency; 960 961 ------------------------- 962 -- Get_Name_Expression -- 963 ------------------------- 964 965 overriding function Get_Name_Expression 966 (Self : not null access constant UML_Activity_Proxy) 967 return AMF.UML.String_Expressions.UML_String_Expression_Access is 968 begin 969 return 970 AMF.UML.String_Expressions.UML_String_Expression_Access 971 (AMF.Internals.Helpers.To_Element 972 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name_Expression 973 (Self.Element))); 974 end Get_Name_Expression; 975 976 ------------------------- 977 -- Set_Name_Expression -- 978 ------------------------- 979 980 overriding procedure Set_Name_Expression 981 (Self : not null access UML_Activity_Proxy; 982 To : AMF.UML.String_Expressions.UML_String_Expression_Access) is 983 begin 984 AMF.Internals.Tables.UML_Attributes.Internal_Set_Name_Expression 985 (Self.Element, 986 AMF.Internals.Helpers.To_Element 987 (AMF.Elements.Element_Access (To))); 988 end Set_Name_Expression; 989 990 ------------------- 991 -- Get_Namespace -- 992 ------------------- 993 994 overriding function Get_Namespace 995 (Self : not null access constant UML_Activity_Proxy) 996 return AMF.UML.Namespaces.UML_Namespace_Access is 997 begin 998 return 999 AMF.UML.Namespaces.UML_Namespace_Access 1000 (AMF.Internals.Helpers.To_Element 1001 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Namespace 1002 (Self.Element))); 1003 end Get_Namespace; 1004 1005 ------------------------ 1006 -- Get_Qualified_Name -- 1007 ------------------------ 1008 1009 overriding function Get_Qualified_Name 1010 (Self : not null access constant UML_Activity_Proxy) 1011 return AMF.Optional_String is 1012 begin 1013 declare 1014 use type Matreshka.Internals.Strings.Shared_String_Access; 1015 1016 Aux : constant Matreshka.Internals.Strings.Shared_String_Access 1017 := AMF.Internals.Tables.UML_Attributes.Internal_Get_Qualified_Name (Self.Element); 1018 1019 begin 1020 if Aux = null then 1021 return (Is_Empty => True); 1022 1023 else 1024 return (False, League.Strings.Internals.Create (Aux)); 1025 end if; 1026 end; 1027 end Get_Qualified_Name; 1028 1029 ----------------- 1030 -- Get_Package -- 1031 ----------------- 1032 1033 overriding function Get_Package 1034 (Self : not null access constant UML_Activity_Proxy) 1035 return AMF.UML.Packages.UML_Package_Access is 1036 begin 1037 return 1038 AMF.UML.Packages.UML_Package_Access 1039 (AMF.Internals.Helpers.To_Element 1040 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Package 1041 (Self.Element))); 1042 end Get_Package; 1043 1044 ----------------- 1045 -- Set_Package -- 1046 ----------------- 1047 1048 overriding procedure Set_Package 1049 (Self : not null access UML_Activity_Proxy; 1050 To : AMF.UML.Packages.UML_Package_Access) is 1051 begin 1052 AMF.Internals.Tables.UML_Attributes.Internal_Set_Package 1053 (Self.Element, 1054 AMF.Internals.Helpers.To_Element 1055 (AMF.Elements.Element_Access (To))); 1056 end Set_Package; 1057 1058 ----------------------------------- 1059 -- Get_Owning_Template_Parameter -- 1060 ----------------------------------- 1061 1062 overriding function Get_Owning_Template_Parameter 1063 (Self : not null access constant UML_Activity_Proxy) 1064 return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is 1065 begin 1066 return 1067 AMF.UML.Template_Parameters.UML_Template_Parameter_Access 1068 (AMF.Internals.Helpers.To_Element 1069 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owning_Template_Parameter 1070 (Self.Element))); 1071 end Get_Owning_Template_Parameter; 1072 1073 ----------------------------------- 1074 -- Set_Owning_Template_Parameter -- 1075 ----------------------------------- 1076 1077 overriding procedure Set_Owning_Template_Parameter 1078 (Self : not null access UML_Activity_Proxy; 1079 To : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is 1080 begin 1081 AMF.Internals.Tables.UML_Attributes.Internal_Set_Owning_Template_Parameter 1082 (Self.Element, 1083 AMF.Internals.Helpers.To_Element 1084 (AMF.Elements.Element_Access (To))); 1085 end Set_Owning_Template_Parameter; 1086 1087 ---------------------------- 1088 -- Get_Template_Parameter -- 1089 ---------------------------- 1090 1091 overriding function Get_Template_Parameter 1092 (Self : not null access constant UML_Activity_Proxy) 1093 return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is 1094 begin 1095 return 1096 AMF.UML.Template_Parameters.UML_Template_Parameter_Access 1097 (AMF.Internals.Helpers.To_Element 1098 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Parameter 1099 (Self.Element))); 1100 end Get_Template_Parameter; 1101 1102 ---------------------------- 1103 -- Set_Template_Parameter -- 1104 ---------------------------- 1105 1106 overriding procedure Set_Template_Parameter 1107 (Self : not null access UML_Activity_Proxy; 1108 To : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is 1109 begin 1110 AMF.Internals.Tables.UML_Attributes.Internal_Set_Template_Parameter 1111 (Self.Element, 1112 AMF.Internals.Helpers.To_Element 1113 (AMF.Elements.Element_Access (To))); 1114 end Set_Template_Parameter; 1115 1116 ---------------------------------- 1117 -- Get_Owned_Template_Signature -- 1118 ---------------------------------- 1119 1120 overriding function Get_Owned_Template_Signature 1121 (Self : not null access constant UML_Activity_Proxy) 1122 return AMF.UML.Template_Signatures.UML_Template_Signature_Access is 1123 begin 1124 return 1125 AMF.UML.Template_Signatures.UML_Template_Signature_Access 1126 (AMF.Internals.Helpers.To_Element 1127 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Template_Signature 1128 (Self.Element))); 1129 end Get_Owned_Template_Signature; 1130 1131 ---------------------------------- 1132 -- Set_Owned_Template_Signature -- 1133 ---------------------------------- 1134 1135 overriding procedure Set_Owned_Template_Signature 1136 (Self : not null access UML_Activity_Proxy; 1137 To : AMF.UML.Template_Signatures.UML_Template_Signature_Access) is 1138 begin 1139 AMF.Internals.Tables.UML_Attributes.Internal_Set_Owned_Template_Signature 1140 (Self.Element, 1141 AMF.Internals.Helpers.To_Element 1142 (AMF.Elements.Element_Access (To))); 1143 end Set_Owned_Template_Signature; 1144 1145 -------------------------- 1146 -- Get_Template_Binding -- 1147 -------------------------- 1148 1149 overriding function Get_Template_Binding 1150 (Self : not null access constant UML_Activity_Proxy) 1151 return AMF.UML.Template_Bindings.Collections.Set_Of_UML_Template_Binding is 1152 begin 1153 return 1154 AMF.UML.Template_Bindings.Collections.Wrap 1155 (AMF.Internals.Element_Collections.Wrap 1156 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Binding 1157 (Self.Element))); 1158 end Get_Template_Binding; 1159 1160 ----------------- 1161 -- Get_Is_Leaf -- 1162 ----------------- 1163 1164 overriding function Get_Is_Leaf 1165 (Self : not null access constant UML_Activity_Proxy) 1166 return Boolean is 1167 begin 1168 return 1169 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Leaf 1170 (Self.Element); 1171 end Get_Is_Leaf; 1172 1173 ----------------- 1174 -- Set_Is_Leaf -- 1175 ----------------- 1176 1177 overriding procedure Set_Is_Leaf 1178 (Self : not null access UML_Activity_Proxy; 1179 To : Boolean) is 1180 begin 1181 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Leaf 1182 (Self.Element, To); 1183 end Set_Is_Leaf; 1184 1185 --------------------------- 1186 -- Get_Redefined_Element -- 1187 --------------------------- 1188 1189 overriding function Get_Redefined_Element 1190 (Self : not null access constant UML_Activity_Proxy) 1191 return AMF.UML.Redefinable_Elements.Collections.Set_Of_UML_Redefinable_Element is 1192 begin 1193 return 1194 AMF.UML.Redefinable_Elements.Collections.Wrap 1195 (AMF.Internals.Element_Collections.Wrap 1196 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Element 1197 (Self.Element))); 1198 end Get_Redefined_Element; 1199 1200 ------------------------------ 1201 -- Get_Redefinition_Context -- 1202 ------------------------------ 1203 1204 overriding function Get_Redefinition_Context 1205 (Self : not null access constant UML_Activity_Proxy) 1206 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is 1207 begin 1208 return 1209 AMF.UML.Classifiers.Collections.Wrap 1210 (AMF.Internals.Element_Collections.Wrap 1211 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefinition_Context 1212 (Self.Element))); 1213 end Get_Redefinition_Context; 1214 1215 -------------------- 1216 -- Get_Owned_Port -- 1217 -------------------- 1218 1219 overriding function Get_Owned_Port 1220 (Self : not null access constant UML_Activity_Proxy) 1221 return AMF.UML.Ports.Collections.Set_Of_UML_Port is 1222 begin 1223 return 1224 AMF.UML.Ports.Collections.Wrap 1225 (AMF.Internals.Element_Collections.Wrap 1226 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Port 1227 (Self.Element))); 1228 end Get_Owned_Port; 1229 1230 ------------------------- 1231 -- Get_Owned_Connector -- 1232 ------------------------- 1233 1234 overriding function Get_Owned_Connector 1235 (Self : not null access constant UML_Activity_Proxy) 1236 return AMF.UML.Connectors.Collections.Set_Of_UML_Connector is 1237 begin 1238 return 1239 AMF.UML.Connectors.Collections.Wrap 1240 (AMF.Internals.Element_Collections.Wrap 1241 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Connector 1242 (Self.Element))); 1243 end Get_Owned_Connector; 1244 1245 -------------- 1246 -- Get_Part -- 1247 -------------- 1248 1249 overriding function Get_Part 1250 (Self : not null access constant UML_Activity_Proxy) 1251 return AMF.UML.Properties.Collections.Set_Of_UML_Property is 1252 begin 1253 return 1254 AMF.UML.Properties.Collections.Wrap 1255 (AMF.Internals.Element_Collections.Wrap 1256 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Part 1257 (Self.Element))); 1258 end Get_Part; 1259 1260 -------------- 1261 -- Get_Role -- 1262 -------------- 1263 1264 overriding function Get_Role 1265 (Self : not null access constant UML_Activity_Proxy) 1266 return AMF.UML.Connectable_Elements.Collections.Set_Of_UML_Connectable_Element is 1267 begin 1268 return 1269 AMF.UML.Connectable_Elements.Collections.Wrap 1270 (AMF.Internals.Element_Collections.Wrap 1271 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Role 1272 (Self.Element))); 1273 end Get_Role; 1274 1275 --------------------- 1276 -- Structured_Node -- 1277 --------------------- 1278 1279 overriding function Structured_Node 1280 (Self : not null access constant UML_Activity_Proxy) 1281 return AMF.UML.Structured_Activity_Nodes.Collections.Set_Of_UML_Structured_Activity_Node is 1282 begin 1283 -- Generated stub: replace with real body! 1284 pragma Compile_Time_Warning (Standard.True, "Structured_Node unimplemented"); 1285 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Structured_Node"; 1286 return Structured_Node (Self); 1287 end Structured_Node; 1288 1289 ------------- 1290 -- Context -- 1291 ------------- 1292 1293 overriding function Context 1294 (Self : not null access constant UML_Activity_Proxy) 1295 return AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access is 1296 begin 1297 -- Generated stub: replace with real body! 1298 pragma Compile_Time_Warning (Standard.True, "Context unimplemented"); 1299 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Context"; 1300 return Context (Self); 1301 end Context; 1302 1303 --------------- 1304 -- Extension -- 1305 --------------- 1306 1307 overriding function Extension 1308 (Self : not null access constant UML_Activity_Proxy) 1309 return AMF.UML.Extensions.Collections.Set_Of_UML_Extension is 1310 begin 1311 -- Generated stub: replace with real body! 1312 pragma Compile_Time_Warning (Standard.True, "Extension unimplemented"); 1313 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Extension"; 1314 return Extension (Self); 1315 end Extension; 1316 1317 ------------- 1318 -- Inherit -- 1319 ------------- 1320 1321 overriding function Inherit 1322 (Self : not null access constant UML_Activity_Proxy; 1323 Inhs : AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element) 1324 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is 1325 begin 1326 -- Generated stub: replace with real body! 1327 pragma Compile_Time_Warning (Standard.True, "Inherit unimplemented"); 1328 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Inherit"; 1329 return Inherit (Self, Inhs); 1330 end Inherit; 1331 1332 ----------------- 1333 -- Super_Class -- 1334 ----------------- 1335 1336 overriding function Super_Class 1337 (Self : not null access constant UML_Activity_Proxy) 1338 return AMF.UML.Classes.Collections.Set_Of_UML_Class is 1339 begin 1340 -- Generated stub: replace with real body! 1341 pragma Compile_Time_Warning (Standard.True, "Super_Class unimplemented"); 1342 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Super_Class"; 1343 return Super_Class (Self); 1344 end Super_Class; 1345 1346 ------------------ 1347 -- All_Features -- 1348 ------------------ 1349 1350 overriding function All_Features 1351 (Self : not null access constant UML_Activity_Proxy) 1352 return AMF.UML.Features.Collections.Set_Of_UML_Feature is 1353 begin 1354 -- Generated stub: replace with real body! 1355 pragma Compile_Time_Warning (Standard.True, "All_Features unimplemented"); 1356 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.All_Features"; 1357 return All_Features (Self); 1358 end All_Features; 1359 1360 ----------------- 1361 -- Conforms_To -- 1362 ----------------- 1363 1364 overriding function Conforms_To 1365 (Self : not null access constant UML_Activity_Proxy; 1366 Other : AMF.UML.Classifiers.UML_Classifier_Access) 1367 return Boolean is 1368 begin 1369 -- Generated stub: replace with real body! 1370 pragma Compile_Time_Warning (Standard.True, "Conforms_To unimplemented"); 1371 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Conforms_To"; 1372 return Conforms_To (Self, Other); 1373 end Conforms_To; 1374 1375 ------------- 1376 -- General -- 1377 ------------- 1378 1379 overriding function General 1380 (Self : not null access constant UML_Activity_Proxy) 1381 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is 1382 begin 1383 -- Generated stub: replace with real body! 1384 pragma Compile_Time_Warning (Standard.True, "General unimplemented"); 1385 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.General"; 1386 return General (Self); 1387 end General; 1388 1389 ----------------------- 1390 -- Has_Visibility_Of -- 1391 ----------------------- 1392 1393 overriding function Has_Visibility_Of 1394 (Self : not null access constant UML_Activity_Proxy; 1395 N : AMF.UML.Named_Elements.UML_Named_Element_Access) 1396 return Boolean is 1397 begin 1398 -- Generated stub: replace with real body! 1399 pragma Compile_Time_Warning (Standard.True, "Has_Visibility_Of unimplemented"); 1400 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Has_Visibility_Of"; 1401 return Has_Visibility_Of (Self, N); 1402 end Has_Visibility_Of; 1403 1404 ------------------------- 1405 -- Inheritable_Members -- 1406 ------------------------- 1407 1408 overriding function Inheritable_Members 1409 (Self : not null access constant UML_Activity_Proxy; 1410 C : AMF.UML.Classifiers.UML_Classifier_Access) 1411 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is 1412 begin 1413 -- Generated stub: replace with real body! 1414 pragma Compile_Time_Warning (Standard.True, "Inheritable_Members unimplemented"); 1415 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Inheritable_Members"; 1416 return Inheritable_Members (Self, C); 1417 end Inheritable_Members; 1418 1419 ---------------------- 1420 -- Inherited_Member -- 1421 ---------------------- 1422 1423 overriding function Inherited_Member 1424 (Self : not null access constant UML_Activity_Proxy) 1425 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is 1426 begin 1427 -- Generated stub: replace with real body! 1428 pragma Compile_Time_Warning (Standard.True, "Inherited_Member unimplemented"); 1429 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Inherited_Member"; 1430 return Inherited_Member (Self); 1431 end Inherited_Member; 1432 1433 ----------------- 1434 -- Is_Template -- 1435 ----------------- 1436 1437 overriding function Is_Template 1438 (Self : not null access constant UML_Activity_Proxy) 1439 return Boolean is 1440 begin 1441 -- Generated stub: replace with real body! 1442 pragma Compile_Time_Warning (Standard.True, "Is_Template unimplemented"); 1443 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Template"; 1444 return Is_Template (Self); 1445 end Is_Template; 1446 1447 ------------------------- 1448 -- May_Specialize_Type -- 1449 ------------------------- 1450 1451 overriding function May_Specialize_Type 1452 (Self : not null access constant UML_Activity_Proxy; 1453 C : AMF.UML.Classifiers.UML_Classifier_Access) 1454 return Boolean is 1455 begin 1456 -- Generated stub: replace with real body! 1457 pragma Compile_Time_Warning (Standard.True, "May_Specialize_Type unimplemented"); 1458 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.May_Specialize_Type"; 1459 return May_Specialize_Type (Self, C); 1460 end May_Specialize_Type; 1461 1462 ------------------------ 1463 -- Exclude_Collisions -- 1464 ------------------------ 1465 1466 overriding function Exclude_Collisions 1467 (Self : not null access constant UML_Activity_Proxy; 1468 Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element) 1469 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is 1470 begin 1471 -- Generated stub: replace with real body! 1472 pragma Compile_Time_Warning (Standard.True, "Exclude_Collisions unimplemented"); 1473 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Exclude_Collisions"; 1474 return Exclude_Collisions (Self, Imps); 1475 end Exclude_Collisions; 1476 1477 ------------------------- 1478 -- Get_Names_Of_Member -- 1479 ------------------------- 1480 1481 overriding function Get_Names_Of_Member 1482 (Self : not null access constant UML_Activity_Proxy; 1483 Element : AMF.UML.Named_Elements.UML_Named_Element_Access) 1484 return AMF.String_Collections.Set_Of_String is 1485 begin 1486 -- Generated stub: replace with real body! 1487 pragma Compile_Time_Warning (Standard.True, "Get_Names_Of_Member unimplemented"); 1488 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Get_Names_Of_Member"; 1489 return Get_Names_Of_Member (Self, Element); 1490 end Get_Names_Of_Member; 1491 1492 -------------------- 1493 -- Import_Members -- 1494 -------------------- 1495 1496 overriding function Import_Members 1497 (Self : not null access constant UML_Activity_Proxy; 1498 Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element) 1499 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is 1500 begin 1501 -- Generated stub: replace with real body! 1502 pragma Compile_Time_Warning (Standard.True, "Import_Members unimplemented"); 1503 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Import_Members"; 1504 return Import_Members (Self, Imps); 1505 end Import_Members; 1506 1507 --------------------- 1508 -- Imported_Member -- 1509 --------------------- 1510 1511 overriding function Imported_Member 1512 (Self : not null access constant UML_Activity_Proxy) 1513 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is 1514 begin 1515 -- Generated stub: replace with real body! 1516 pragma Compile_Time_Warning (Standard.True, "Imported_Member unimplemented"); 1517 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Imported_Member"; 1518 return Imported_Member (Self); 1519 end Imported_Member; 1520 1521 --------------------------------- 1522 -- Members_Are_Distinguishable -- 1523 --------------------------------- 1524 1525 overriding function Members_Are_Distinguishable 1526 (Self : not null access constant UML_Activity_Proxy) 1527 return Boolean is 1528 begin 1529 -- Generated stub: replace with real body! 1530 pragma Compile_Time_Warning (Standard.True, "Members_Are_Distinguishable unimplemented"); 1531 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Members_Are_Distinguishable"; 1532 return Members_Are_Distinguishable (Self); 1533 end Members_Are_Distinguishable; 1534 1535 ------------------ 1536 -- Owned_Member -- 1537 ------------------ 1538 1539 overriding function Owned_Member 1540 (Self : not null access constant UML_Activity_Proxy) 1541 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is 1542 begin 1543 -- Generated stub: replace with real body! 1544 pragma Compile_Time_Warning (Standard.True, "Owned_Member unimplemented"); 1545 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Owned_Member"; 1546 return Owned_Member (Self); 1547 end Owned_Member; 1548 1549 ------------------------- 1550 -- All_Owning_Packages -- 1551 ------------------------- 1552 1553 overriding function All_Owning_Packages 1554 (Self : not null access constant UML_Activity_Proxy) 1555 return AMF.UML.Packages.Collections.Set_Of_UML_Package is 1556 begin 1557 -- Generated stub: replace with real body! 1558 pragma Compile_Time_Warning (Standard.True, "All_Owning_Packages unimplemented"); 1559 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.All_Owning_Packages"; 1560 return All_Owning_Packages (Self); 1561 end All_Owning_Packages; 1562 1563 ----------------------------- 1564 -- Is_Distinguishable_From -- 1565 ----------------------------- 1566 1567 overriding function Is_Distinguishable_From 1568 (Self : not null access constant UML_Activity_Proxy; 1569 N : AMF.UML.Named_Elements.UML_Named_Element_Access; 1570 Ns : AMF.UML.Namespaces.UML_Namespace_Access) 1571 return Boolean is 1572 begin 1573 -- Generated stub: replace with real body! 1574 pragma Compile_Time_Warning (Standard.True, "Is_Distinguishable_From unimplemented"); 1575 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Distinguishable_From"; 1576 return Is_Distinguishable_From (Self, N, Ns); 1577 end Is_Distinguishable_From; 1578 1579 --------------- 1580 -- Namespace -- 1581 --------------- 1582 1583 overriding function Namespace 1584 (Self : not null access constant UML_Activity_Proxy) 1585 return AMF.UML.Namespaces.UML_Namespace_Access is 1586 begin 1587 -- Generated stub: replace with real body! 1588 pragma Compile_Time_Warning (Standard.True, "Namespace unimplemented"); 1589 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Namespace"; 1590 return Namespace (Self); 1591 end Namespace; 1592 1593 ----------------- 1594 -- Conforms_To -- 1595 ----------------- 1596 1597 overriding function Conforms_To 1598 (Self : not null access constant UML_Activity_Proxy; 1599 Other : AMF.UML.Types.UML_Type_Access) 1600 return Boolean is 1601 begin 1602 -- Generated stub: replace with real body! 1603 pragma Compile_Time_Warning (Standard.True, "Conforms_To unimplemented"); 1604 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Conforms_To"; 1605 return Conforms_To (Self, Other); 1606 end Conforms_To; 1607 1608 ------------------------ 1609 -- Is_Compatible_With -- 1610 ------------------------ 1611 1612 overriding function Is_Compatible_With 1613 (Self : not null access constant UML_Activity_Proxy; 1614 P : AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access) 1615 return Boolean is 1616 begin 1617 -- Generated stub: replace with real body! 1618 pragma Compile_Time_Warning (Standard.True, "Is_Compatible_With unimplemented"); 1619 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Compatible_With"; 1620 return Is_Compatible_With (Self, P); 1621 end Is_Compatible_With; 1622 1623 --------------------------- 1624 -- Is_Template_Parameter -- 1625 --------------------------- 1626 1627 overriding function Is_Template_Parameter 1628 (Self : not null access constant UML_Activity_Proxy) 1629 return Boolean is 1630 begin 1631 -- Generated stub: replace with real body! 1632 pragma Compile_Time_Warning (Standard.True, "Is_Template_Parameter unimplemented"); 1633 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Template_Parameter"; 1634 return Is_Template_Parameter (Self); 1635 end Is_Template_Parameter; 1636 1637 ---------------------------- 1638 -- Parameterable_Elements -- 1639 ---------------------------- 1640 1641 overriding function Parameterable_Elements 1642 (Self : not null access constant UML_Activity_Proxy) 1643 return AMF.UML.Parameterable_Elements.Collections.Set_Of_UML_Parameterable_Element is 1644 begin 1645 -- Generated stub: replace with real body! 1646 pragma Compile_Time_Warning (Standard.True, "Parameterable_Elements unimplemented"); 1647 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Parameterable_Elements"; 1648 return Parameterable_Elements (Self); 1649 end Parameterable_Elements; 1650 1651 ------------------------ 1652 -- Is_Consistent_With -- 1653 ------------------------ 1654 1655 overriding function Is_Consistent_With 1656 (Self : not null access constant UML_Activity_Proxy; 1657 Redefinee : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access) 1658 return Boolean is 1659 begin 1660 -- Generated stub: replace with real body! 1661 pragma Compile_Time_Warning (Standard.True, "Is_Consistent_With unimplemented"); 1662 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Consistent_With"; 1663 return Is_Consistent_With (Self, Redefinee); 1664 end Is_Consistent_With; 1665 1666 ----------------------------------- 1667 -- Is_Redefinition_Context_Valid -- 1668 ----------------------------------- 1669 1670 overriding function Is_Redefinition_Context_Valid 1671 (Self : not null access constant UML_Activity_Proxy; 1672 Redefined : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access) 1673 return Boolean is 1674 begin 1675 -- Generated stub: replace with real body! 1676 pragma Compile_Time_Warning (Standard.True, "Is_Redefinition_Context_Valid unimplemented"); 1677 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Redefinition_Context_Valid"; 1678 return Is_Redefinition_Context_Valid (Self, Redefined); 1679 end Is_Redefinition_Context_Valid; 1680 1681 ---------------- 1682 -- Owned_Port -- 1683 ---------------- 1684 1685 overriding function Owned_Port 1686 (Self : not null access constant UML_Activity_Proxy) 1687 return AMF.UML.Ports.Collections.Set_Of_UML_Port is 1688 begin 1689 -- Generated stub: replace with real body! 1690 pragma Compile_Time_Warning (Standard.True, "Owned_Port unimplemented"); 1691 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Owned_Port"; 1692 return Owned_Port (Self); 1693 end Owned_Port; 1694 1695 ---------- 1696 -- Part -- 1697 ---------- 1698 1699 overriding function Part 1700 (Self : not null access constant UML_Activity_Proxy) 1701 return AMF.UML.Properties.Collections.Set_Of_UML_Property is 1702 begin 1703 -- Generated stub: replace with real body! 1704 pragma Compile_Time_Warning (Standard.True, "Part unimplemented"); 1705 raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Part"; 1706 return Part (Self); 1707 end Part; 1708 1709end AMF.Internals.UML_Activities; 1710