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