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