1------------------------------------------------------------------------------ 2-- -- 3-- Matreshka Project -- 4-- -- 5-- Ada Modeling Framework -- 6-- -- 7-- Runtime Library Component -- 8-- -- 9------------------------------------------------------------------------------ 10-- -- 11-- Copyright © 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: 3436 $ $Date: 2012-11-14 10:14:34 +0400 (Wed, 14 Nov 2012) $ 43------------------------------------------------------------------------------ 44with AMF.Elements; 45with AMF.Internals.Element_Collections; 46with AMF.Internals.Helpers; 47with AMF.Internals.Tables.UML_Attributes; 48with AMF.Visitors.UMLDI_Iterators; 49with AMF.Visitors.UMLDI_Visitors; 50with League.Strings.Internals; 51with Matreshka.Internals.Strings; 52 53package body AMF.Internals.UMLDI_UML_Interaction_Diagrams is 54 55 -------------- 56 -- Get_Kind -- 57 -------------- 58 59 overriding function Get_Kind 60 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 61 return AMF.UMLDI.UMLDI_UML_Interaction_Diagram_Kind is 62 begin 63 return 64 AMF.Internals.Tables.UML_Attributes.Internal_Get_Kind 65 (Self.Element); 66 end Get_Kind; 67 68 -------------- 69 -- Set_Kind -- 70 -------------- 71 72 overriding procedure Set_Kind 73 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 74 To : AMF.UMLDI.UMLDI_UML_Interaction_Diagram_Kind) is 75 begin 76 AMF.Internals.Tables.UML_Attributes.Internal_Set_Kind 77 (Self.Element, To); 78 end Set_Kind; 79 80 ----------------------- 81 -- Get_Model_Element -- 82 ----------------------- 83 84 overriding function Get_Model_Element 85 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 86 return AMF.UML.Interactions.UML_Interaction_Access is 87 begin 88 return 89 AMF.UML.Interactions.UML_Interaction_Access 90 (AMF.Internals.Helpers.To_Element 91 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element 92 (Self.Element))); 93 end Get_Model_Element; 94 95 ----------------------- 96 -- Set_Model_Element -- 97 ----------------------- 98 99 overriding procedure Set_Model_Element 100 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 101 To : AMF.UML.Interactions.UML_Interaction_Access) is 102 begin 103 raise Program_Error; 104-- AMF.Internals.Tables.UML_Attributes.Internal_Set_Model_Element 105-- (Self.Element, 106-- AMF.Internals.Helpers.To_Element 107-- (AMF.Elements.Element_Access (To))); 108 end Set_Model_Element; 109 110 ----------------------- 111 -- Get_Model_Element -- 112 ----------------------- 113 114 overriding function Get_Model_Element 115 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 116 return AMF.UML.Behaviors.UML_Behavior_Access is 117 begin 118 return 119 AMF.UML.Behaviors.UML_Behavior_Access 120 (AMF.Internals.Helpers.To_Element 121 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element 122 (Self.Element))); 123 end Get_Model_Element; 124 125 ----------------------- 126 -- Set_Model_Element -- 127 ----------------------- 128 129 overriding procedure Set_Model_Element 130 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 131 To : AMF.UML.Behaviors.UML_Behavior_Access) is 132 begin 133 raise Program_Error; 134-- AMF.Internals.Tables.UML_Attributes.Internal_Set_Model_Element 135-- (Self.Element, 136-- AMF.Internals.Helpers.To_Element 137-- (AMF.Elements.Element_Access (To))); 138 end Set_Model_Element; 139 140 ----------------- 141 -- Get_Heading -- 142 ----------------- 143 144 overriding function Get_Heading 145 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 146 return AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access is 147 begin 148 return 149 AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access 150 (AMF.Internals.Helpers.To_Element 151 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Heading 152 (Self.Element))); 153 end Get_Heading; 154 155 ----------------- 156 -- Set_Heading -- 157 ----------------- 158 159 overriding procedure Set_Heading 160 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 161 To : AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access) is 162 begin 163 AMF.Internals.Tables.UML_Attributes.Internal_Set_Heading 164 (Self.Element, 165 AMF.Internals.Helpers.To_Element 166 (AMF.Elements.Element_Access (To))); 167 end Set_Heading; 168 169 ------------------ 170 -- Get_Is_Frame -- 171 ------------------ 172 173 overriding function Get_Is_Frame 174 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 175 return Boolean is 176 begin 177 return 178 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Frame 179 (Self.Element); 180 end Get_Is_Frame; 181 182 ------------------ 183 -- Set_Is_Frame -- 184 ------------------ 185 186 overriding procedure Set_Is_Frame 187 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 188 To : Boolean) is 189 begin 190 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Frame 191 (Self.Element, To); 192 end Set_Is_Frame; 193 194 ---------------- 195 -- Get_Is_Iso -- 196 ---------------- 197 198 overriding function Get_Is_Iso 199 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 200 return Boolean is 201 begin 202 return 203 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Iso 204 (Self.Element); 205 end Get_Is_Iso; 206 207 ---------------- 208 -- Set_Is_Iso -- 209 ---------------- 210 211 overriding procedure Set_Is_Iso 212 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 213 To : Boolean) is 214 begin 215 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Iso 216 (Self.Element, To); 217 end Set_Is_Iso; 218 219 ----------------- 220 -- Get_Is_Icon -- 221 ----------------- 222 223 overriding function Get_Is_Icon 224 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 225 return Boolean is 226 begin 227 return 228 AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Icon 229 (Self.Element); 230 end Get_Is_Icon; 231 232 ----------------- 233 -- Set_Is_Icon -- 234 ----------------- 235 236 overriding procedure Set_Is_Icon 237 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 238 To : Boolean) is 239 begin 240 AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Icon 241 (Self.Element, To); 242 end Set_Is_Icon; 243 244 --------------------- 245 -- Get_Local_Style -- 246 --------------------- 247 248 overriding function Get_Local_Style 249 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 250 return AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access is 251 begin 252 return 253 AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access 254 (AMF.Internals.Helpers.To_Element 255 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Local_Style 256 (Self.Element))); 257 end Get_Local_Style; 258 259 --------------------- 260 -- Set_Local_Style -- 261 --------------------- 262 263 overriding procedure Set_Local_Style 264 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 265 To : AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access) is 266 begin 267 AMF.Internals.Tables.UML_Attributes.Internal_Set_Local_Style 268 (Self.Element, 269 AMF.Internals.Helpers.To_Element 270 (AMF.Elements.Element_Access (To))); 271 end Set_Local_Style; 272 273 ----------------------- 274 -- Get_Model_Element -- 275 ----------------------- 276 277 overriding function Get_Model_Element 278 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 279 return AMF.UML.Elements.Collections.Set_Of_UML_Element is 280 begin 281 raise Program_Error; 282 return X : AMF.UML.Elements.Collections.Set_Of_UML_Element; 283-- return 284-- AMF.UML.Elements.Collections.Wrap 285-- (AMF.Internals.Element_Collections.Wrap 286-- (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element 287-- (Self.Element))); 288 end Get_Model_Element; 289 290 ----------------------- 291 -- Get_Model_Element -- 292 ----------------------- 293 294 overriding function Get_Model_Element 295 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 296 return AMF.CMOF.Elements.CMOF_Element_Access is 297 begin 298 return 299 AMF.CMOF.Elements.CMOF_Element_Access 300 (AMF.Internals.Helpers.To_Element 301 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element 302 (Self.Element))); 303 end Get_Model_Element; 304 305 --------------------- 306 -- Get_Local_Style -- 307 --------------------- 308 309 overriding function Get_Local_Style 310 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 311 return AMF.DI.Styles.DI_Style_Access is 312 begin 313 return 314 AMF.DI.Styles.DI_Style_Access 315 (AMF.Internals.Helpers.To_Element 316 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Local_Style 317 (Self.Element))); 318 end Get_Local_Style; 319 320 --------------------- 321 -- Set_Local_Style -- 322 --------------------- 323 324 overriding procedure Set_Local_Style 325 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 326 To : AMF.DI.Styles.DI_Style_Access) is 327 begin 328 AMF.Internals.Tables.UML_Attributes.Internal_Set_Local_Style 329 (Self.Element, 330 AMF.Internals.Helpers.To_Element 331 (AMF.Elements.Element_Access (To))); 332 end Set_Local_Style; 333 334 -------------- 335 -- Get_Name -- 336 -------------- 337 338 overriding function Get_Name 339 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 340 return League.Strings.Universal_String is 341 begin 342 null; 343 return 344 League.Strings.Internals.Create 345 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name (Self.Element)); 346 end Get_Name; 347 348 -------------- 349 -- Set_Name -- 350 -------------- 351 352 overriding procedure Set_Name 353 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 354 To : League.Strings.Universal_String) is 355 begin 356 AMF.Internals.Tables.UML_Attributes.Internal_Set_Name 357 (Self.Element, 358 League.Strings.Internals.Internal (To)); 359 end Set_Name; 360 361 ----------------------- 362 -- Get_Documentation -- 363 ----------------------- 364 365 overriding function Get_Documentation 366 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 367 return League.Strings.Universal_String is 368 begin 369 null; 370 return 371 League.Strings.Internals.Create 372 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Documentation (Self.Element)); 373 end Get_Documentation; 374 375 ----------------------- 376 -- Set_Documentation -- 377 ----------------------- 378 379 overriding procedure Set_Documentation 380 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 381 To : League.Strings.Universal_String) is 382 begin 383 AMF.Internals.Tables.UML_Attributes.Internal_Set_Documentation 384 (Self.Element, 385 League.Strings.Internals.Internal (To)); 386 end Set_Documentation; 387 388 -------------------- 389 -- Get_Resolution -- 390 -------------------- 391 392 overriding function Get_Resolution 393 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 394 return AMF.Real is 395 begin 396 return 397 AMF.Internals.Tables.UML_Attributes.Internal_Get_Resolution 398 (Self.Element); 399 end Get_Resolution; 400 401 -------------------- 402 -- Set_Resolution -- 403 -------------------- 404 405 overriding procedure Set_Resolution 406 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 407 To : AMF.Real) is 408 begin 409 AMF.Internals.Tables.UML_Attributes.Internal_Set_Resolution 410 (Self.Element, To); 411 end Set_Resolution; 412 413 --------------------------- 414 -- Get_Client_Dependency -- 415 --------------------------- 416 417 overriding function Get_Client_Dependency 418 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 419 return AMF.UML.Dependencies.Collections.Set_Of_UML_Dependency is 420 begin 421 return 422 AMF.UML.Dependencies.Collections.Wrap 423 (AMF.Internals.Element_Collections.Wrap 424 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Client_Dependency 425 (Self.Element))); 426 end Get_Client_Dependency; 427 428 -------------- 429 -- Get_Name -- 430 -------------- 431 432 overriding function Get_Name 433 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 434 return AMF.Optional_String is 435 begin 436 declare 437 use type Matreshka.Internals.Strings.Shared_String_Access; 438 439 Aux : constant Matreshka.Internals.Strings.Shared_String_Access 440 := AMF.Internals.Tables.UML_Attributes.Internal_Get_Name (Self.Element); 441 442 begin 443 if Aux = null then 444 return (Is_Empty => True); 445 446 else 447 return (False, League.Strings.Internals.Create (Aux)); 448 end if; 449 end; 450 end Get_Name; 451 452 -------------- 453 -- Set_Name -- 454 -------------- 455 456 overriding procedure Set_Name 457 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 458 To : AMF.Optional_String) is 459 begin 460 if To.Is_Empty then 461 AMF.Internals.Tables.UML_Attributes.Internal_Set_Name 462 (Self.Element, null); 463 464 else 465 AMF.Internals.Tables.UML_Attributes.Internal_Set_Name 466 (Self.Element, 467 League.Strings.Internals.Internal (To.Value)); 468 end if; 469 end Set_Name; 470 471 ------------------------- 472 -- Get_Name_Expression -- 473 ------------------------- 474 475 overriding function Get_Name_Expression 476 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 477 return AMF.UML.String_Expressions.UML_String_Expression_Access is 478 begin 479 return 480 AMF.UML.String_Expressions.UML_String_Expression_Access 481 (AMF.Internals.Helpers.To_Element 482 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name_Expression 483 (Self.Element))); 484 end Get_Name_Expression; 485 486 ------------------------- 487 -- Set_Name_Expression -- 488 ------------------------- 489 490 overriding procedure Set_Name_Expression 491 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 492 To : AMF.UML.String_Expressions.UML_String_Expression_Access) is 493 begin 494 AMF.Internals.Tables.UML_Attributes.Internal_Set_Name_Expression 495 (Self.Element, 496 AMF.Internals.Helpers.To_Element 497 (AMF.Elements.Element_Access (To))); 498 end Set_Name_Expression; 499 500 ------------------- 501 -- Get_Namespace -- 502 ------------------- 503 504 overriding function Get_Namespace 505 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 506 return AMF.UML.Namespaces.UML_Namespace_Access is 507 begin 508 return 509 AMF.UML.Namespaces.UML_Namespace_Access 510 (AMF.Internals.Helpers.To_Element 511 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Namespace 512 (Self.Element))); 513 end Get_Namespace; 514 515 ------------------------ 516 -- Get_Qualified_Name -- 517 ------------------------ 518 519 overriding function Get_Qualified_Name 520 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 521 return AMF.Optional_String is 522 begin 523 declare 524 use type Matreshka.Internals.Strings.Shared_String_Access; 525 526 Aux : constant Matreshka.Internals.Strings.Shared_String_Access 527 := AMF.Internals.Tables.UML_Attributes.Internal_Get_Qualified_Name (Self.Element); 528 529 begin 530 if Aux = null then 531 return (Is_Empty => True); 532 533 else 534 return (False, League.Strings.Internals.Create (Aux)); 535 end if; 536 end; 537 end Get_Qualified_Name; 538 539 ----------------------- 540 -- Get_Owned_Comment -- 541 ----------------------- 542 543 overriding function Get_Owned_Comment 544 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 545 return AMF.UML.Comments.Collections.Set_Of_UML_Comment is 546 begin 547 return 548 AMF.UML.Comments.Collections.Wrap 549 (AMF.Internals.Element_Collections.Wrap 550 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Comment 551 (Self.Element))); 552 end Get_Owned_Comment; 553 554 ----------------------- 555 -- Get_Owned_Element -- 556 ----------------------- 557 558 overriding function Get_Owned_Element 559 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 560 return AMF.UML.Elements.Collections.Set_Of_UML_Element is 561 begin 562 return 563 AMF.UML.Elements.Collections.Wrap 564 (AMF.Internals.Element_Collections.Wrap 565 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Element 566 (Self.Element))); 567 end Get_Owned_Element; 568 569 --------------- 570 -- Get_Owner -- 571 --------------- 572 573 overriding function Get_Owner 574 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 575 return AMF.UML.Elements.UML_Element_Access is 576 begin 577 return 578 AMF.UML.Elements.UML_Element_Access 579 (AMF.Internals.Helpers.To_Element 580 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owner 581 (Self.Element))); 582 end Get_Owner; 583 584 ----------------------------------- 585 -- Get_Owning_Template_Parameter -- 586 ----------------------------------- 587 588 overriding function Get_Owning_Template_Parameter 589 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 590 return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is 591 begin 592 return 593 AMF.UML.Template_Parameters.UML_Template_Parameter_Access 594 (AMF.Internals.Helpers.To_Element 595 (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owning_Template_Parameter 596 (Self.Element))); 597 end Get_Owning_Template_Parameter; 598 599 ----------------------------------- 600 -- Set_Owning_Template_Parameter -- 601 ----------------------------------- 602 603 overriding procedure Set_Owning_Template_Parameter 604 (Self : not null access UMLDI_UML_Interaction_Diagram_Proxy; 605 To : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is 606 begin 607 AMF.Internals.Tables.UML_Attributes.Internal_Set_Owning_Template_Parameter 608 (Self.Element, 609 AMF.Internals.Helpers.To_Element 610 (AMF.Elements.Element_Access (To))); 611 end Set_Owning_Template_Parameter; 612 613 ---------------------------- 614 -- Get_Template_Parameter -- 615 ---------------------------- 616 617 overriding function Get_Template_Parameter 618 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 619 return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is 620 begin 621 return 622 AMF.UML.Template_Parameters.UML_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 UMLDI_UML_Interaction_Diagram_Proxy; 634 To : AMF.UML.Template_Parameters.UML_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 -- All_Namespaces -- 644 -------------------- 645 646 overriding function All_Namespaces 647 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 648 return AMF.UML.Namespaces.Collections.Ordered_Set_Of_UML_Namespace is 649 begin 650 -- Generated stub: replace with real body! 651 pragma Compile_Time_Warning (Standard.True, "All_Namespaces unimplemented"); 652 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.All_Namespaces"; 653 return All_Namespaces (Self); 654 end All_Namespaces; 655 656 ------------------------- 657 -- All_Owning_Packages -- 658 ------------------------- 659 660 overriding function All_Owning_Packages 661 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 662 return AMF.UML.Packages.Collections.Set_Of_UML_Package is 663 begin 664 -- Generated stub: replace with real body! 665 pragma Compile_Time_Warning (Standard.True, "All_Owning_Packages unimplemented"); 666 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.All_Owning_Packages"; 667 return All_Owning_Packages (Self); 668 end All_Owning_Packages; 669 670 ----------------------------- 671 -- Is_Distinguishable_From -- 672 ----------------------------- 673 674 overriding function Is_Distinguishable_From 675 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy; 676 N : AMF.UML.Named_Elements.UML_Named_Element_Access; 677 Ns : AMF.UML.Namespaces.UML_Namespace_Access) 678 return Boolean is 679 begin 680 -- Generated stub: replace with real body! 681 pragma Compile_Time_Warning (Standard.True, "Is_Distinguishable_From unimplemented"); 682 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.Is_Distinguishable_From"; 683 return Is_Distinguishable_From (Self, N, Ns); 684 end Is_Distinguishable_From; 685 686 --------------- 687 -- Namespace -- 688 --------------- 689 690 overriding function Namespace 691 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 692 return AMF.UML.Namespaces.UML_Namespace_Access is 693 begin 694 -- Generated stub: replace with real body! 695 pragma Compile_Time_Warning (Standard.True, "Namespace unimplemented"); 696 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.Namespace"; 697 return Namespace (Self); 698 end Namespace; 699 700 -------------------- 701 -- Qualified_Name -- 702 -------------------- 703 704 overriding function Qualified_Name 705 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 706 return League.Strings.Universal_String is 707 begin 708 -- Generated stub: replace with real body! 709 pragma Compile_Time_Warning (Standard.True, "Qualified_Name unimplemented"); 710 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.Qualified_Name"; 711 return Qualified_Name (Self); 712 end Qualified_Name; 713 714 --------------- 715 -- Separator -- 716 --------------- 717 718 overriding function Separator 719 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 720 return League.Strings.Universal_String is 721 begin 722 -- Generated stub: replace with real body! 723 pragma Compile_Time_Warning (Standard.True, "Separator unimplemented"); 724 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.Separator"; 725 return Separator (Self); 726 end Separator; 727 728 ------------------------ 729 -- All_Owned_Elements -- 730 ------------------------ 731 732 overriding function All_Owned_Elements 733 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 734 return AMF.UML.Elements.Collections.Set_Of_UML_Element is 735 begin 736 -- Generated stub: replace with real body! 737 pragma Compile_Time_Warning (Standard.True, "All_Owned_Elements unimplemented"); 738 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.All_Owned_Elements"; 739 return All_Owned_Elements (Self); 740 end All_Owned_Elements; 741 742 ------------------------ 743 -- Is_Compatible_With -- 744 ------------------------ 745 746 overriding function Is_Compatible_With 747 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy; 748 P : AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access) 749 return Boolean is 750 begin 751 -- Generated stub: replace with real body! 752 pragma Compile_Time_Warning (Standard.True, "Is_Compatible_With unimplemented"); 753 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.Is_Compatible_With"; 754 return Is_Compatible_With (Self, P); 755 end Is_Compatible_With; 756 757 --------------------------- 758 -- Is_Template_Parameter -- 759 --------------------------- 760 761 overriding function Is_Template_Parameter 762 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy) 763 return Boolean is 764 begin 765 -- Generated stub: replace with real body! 766 pragma Compile_Time_Warning (Standard.True, "Is_Template_Parameter unimplemented"); 767 raise Program_Error with "Unimplemented procedure UMLDI_UML_Interaction_Diagram_Proxy.Is_Template_Parameter"; 768 return Is_Template_Parameter (Self); 769 end Is_Template_Parameter; 770 771 ------------------- 772 -- Enter_Element -- 773 ------------------- 774 775 overriding procedure Enter_Element 776 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy; 777 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 778 Control : in out AMF.Visitors.Traverse_Control) is 779 begin 780 if Visitor in AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class then 781 AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class 782 (Visitor).Enter_UML_Interaction_Diagram 783 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access (Self), 784 Control); 785 end if; 786 end Enter_Element; 787 788 ------------------- 789 -- Leave_Element -- 790 ------------------- 791 792 overriding procedure Leave_Element 793 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy; 794 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 795 Control : in out AMF.Visitors.Traverse_Control) is 796 begin 797 if Visitor in AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class then 798 AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class 799 (Visitor).Leave_UML_Interaction_Diagram 800 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access (Self), 801 Control); 802 end if; 803 end Leave_Element; 804 805 ------------------- 806 -- Visit_Element -- 807 ------------------- 808 809 overriding procedure Visit_Element 810 (Self : not null access constant UMLDI_UML_Interaction_Diagram_Proxy; 811 Iterator : in out AMF.Visitors.Abstract_Iterator'Class; 812 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 813 Control : in out AMF.Visitors.Traverse_Control) is 814 begin 815 if Iterator in AMF.Visitors.UMLDI_Iterators.UMLDI_Iterator'Class then 816 AMF.Visitors.UMLDI_Iterators.UMLDI_Iterator'Class 817 (Iterator).Visit_UML_Interaction_Diagram 818 (Visitor, 819 AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access (Self), 820 Control); 821 end if; 822 end Visit_Element; 823 824end AMF.Internals.UMLDI_UML_Interaction_Diagrams; 825