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