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: 2635 $ $Date: 2012-03-18 19:06:27 +0400 (Sun, 18 Mar 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.Internals.OCL_Elements; 47with AMF.OCL.Set_Types; 48with AMF.String_Collections; 49with AMF.UML.Classifier_Template_Parameters; 50with AMF.UML.Classifiers.Collections; 51with AMF.UML.Collaboration_Uses.Collections; 52with AMF.UML.Comments.Collections; 53with AMF.UML.Constraints.Collections; 54with AMF.UML.Dependencies.Collections; 55with AMF.UML.Element_Imports.Collections; 56with AMF.UML.Elements.Collections; 57with AMF.UML.Features.Collections; 58with AMF.UML.Generalization_Sets.Collections; 59with AMF.UML.Generalizations.Collections; 60with AMF.UML.Named_Elements.Collections; 61with AMF.UML.Namespaces.Collections; 62with AMF.UML.Operations.Collections; 63with AMF.UML.Package_Imports.Collections; 64with AMF.UML.Packageable_Elements.Collections; 65with AMF.UML.Packages.Collections; 66with AMF.UML.Parameterable_Elements.Collections; 67with AMF.UML.Properties.Collections; 68with AMF.UML.Redefinable_Elements.Collections; 69with AMF.UML.Redefinable_Template_Signatures; 70with AMF.UML.String_Expressions; 71with AMF.UML.Substitutions.Collections; 72with AMF.UML.Template_Bindings.Collections; 73with AMF.UML.Template_Parameters; 74with AMF.UML.Template_Signatures; 75with AMF.UML.Types; 76with AMF.UML.Use_Cases.Collections; 77with AMF.Visitors; 78 79package AMF.Internals.OCL_Set_Types is 80 81 type OCL_Set_Type_Proxy is 82 limited new AMF.Internals.OCL_Elements.OCL_Element_Proxy 83 and AMF.OCL.Set_Types.OCL_Set_Type with null record; 84 85 overriding function Get_Element_Type 86 (Self : not null access constant OCL_Set_Type_Proxy) 87 return AMF.UML.Classifiers.UML_Classifier_Access; 88 -- Getter of CollectionType::elementType. 89 -- 90 91 overriding procedure Set_Element_Type 92 (Self : not null access OCL_Set_Type_Proxy; 93 To : AMF.UML.Classifiers.UML_Classifier_Access); 94 -- Setter of CollectionType::elementType. 95 -- 96 97 overriding function Get_Owned_Attribute 98 (Self : not null access constant OCL_Set_Type_Proxy) 99 return AMF.UML.Properties.Collections.Ordered_Set_Of_UML_Property; 100 -- Getter of DataType::ownedAttribute. 101 -- 102 -- The Attributes owned by the DataType. 103 104 overriding function Get_Owned_Operation 105 (Self : not null access constant OCL_Set_Type_Proxy) 106 return AMF.UML.Operations.Collections.Ordered_Set_Of_UML_Operation; 107 -- Getter of DataType::ownedOperation. 108 -- 109 -- The Operations owned by the DataType. 110 111 overriding function Get_Attribute 112 (Self : not null access constant OCL_Set_Type_Proxy) 113 return AMF.UML.Properties.Collections.Set_Of_UML_Property; 114 -- Getter of Classifier::attribute. 115 -- 116 -- Refers to all of the Properties that are direct (i.e. not inherited or 117 -- imported) attributes of the classifier. 118 119 overriding function Get_Collaboration_Use 120 (Self : not null access constant OCL_Set_Type_Proxy) 121 return AMF.UML.Collaboration_Uses.Collections.Set_Of_UML_Collaboration_Use; 122 -- Getter of Classifier::collaborationUse. 123 -- 124 -- References the collaboration uses owned by the classifier. 125 126 overriding function Get_Feature 127 (Self : not null access constant OCL_Set_Type_Proxy) 128 return AMF.UML.Features.Collections.Set_Of_UML_Feature; 129 -- Getter of Classifier::feature. 130 -- 131 -- Specifies each feature defined in the classifier. 132 -- Note that there may be members of the Classifier that are of the type 133 -- Feature but are not included in this association, e.g. inherited 134 -- features. 135 136 overriding function Get_General 137 (Self : not null access constant OCL_Set_Type_Proxy) 138 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier; 139 -- Getter of Classifier::general. 140 -- 141 -- Specifies the general Classifiers for this Classifier. 142 -- References the general classifier in the Generalization relationship. 143 144 overriding function Get_Generalization 145 (Self : not null access constant OCL_Set_Type_Proxy) 146 return AMF.UML.Generalizations.Collections.Set_Of_UML_Generalization; 147 -- Getter of Classifier::generalization. 148 -- 149 -- Specifies the Generalization relationships for this Classifier. These 150 -- Generalizations navigaten to more general classifiers in the 151 -- generalization hierarchy. 152 153 overriding function Get_Inherited_Member 154 (Self : not null access constant OCL_Set_Type_Proxy) 155 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element; 156 -- Getter of Classifier::inheritedMember. 157 -- 158 -- Specifies all elements inherited by this classifier from the general 159 -- classifiers. 160 161 overriding function Get_Is_Abstract 162 (Self : not null access constant OCL_Set_Type_Proxy) 163 return Boolean; 164 -- Getter of Classifier::isAbstract. 165 -- 166 -- If true, the Classifier does not provide a complete declaration and can 167 -- typically not be instantiated. An abstract classifier is intended to be 168 -- used by other classifiers e.g. as the target of general 169 -- metarelationships or generalization relationships. 170 171 overriding procedure Set_Is_Abstract 172 (Self : not null access OCL_Set_Type_Proxy; 173 To : Boolean); 174 -- Setter of Classifier::isAbstract. 175 -- 176 -- If true, the Classifier does not provide a complete declaration and can 177 -- typically not be instantiated. An abstract classifier is intended to be 178 -- used by other classifiers e.g. as the target of general 179 -- metarelationships or generalization relationships. 180 181 overriding function Get_Is_Final_Specialization 182 (Self : not null access constant OCL_Set_Type_Proxy) 183 return Boolean; 184 -- Getter of Classifier::isFinalSpecialization. 185 -- 186 -- If true, the Classifier cannot be specialized by generalization. Note 187 -- that this property is preserved through package merge operations; that 188 -- is, the capability to specialize a Classifier (i.e., 189 -- isFinalSpecialization =false) must be preserved in the resulting 190 -- Classifier of a package merge operation where a Classifier with 191 -- isFinalSpecialization =false is merged with a matching Classifier with 192 -- isFinalSpecialization =true: the resulting Classifier will have 193 -- isFinalSpecialization =false. 194 195 overriding procedure Set_Is_Final_Specialization 196 (Self : not null access OCL_Set_Type_Proxy; 197 To : Boolean); 198 -- Setter of Classifier::isFinalSpecialization. 199 -- 200 -- If true, the Classifier cannot be specialized by generalization. Note 201 -- that this property is preserved through package merge operations; that 202 -- is, the capability to specialize a Classifier (i.e., 203 -- isFinalSpecialization =false) must be preserved in the resulting 204 -- Classifier of a package merge operation where a Classifier with 205 -- isFinalSpecialization =false is merged with a matching Classifier with 206 -- isFinalSpecialization =true: the resulting Classifier will have 207 -- isFinalSpecialization =false. 208 209 overriding function Get_Owned_Template_Signature 210 (Self : not null access constant OCL_Set_Type_Proxy) 211 return AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access; 212 -- Getter of Classifier::ownedTemplateSignature. 213 -- 214 -- The optional template signature specifying the formal template 215 -- parameters. 216 217 overriding procedure Set_Owned_Template_Signature 218 (Self : not null access OCL_Set_Type_Proxy; 219 To : AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access); 220 -- Setter of Classifier::ownedTemplateSignature. 221 -- 222 -- The optional template signature specifying the formal template 223 -- parameters. 224 225 overriding function Get_Owned_Use_Case 226 (Self : not null access constant OCL_Set_Type_Proxy) 227 return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case; 228 -- Getter of Classifier::ownedUseCase. 229 -- 230 -- References the use cases owned by this classifier. 231 232 overriding function Get_Powertype_Extent 233 (Self : not null access constant OCL_Set_Type_Proxy) 234 return AMF.UML.Generalization_Sets.Collections.Set_Of_UML_Generalization_Set; 235 -- Getter of Classifier::powertypeExtent. 236 -- 237 -- Designates the GeneralizationSet of which the associated Classifier is 238 -- a power type. 239 240 overriding function Get_Redefined_Classifier 241 (Self : not null access constant OCL_Set_Type_Proxy) 242 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier; 243 -- Getter of Classifier::redefinedClassifier. 244 -- 245 -- References the Classifiers that are redefined by this Classifier. 246 247 overriding function Get_Representation 248 (Self : not null access constant OCL_Set_Type_Proxy) 249 return AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access; 250 -- Getter of Classifier::representation. 251 -- 252 -- References a collaboration use which indicates the collaboration that 253 -- represents this classifier. 254 255 overriding procedure Set_Representation 256 (Self : not null access OCL_Set_Type_Proxy; 257 To : AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access); 258 -- Setter of Classifier::representation. 259 -- 260 -- References a collaboration use which indicates the collaboration that 261 -- represents this classifier. 262 263 overriding function Get_Substitution 264 (Self : not null access constant OCL_Set_Type_Proxy) 265 return AMF.UML.Substitutions.Collections.Set_Of_UML_Substitution; 266 -- Getter of Classifier::substitution. 267 -- 268 -- References the substitutions that are owned by this Classifier. 269 270 overriding function Get_Template_Parameter 271 (Self : not null access constant OCL_Set_Type_Proxy) 272 return AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access; 273 -- Getter of Classifier::templateParameter. 274 -- 275 -- The template parameter that exposes this element as a formal parameter. 276 277 overriding procedure Set_Template_Parameter 278 (Self : not null access OCL_Set_Type_Proxy; 279 To : AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access); 280 -- Setter of Classifier::templateParameter. 281 -- 282 -- The template parameter that exposes this element as a formal parameter. 283 284 overriding function Get_Use_Case 285 (Self : not null access constant OCL_Set_Type_Proxy) 286 return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case; 287 -- Getter of Classifier::useCase. 288 -- 289 -- The set of use cases for which this Classifier is the subject. 290 291 overriding function Get_Element_Import 292 (Self : not null access constant OCL_Set_Type_Proxy) 293 return AMF.UML.Element_Imports.Collections.Set_Of_UML_Element_Import; 294 -- Getter of Namespace::elementImport. 295 -- 296 -- References the ElementImports owned by the Namespace. 297 298 overriding function Get_Imported_Member 299 (Self : not null access constant OCL_Set_Type_Proxy) 300 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element; 301 -- Getter of Namespace::importedMember. 302 -- 303 -- References the PackageableElements that are members of this Namespace 304 -- as a result of either PackageImports or ElementImports. 305 306 overriding function Get_Member 307 (Self : not null access constant OCL_Set_Type_Proxy) 308 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element; 309 -- Getter of Namespace::member. 310 -- 311 -- A collection of NamedElements identifiable within the Namespace, either 312 -- by being owned or by being introduced by importing or inheritance. 313 314 overriding function Get_Owned_Member 315 (Self : not null access constant OCL_Set_Type_Proxy) 316 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element; 317 -- Getter of Namespace::ownedMember. 318 -- 319 -- A collection of NamedElements owned by the Namespace. 320 321 overriding function Get_Owned_Rule 322 (Self : not null access constant OCL_Set_Type_Proxy) 323 return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint; 324 -- Getter of Namespace::ownedRule. 325 -- 326 -- Specifies a set of Constraints owned by this Namespace. 327 328 overriding function Get_Package_Import 329 (Self : not null access constant OCL_Set_Type_Proxy) 330 return AMF.UML.Package_Imports.Collections.Set_Of_UML_Package_Import; 331 -- Getter of Namespace::packageImport. 332 -- 333 -- References the PackageImports owned by the Namespace. 334 335 overriding function Get_Client_Dependency 336 (Self : not null access constant OCL_Set_Type_Proxy) 337 return AMF.UML.Dependencies.Collections.Set_Of_UML_Dependency; 338 -- Getter of NamedElement::clientDependency. 339 -- 340 -- Indicates the dependencies that reference the client. 341 342 overriding function Get_Name 343 (Self : not null access constant OCL_Set_Type_Proxy) 344 return AMF.Optional_String; 345 -- Getter of NamedElement::name. 346 -- 347 -- The name of the NamedElement. 348 349 overriding procedure Set_Name 350 (Self : not null access OCL_Set_Type_Proxy; 351 To : AMF.Optional_String); 352 -- Setter of NamedElement::name. 353 -- 354 -- The name of the NamedElement. 355 356 overriding function Get_Name_Expression 357 (Self : not null access constant OCL_Set_Type_Proxy) 358 return AMF.UML.String_Expressions.UML_String_Expression_Access; 359 -- Getter of NamedElement::nameExpression. 360 -- 361 -- The string expression used to define the name of this named element. 362 363 overriding procedure Set_Name_Expression 364 (Self : not null access OCL_Set_Type_Proxy; 365 To : AMF.UML.String_Expressions.UML_String_Expression_Access); 366 -- Setter of NamedElement::nameExpression. 367 -- 368 -- The string expression used to define the name of this named element. 369 370 overriding function Get_Namespace 371 (Self : not null access constant OCL_Set_Type_Proxy) 372 return AMF.UML.Namespaces.UML_Namespace_Access; 373 -- Getter of NamedElement::namespace. 374 -- 375 -- Specifies the namespace that owns the NamedElement. 376 377 overriding function Get_Qualified_Name 378 (Self : not null access constant OCL_Set_Type_Proxy) 379 return AMF.Optional_String; 380 -- Getter of NamedElement::qualifiedName. 381 -- 382 -- A name which allows the NamedElement to be identified within a 383 -- hierarchy of nested Namespaces. It is constructed from the names of the 384 -- containing namespaces starting at the root of the hierarchy and ending 385 -- with the name of the NamedElement itself. 386 387 overriding function Get_Visibility 388 (Self : not null access constant OCL_Set_Type_Proxy) 389 return AMF.UML.Optional_UML_Visibility_Kind; 390 -- Getter of NamedElement::visibility. 391 -- 392 -- Determines where the NamedElement appears within different Namespaces 393 -- within the overall model, and its accessibility. 394 395 overriding procedure Set_Visibility 396 (Self : not null access OCL_Set_Type_Proxy; 397 To : AMF.UML.Optional_UML_Visibility_Kind); 398 -- Setter of NamedElement::visibility. 399 -- 400 -- Determines where the NamedElement appears within different Namespaces 401 -- within the overall model, and its accessibility. 402 403 overriding function Get_Owned_Comment 404 (Self : not null access constant OCL_Set_Type_Proxy) 405 return AMF.UML.Comments.Collections.Set_Of_UML_Comment; 406 -- Getter of Element::ownedComment. 407 -- 408 -- The Comments owned by this element. 409 410 overriding function Get_Owned_Element 411 (Self : not null access constant OCL_Set_Type_Proxy) 412 return AMF.UML.Elements.Collections.Set_Of_UML_Element; 413 -- Getter of Element::ownedElement. 414 -- 415 -- The Elements owned by this element. 416 417 overriding function Get_Owner 418 (Self : not null access constant OCL_Set_Type_Proxy) 419 return AMF.UML.Elements.UML_Element_Access; 420 -- Getter of Element::owner. 421 -- 422 -- The Element that owns this element. 423 424 overriding function Get_Package 425 (Self : not null access constant OCL_Set_Type_Proxy) 426 return AMF.UML.Packages.UML_Package_Access; 427 -- Getter of Type::package. 428 -- 429 -- Specifies the owning package of this classifier, if any. 430 431 overriding procedure Set_Package 432 (Self : not null access OCL_Set_Type_Proxy; 433 To : AMF.UML.Packages.UML_Package_Access); 434 -- Setter of Type::package. 435 -- 436 -- Specifies the owning package of this classifier, if any. 437 438 overriding function Get_Visibility 439 (Self : not null access constant OCL_Set_Type_Proxy) 440 return AMF.UML.UML_Visibility_Kind; 441 -- Getter of PackageableElement::visibility. 442 -- 443 -- Indicates that packageable elements must always have a visibility, 444 -- i.e., visibility is not optional. 445 446 overriding procedure Set_Visibility 447 (Self : not null access OCL_Set_Type_Proxy; 448 To : AMF.UML.UML_Visibility_Kind); 449 -- Setter of PackageableElement::visibility. 450 -- 451 -- Indicates that packageable elements must always have a visibility, 452 -- i.e., visibility is not optional. 453 454 overriding function Get_Owning_Template_Parameter 455 (Self : not null access constant OCL_Set_Type_Proxy) 456 return AMF.UML.Template_Parameters.UML_Template_Parameter_Access; 457 -- Getter of ParameterableElement::owningTemplateParameter. 458 -- 459 -- The formal template parameter that owns this element. 460 461 overriding procedure Set_Owning_Template_Parameter 462 (Self : not null access OCL_Set_Type_Proxy; 463 To : AMF.UML.Template_Parameters.UML_Template_Parameter_Access); 464 -- Setter of ParameterableElement::owningTemplateParameter. 465 -- 466 -- The formal template parameter that owns this element. 467 468 overriding function Get_Template_Parameter 469 (Self : not null access constant OCL_Set_Type_Proxy) 470 return AMF.UML.Template_Parameters.UML_Template_Parameter_Access; 471 -- Getter of ParameterableElement::templateParameter. 472 -- 473 -- The template parameter that exposes this element as a formal parameter. 474 475 overriding procedure Set_Template_Parameter 476 (Self : not null access OCL_Set_Type_Proxy; 477 To : AMF.UML.Template_Parameters.UML_Template_Parameter_Access); 478 -- Setter of ParameterableElement::templateParameter. 479 -- 480 -- The template parameter that exposes this element as a formal parameter. 481 482 overriding function Get_Owned_Template_Signature 483 (Self : not null access constant OCL_Set_Type_Proxy) 484 return AMF.UML.Template_Signatures.UML_Template_Signature_Access; 485 -- Getter of TemplateableElement::ownedTemplateSignature. 486 -- 487 -- The optional template signature specifying the formal template 488 -- parameters. 489 490 overriding procedure Set_Owned_Template_Signature 491 (Self : not null access OCL_Set_Type_Proxy; 492 To : AMF.UML.Template_Signatures.UML_Template_Signature_Access); 493 -- Setter of TemplateableElement::ownedTemplateSignature. 494 -- 495 -- The optional template signature specifying the formal template 496 -- parameters. 497 498 overriding function Get_Template_Binding 499 (Self : not null access constant OCL_Set_Type_Proxy) 500 return AMF.UML.Template_Bindings.Collections.Set_Of_UML_Template_Binding; 501 -- Getter of TemplateableElement::templateBinding. 502 -- 503 -- The optional bindings from this element to templates. 504 505 overriding function Get_Is_Leaf 506 (Self : not null access constant OCL_Set_Type_Proxy) 507 return Boolean; 508 -- Getter of RedefinableElement::isLeaf. 509 -- 510 -- Indicates whether it is possible to further redefine a 511 -- RedefinableElement. If the value is true, then it is not possible to 512 -- further redefine the RedefinableElement. Note that this property is 513 -- preserved through package merge operations; that is, the capability to 514 -- redefine a RedefinableElement (i.e., isLeaf=false) must be preserved in 515 -- the resulting RedefinableElement of a package merge operation where a 516 -- RedefinableElement with isLeaf=false is merged with a matching 517 -- RedefinableElement with isLeaf=true: the resulting RedefinableElement 518 -- will have isLeaf=false. Default value is false. 519 520 overriding procedure Set_Is_Leaf 521 (Self : not null access OCL_Set_Type_Proxy; 522 To : Boolean); 523 -- Setter of RedefinableElement::isLeaf. 524 -- 525 -- Indicates whether it is possible to further redefine a 526 -- RedefinableElement. If the value is true, then it is not possible to 527 -- further redefine the RedefinableElement. Note that this property is 528 -- preserved through package merge operations; that is, the capability to 529 -- redefine a RedefinableElement (i.e., isLeaf=false) must be preserved in 530 -- the resulting RedefinableElement of a package merge operation where a 531 -- RedefinableElement with isLeaf=false is merged with a matching 532 -- RedefinableElement with isLeaf=true: the resulting RedefinableElement 533 -- will have isLeaf=false. Default value is false. 534 535 overriding function Get_Redefined_Element 536 (Self : not null access constant OCL_Set_Type_Proxy) 537 return AMF.UML.Redefinable_Elements.Collections.Set_Of_UML_Redefinable_Element; 538 -- Getter of RedefinableElement::redefinedElement. 539 -- 540 -- The redefinable element that is being redefined by this element. 541 542 overriding function Get_Redefinition_Context 543 (Self : not null access constant OCL_Set_Type_Proxy) 544 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier; 545 -- Getter of RedefinableElement::redefinitionContext. 546 -- 547 -- References the contexts that this element may be redefined from. 548 549 overriding function Inherit 550 (Self : not null access constant OCL_Set_Type_Proxy; 551 Inhs : AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element) 552 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element; 553 -- Operation DataType::inherit. 554 -- 555 -- The inherit operation is overridden to exclude redefined properties. 556 557 overriding function All_Features 558 (Self : not null access constant OCL_Set_Type_Proxy) 559 return AMF.UML.Features.Collections.Set_Of_UML_Feature; 560 -- Operation Classifier::allFeatures. 561 -- 562 -- The query allFeatures() gives all of the features in the namespace of 563 -- the classifier. In general, through mechanisms such as inheritance, 564 -- this will be a larger set than feature. 565 566 overriding function All_Parents 567 (Self : not null access constant OCL_Set_Type_Proxy) 568 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier; 569 -- Operation Classifier::allParents. 570 -- 571 -- The query allParents() gives all of the direct and indirect ancestors 572 -- of a generalized Classifier. 573 574 overriding function Conforms_To 575 (Self : not null access constant OCL_Set_Type_Proxy; 576 Other : AMF.UML.Classifiers.UML_Classifier_Access) 577 return Boolean; 578 -- Operation Classifier::conformsTo. 579 -- 580 -- The query conformsTo() gives true for a classifier that defines a type 581 -- that conforms to another. This is used, for example, in the 582 -- specification of signature conformance for operations. 583 584 overriding function General 585 (Self : not null access constant OCL_Set_Type_Proxy) 586 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier; 587 -- Operation Classifier::general. 588 -- 589 -- The general classifiers are the classifiers referenced by the 590 -- generalization relationships. 591 592 overriding function Has_Visibility_Of 593 (Self : not null access constant OCL_Set_Type_Proxy; 594 N : AMF.UML.Named_Elements.UML_Named_Element_Access) 595 return Boolean; 596 -- Operation Classifier::hasVisibilityOf. 597 -- 598 -- The query hasVisibilityOf() determines whether a named element is 599 -- visible in the classifier. By default all are visible. It is only 600 -- called when the argument is something owned by a parent. 601 602 overriding function Inheritable_Members 603 (Self : not null access constant OCL_Set_Type_Proxy; 604 C : AMF.UML.Classifiers.UML_Classifier_Access) 605 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element; 606 -- Operation Classifier::inheritableMembers. 607 -- 608 -- The query inheritableMembers() gives all of the members of a classifier 609 -- that may be inherited in one of its descendants, subject to whatever 610 -- visibility restrictions apply. 611 612 overriding function Inherited_Member 613 (Self : not null access constant OCL_Set_Type_Proxy) 614 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element; 615 -- Operation Classifier::inheritedMember. 616 -- 617 -- The inheritedMember association is derived by inheriting the 618 -- inheritable members of the parents. 619 -- The inheritedMember association is derived by inheriting the 620 -- inheritable members of the parents. 621 622 overriding function Is_Template 623 (Self : not null access constant OCL_Set_Type_Proxy) 624 return Boolean; 625 -- Operation Classifier::isTemplate. 626 -- 627 -- The query isTemplate() returns whether this templateable element is 628 -- actually a template. 629 630 overriding function May_Specialize_Type 631 (Self : not null access constant OCL_Set_Type_Proxy; 632 C : AMF.UML.Classifiers.UML_Classifier_Access) 633 return Boolean; 634 -- Operation Classifier::maySpecializeType. 635 -- 636 -- The query maySpecializeType() determines whether this classifier may 637 -- have a generalization relationship to classifiers of the specified 638 -- type. By default a classifier may specialize classifiers of the same or 639 -- a more general type. It is intended to be redefined by classifiers that 640 -- have different specialization constraints. 641 642 overriding function Parents 643 (Self : not null access constant OCL_Set_Type_Proxy) 644 return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier; 645 -- Operation Classifier::parents. 646 -- 647 -- The query parents() gives all of the immediate ancestors of a 648 -- generalized Classifier. 649 650 overriding function Exclude_Collisions 651 (Self : not null access constant OCL_Set_Type_Proxy; 652 Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element) 653 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element; 654 -- Operation Namespace::excludeCollisions. 655 -- 656 -- The query excludeCollisions() excludes from a set of 657 -- PackageableElements any that would not be distinguishable from each 658 -- other in this namespace. 659 660 overriding function Get_Names_Of_Member 661 (Self : not null access constant OCL_Set_Type_Proxy; 662 Element : AMF.UML.Named_Elements.UML_Named_Element_Access) 663 return AMF.String_Collections.Set_Of_String; 664 -- Operation Namespace::getNamesOfMember. 665 -- 666 -- The query getNamesOfMember() takes importing into account. It gives 667 -- back the set of names that an element would have in an importing 668 -- namespace, either because it is owned, or if not owned then imported 669 -- individually, or if not individually then from a package. 670 -- The query getNamesOfMember() gives a set of all of the names that a 671 -- member would have in a Namespace. In general a member can have multiple 672 -- names in a Namespace if it is imported more than once with different 673 -- aliases. The query takes account of importing. It gives back the set of 674 -- names that an element would have in an importing namespace, either 675 -- because it is owned, or if not owned then imported individually, or if 676 -- not individually then from a package. 677 678 overriding function Import_Members 679 (Self : not null access constant OCL_Set_Type_Proxy; 680 Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element) 681 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element; 682 -- Operation Namespace::importMembers. 683 -- 684 -- The query importMembers() defines which of a set of PackageableElements 685 -- are actually imported into the namespace. This excludes hidden ones, 686 -- i.e., those which have names that conflict with names of owned members, 687 -- and also excludes elements which would have the same name when imported. 688 689 overriding function Imported_Member 690 (Self : not null access constant OCL_Set_Type_Proxy) 691 return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element; 692 -- Operation Namespace::importedMember. 693 -- 694 -- The importedMember property is derived from the ElementImports and the 695 -- PackageImports. References the PackageableElements that are members of 696 -- this Namespace as a result of either PackageImports or ElementImports. 697 698 overriding function Members_Are_Distinguishable 699 (Self : not null access constant OCL_Set_Type_Proxy) 700 return Boolean; 701 -- Operation Namespace::membersAreDistinguishable. 702 -- 703 -- The Boolean query membersAreDistinguishable() determines whether all of 704 -- the namespace's members are distinguishable within it. 705 706 overriding function Owned_Member 707 (Self : not null access constant OCL_Set_Type_Proxy) 708 return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element; 709 -- Operation Namespace::ownedMember. 710 -- 711 -- Missing derivation for Namespace::/ownedMember : NamedElement 712 713 overriding function All_Namespaces 714 (Self : not null access constant OCL_Set_Type_Proxy) 715 return AMF.UML.Namespaces.Collections.Ordered_Set_Of_UML_Namespace; 716 -- Operation NamedElement::allNamespaces. 717 -- 718 -- The query allNamespaces() gives the sequence of namespaces in which the 719 -- NamedElement is nested, working outwards. 720 721 overriding function All_Owning_Packages 722 (Self : not null access constant OCL_Set_Type_Proxy) 723 return AMF.UML.Packages.Collections.Set_Of_UML_Package; 724 -- Operation NamedElement::allOwningPackages. 725 -- 726 -- The query allOwningPackages() returns all the directly or indirectly 727 -- owning packages. 728 729 overriding function Is_Distinguishable_From 730 (Self : not null access constant OCL_Set_Type_Proxy; 731 N : AMF.UML.Named_Elements.UML_Named_Element_Access; 732 Ns : AMF.UML.Namespaces.UML_Namespace_Access) 733 return Boolean; 734 -- Operation NamedElement::isDistinguishableFrom. 735 -- 736 -- The query isDistinguishableFrom() determines whether two NamedElements 737 -- may logically co-exist within a Namespace. By default, two named 738 -- elements are distinguishable if (a) they have unrelated types or (b) 739 -- they have related types but different names. 740 741 overriding function Namespace 742 (Self : not null access constant OCL_Set_Type_Proxy) 743 return AMF.UML.Namespaces.UML_Namespace_Access; 744 -- Operation NamedElement::namespace. 745 -- 746 -- Missing derivation for NamedElement::/namespace : Namespace 747 748 overriding function Qualified_Name 749 (Self : not null access constant OCL_Set_Type_Proxy) 750 return League.Strings.Universal_String; 751 -- Operation NamedElement::qualifiedName. 752 -- 753 -- When there is a name, and all of the containing namespaces have a name, 754 -- the qualified name is constructed from the names of the containing 755 -- namespaces. 756 757 overriding function Separator 758 (Self : not null access constant OCL_Set_Type_Proxy) 759 return League.Strings.Universal_String; 760 -- Operation NamedElement::separator. 761 -- 762 -- The query separator() gives the string that is used to separate names 763 -- when constructing a qualified name. 764 765 overriding function All_Owned_Elements 766 (Self : not null access constant OCL_Set_Type_Proxy) 767 return AMF.UML.Elements.Collections.Set_Of_UML_Element; 768 -- Operation Element::allOwnedElements. 769 -- 770 -- The query allOwnedElements() gives all of the direct and indirect owned 771 -- elements of an element. 772 773 overriding function Must_Be_Owned 774 (Self : not null access constant OCL_Set_Type_Proxy) 775 return Boolean; 776 -- Operation Element::mustBeOwned. 777 -- 778 -- The query mustBeOwned() indicates whether elements of this type must 779 -- have an owner. Subclasses of Element that do not require an owner must 780 -- override this operation. 781 782 overriding function Conforms_To 783 (Self : not null access constant OCL_Set_Type_Proxy; 784 Other : AMF.UML.Types.UML_Type_Access) 785 return Boolean; 786 -- Operation Type::conformsTo. 787 -- 788 -- The query conformsTo() gives true for a type that conforms to another. 789 -- By default, two types do not conform to each other. This query is 790 -- intended to be redefined for specific conformance situations. 791 792 overriding function Is_Compatible_With 793 (Self : not null access constant OCL_Set_Type_Proxy; 794 P : AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access) 795 return Boolean; 796 -- Operation ParameterableElement::isCompatibleWith. 797 -- 798 -- The query isCompatibleWith() determines if this parameterable element 799 -- is compatible with the specified parameterable element. By default 800 -- parameterable element P is compatible with parameterable element Q if 801 -- the kind of P is the same or a subtype as the kind of Q. Subclasses 802 -- should override this operation to specify different compatibility 803 -- constraints. 804 805 overriding function Is_Template_Parameter 806 (Self : not null access constant OCL_Set_Type_Proxy) 807 return Boolean; 808 -- Operation ParameterableElement::isTemplateParameter. 809 -- 810 -- The query isTemplateParameter() determines if this parameterable 811 -- element is exposed as a formal template parameter. 812 813 overriding function Parameterable_Elements 814 (Self : not null access constant OCL_Set_Type_Proxy) 815 return AMF.UML.Parameterable_Elements.Collections.Set_Of_UML_Parameterable_Element; 816 -- Operation TemplateableElement::parameterableElements. 817 -- 818 -- The query parameterableElements() returns the set of elements that may 819 -- be used as the parametered elements for a template parameter of this 820 -- templateable element. By default, this set includes all the owned 821 -- elements. Subclasses may override this operation if they choose to 822 -- restrict the set of parameterable elements. 823 824 overriding function Is_Consistent_With 825 (Self : not null access constant OCL_Set_Type_Proxy; 826 Redefinee : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access) 827 return Boolean; 828 -- Operation RedefinableElement::isConsistentWith. 829 -- 830 -- The query isConsistentWith() specifies, for any two RedefinableElements 831 -- in a context in which redefinition is possible, whether redefinition 832 -- would be logically consistent. By default, this is false; this 833 -- operation must be overridden for subclasses of RedefinableElement to 834 -- define the consistency conditions. 835 836 overriding function Is_Redefinition_Context_Valid 837 (Self : not null access constant OCL_Set_Type_Proxy; 838 Redefined : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access) 839 return Boolean; 840 -- Operation RedefinableElement::isRedefinitionContextValid. 841 -- 842 -- The query isRedefinitionContextValid() specifies whether the 843 -- redefinition contexts of this RedefinableElement are properly related 844 -- to the redefinition contexts of the specified RedefinableElement to 845 -- allow this element to redefine the other. By default at least one of 846 -- the redefinition contexts of this element must be a specialization of 847 -- at least one of the redefinition contexts of the specified element. 848 849 overriding procedure Enter_Element 850 (Self : not null access constant OCL_Set_Type_Proxy; 851 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 852 Control : in out AMF.Visitors.Traverse_Control); 853 854 overriding procedure Leave_Element 855 (Self : not null access constant OCL_Set_Type_Proxy; 856 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 857 Control : in out AMF.Visitors.Traverse_Control); 858 859 overriding procedure Visit_Element 860 (Self : not null access constant OCL_Set_Type_Proxy; 861 Iterator : in out AMF.Visitors.Abstract_Iterator'Class; 862 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 863 Control : in out AMF.Visitors.Traverse_Control); 864 865end AMF.Internals.OCL_Set_Types; 866