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