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