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