1------------------------------------------------------------------------------ 2-- -- 3-- Matreshka Project -- 4-- -- 5-- Ada Modeling Framework -- 6-- -- 7-- Runtime Library Component -- 8-- -- 9------------------------------------------------------------------------------ 10-- -- 11-- Copyright © 2010-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: 3409 $ $Date: 2012-11-13 15:04:54 +0400 (Tue, 13 Nov 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.CMOF.Associations; 47with AMF.CMOF.Classes.Collections; 48with AMF.CMOF.Classifiers.Collections; 49with AMF.CMOF.Comments.Collections; 50with AMF.CMOF.Constraints.Collections; 51with AMF.CMOF.Data_Types; 52with AMF.CMOF.Element_Imports.Collections; 53with AMF.CMOF.Elements.Collections; 54with AMF.CMOF.Enumeration_Literals.Collections; 55with AMF.CMOF.Enumerations; 56with AMF.CMOF.Expressions; 57with AMF.CMOF.Features.Collections; 58with AMF.CMOF.Holders.Parameter_Direction_Kinds; 59with AMF.CMOF.Holders.Visibility_Kinds; 60with AMF.CMOF.Named_Elements.Collections; 61with AMF.CMOF.Namespaces; 62with AMF.CMOF.Opaque_Expressions; 63with AMF.CMOF.Operations.Collections; 64with AMF.CMOF.Package_Imports.Collections; 65with AMF.CMOF.Package_Merges.Collections; 66with AMF.CMOF.Packageable_Elements.Collections; 67with AMF.CMOF.Packages.Collections; 68with AMF.CMOF.Parameters.Collections; 69with AMF.CMOF.Primitive_Types; 70with AMF.CMOF.Properties.Collections; 71with AMF.CMOF.Redefinable_Elements.Collections; 72with AMF.CMOF.Tags; 73with AMF.CMOF.Types.Collections; 74with AMF.CMOF.Value_Specifications.Collections; 75with AMF.Holders.Elements; 76with AMF.Internals.Helpers; 77with AMF.Internals.Holders.CMOF_Holders; 78with AMF.Internals.Tables.CMOF_Element_Table; 79with AMF.Internals.Tables.CMOF_Metamodel; 80with AMF.Internals.Tables.CMOF_Types; 81with AMF.String_Collections.Internals; 82with League.Holders.Booleans; 83 84package body AMF.Internals.Tables.CMOF_Reflection is 85 86 --------- 87 -- Get -- 88 --------- 89 90 function Get 91 (Self : AMF.Internals.AMF_Element; 92 Property : CMOF_Element) return League.Holders.Holder 93 is 94 95 function CMOF_Association_Get return League.Holders.Holder; 96 -- Returns attribute's value of instance of Association class. 97 98 function CMOF_Class_Get return League.Holders.Holder; 99 -- Returns attribute's value of instance of Class class. 100 101 function CMOF_Comment_Get return League.Holders.Holder; 102 -- Returns attribute's value of instance of Comment class. 103 104 function CMOF_Constraint_Get return League.Holders.Holder; 105 -- Returns attribute's value of instance of Constraint class. 106 107 function CMOF_Data_Type_Get return League.Holders.Holder; 108 -- Returns attribute's value of instance of DataType class. 109 110 function CMOF_Element_Import_Get return League.Holders.Holder; 111 -- Returns attribute's value of instance of ElementImport class. 112 113 function CMOF_Enumeration_Get return League.Holders.Holder; 114 -- Returns attribute's value of instance of Enumeration class. 115 116 function CMOF_Enumeration_Literal_Get return League.Holders.Holder; 117 -- Returns attribute's value of instance of EnumerationLiteral class. 118 119 function CMOF_Expression_Get return League.Holders.Holder; 120 -- Returns attribute's value of instance of Expression class. 121 122 function CMOF_Opaque_Expression_Get return League.Holders.Holder; 123 -- Returns attribute's value of instance of OpaqueExpression class. 124 125 function CMOF_Operation_Get return League.Holders.Holder; 126 -- Returns attribute's value of instance of Operation class. 127 128 function CMOF_Package_Get return League.Holders.Holder; 129 -- Returns attribute's value of instance of Package class. 130 131 function CMOF_Package_Import_Get return League.Holders.Holder; 132 -- Returns attribute's value of instance of PackageImport class. 133 134 function CMOF_Package_Merge_Get return League.Holders.Holder; 135 -- Returns attribute's value of instance of PackageMerge class. 136 137 function CMOF_Parameter_Get return League.Holders.Holder; 138 -- Returns attribute's value of instance of Parameter class. 139 140 function CMOF_Primitive_Type_Get return League.Holders.Holder; 141 -- Returns attribute's value of instance of PrimitiveType class. 142 143 function CMOF_Property_Get return League.Holders.Holder; 144 -- Returns attribute's value of instance of Property class. 145 146 function CMOF_Tag_Get return League.Holders.Holder; 147 -- Returns attribute's value of instance of Tag class. 148 149 -------------------------- 150 -- CMOF_Association_Get -- 151 -------------------------- 152 153 function CMOF_Association_Get return League.Holders.Holder is 154 begin 155 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Attribute_A_Classifier then 156 -- Classifier::attribute : Property 157 158 return 159 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 160 (AMF.CMOF.Associations.CMOF_Association_Access 161 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute); 162 163 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Element_Import_Element_Import_Importing_Namespace then 164 -- Namespace::elementImport : ElementImport 165 166 return 167 AMF.CMOF.Element_Imports.Collections.CMOF_Element_Import_Collections.Internals.To_Holder 168 (AMF.CMOF.Associations.CMOF_Association_Access 169 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import); 170 171 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Association_End_Type_A_Association then 172 -- Association::endType : Type 173 174 return 175 AMF.CMOF.Types.Collections.CMOF_Type_Collections.Internals.To_Holder 176 (AMF.CMOF.Associations.CMOF_Association_Access 177 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Type); 178 179 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Feature_Feature_Featuring_Classifier then 180 -- Classifier::feature : Feature 181 182 return 183 AMF.CMOF.Features.Collections.CMOF_Feature_Collections.Internals.To_Holder 184 (AMF.CMOF.Associations.CMOF_Association_Access 185 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature); 186 187 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_General_A_Classifier then 188 -- Classifier::general : Classifier 189 190 return 191 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 192 (AMF.CMOF.Associations.CMOF_Association_Access 193 (AMF.Internals.Helpers.To_Element (Self)).Get_General); 194 195 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Imported_Member_A_Namespace then 196 -- Namespace::importedMember : PackageableElement 197 198 return 199 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 200 (AMF.CMOF.Associations.CMOF_Association_Access 201 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member); 202 203 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Inherited_Member_A_Classifier then 204 -- Classifier::inheritedMember : NamedElement 205 206 return 207 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 208 (AMF.CMOF.Associations.CMOF_Association_Access 209 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member); 210 211 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Association_Is_Derived then 212 -- Association::isDerived : Boolean 213 214 return 215 League.Holders.Booleans.To_Holder 216 (AMF.CMOF.Associations.CMOF_Association_Access 217 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived); 218 219 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 220 -- Classifier::isFinalSpecialization : Boolean 221 222 return 223 League.Holders.Booleans.To_Holder 224 (AMF.CMOF.Associations.CMOF_Association_Access 225 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization); 226 227 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace then 228 -- Namespace::member : NamedElement 229 230 return 231 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 232 (AMF.CMOF.Associations.CMOF_Association_Access 233 (AMF.Internals.Helpers.To_Element (Self)).Get_Member); 234 235 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Association_Member_End_Property_Association then 236 -- Association::memberEnd : Property 237 238 return 239 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 240 (AMF.CMOF.Associations.CMOF_Association_Access 241 (AMF.Internals.Helpers.To_Element (Self)).Get_Member_End); 242 243 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 244 -- NamedElement::name : String 245 246 return 247 AMF.Holders.To_Holder 248 (AMF.CMOF.Associations.CMOF_Association_Access 249 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 250 251 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 252 -- NamedElement::namespace : Namespace 253 254 return 255 AMF.Internals.Holders.CMOF_Holders.To_Holder 256 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 257 (AMF.CMOF.Associations.CMOF_Association_Access 258 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 259 260 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Association_Navigable_Owned_End_A_Association then 261 -- Association::navigableOwnedEnd : Property 262 263 return 264 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 265 (AMF.CMOF.Associations.CMOF_Association_Access 266 (AMF.Internals.Helpers.To_Element (Self)).Get_Navigable_Owned_End); 267 268 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 269 -- Element::ownedComment : Comment 270 271 return 272 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 273 (AMF.CMOF.Associations.CMOF_Association_Access 274 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 275 276 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 277 -- Element::ownedElement : Element 278 279 return 280 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 281 (AMF.CMOF.Associations.CMOF_Association_Access 282 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 283 284 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Association_Owned_End_Property_Owning_Association then 285 -- Association::ownedEnd : Property 286 287 return 288 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 289 (AMF.CMOF.Associations.CMOF_Association_Access 290 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_End); 291 292 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace then 293 -- Namespace::ownedMember : NamedElement 294 295 return 296 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 297 (AMF.CMOF.Associations.CMOF_Association_Access 298 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member); 299 300 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Rule_Constraint_Context then 301 -- Namespace::ownedRule : Constraint 302 303 return 304 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 305 (AMF.CMOF.Associations.CMOF_Association_Access 306 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule); 307 308 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 309 -- Element::owner : Element 310 311 return 312 AMF.Internals.Holders.CMOF_Holders.To_Holder 313 (AMF.CMOF.Elements.CMOF_Element_Access' 314 (AMF.CMOF.Associations.CMOF_Association_Access 315 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 316 317 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 318 -- Type::package : Package 319 320 return 321 AMF.Internals.Holders.CMOF_Holders.To_Holder 322 (AMF.CMOF.Packages.CMOF_Package_Access' 323 (AMF.CMOF.Associations.CMOF_Association_Access 324 (AMF.Internals.Helpers.To_Element (Self)).Get_Package)); 325 326 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Package_Import_Package_Import_Importing_Namespace then 327 -- Namespace::packageImport : PackageImport 328 329 return 330 AMF.CMOF.Package_Imports.Collections.CMOF_Package_Import_Collections.Internals.To_Holder 331 (AMF.CMOF.Associations.CMOF_Association_Access 332 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import); 333 334 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 335 -- NamedElement::qualifiedName : String 336 337 return 338 AMF.Holders.To_Holder 339 (AMF.CMOF.Associations.CMOF_Association_Access 340 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 341 342 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Relationship_Related_Element_A_Relationship then 343 -- Relationship::relatedElement : Element 344 345 return 346 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 347 (AMF.CMOF.Associations.CMOF_Association_Access 348 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element); 349 350 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 351 -- NamedElement::visibility : VisibilityKind 352 353 return 354 AMF.CMOF.Holders.To_Holder 355 (AMF.CMOF.Associations.CMOF_Association_Access 356 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 357 358 else 359 raise Program_Error; 360 end if; 361 end CMOF_Association_Get; 362 363 -------------------- 364 -- CMOF_Class_Get -- 365 -------------------- 366 367 function CMOF_Class_Get return League.Holders.Holder is 368 begin 369 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Attribute_A_Classifier then 370 -- Classifier::attribute : Property 371 372 return 373 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 374 (AMF.CMOF.Classes.CMOF_Class_Access 375 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute); 376 377 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Element_Import_Element_Import_Importing_Namespace then 378 -- Namespace::elementImport : ElementImport 379 380 return 381 AMF.CMOF.Element_Imports.Collections.CMOF_Element_Import_Collections.Internals.To_Holder 382 (AMF.CMOF.Classes.CMOF_Class_Access 383 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import); 384 385 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Feature_Feature_Featuring_Classifier then 386 -- Classifier::feature : Feature 387 388 return 389 AMF.CMOF.Features.Collections.CMOF_Feature_Collections.Internals.To_Holder 390 (AMF.CMOF.Classes.CMOF_Class_Access 391 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature); 392 393 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_General_A_Classifier then 394 -- Classifier::general : Classifier 395 396 return 397 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 398 (AMF.CMOF.Classes.CMOF_Class_Access 399 (AMF.Internals.Helpers.To_Element (Self)).Get_General); 400 401 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Imported_Member_A_Namespace then 402 -- Namespace::importedMember : PackageableElement 403 404 return 405 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 406 (AMF.CMOF.Classes.CMOF_Class_Access 407 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member); 408 409 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Inherited_Member_A_Classifier then 410 -- Classifier::inheritedMember : NamedElement 411 412 return 413 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 414 (AMF.CMOF.Classes.CMOF_Class_Access 415 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member); 416 417 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Class_Is_Abstract then 418 -- Class::isAbstract : Boolean 419 420 return 421 League.Holders.Booleans.To_Holder 422 (AMF.CMOF.Classes.CMOF_Class_Access 423 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract); 424 425 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 426 -- Classifier::isFinalSpecialization : Boolean 427 428 return 429 League.Holders.Booleans.To_Holder 430 (AMF.CMOF.Classes.CMOF_Class_Access 431 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization); 432 433 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace then 434 -- Namespace::member : NamedElement 435 436 return 437 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 438 (AMF.CMOF.Classes.CMOF_Class_Access 439 (AMF.Internals.Helpers.To_Element (Self)).Get_Member); 440 441 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 442 -- NamedElement::name : String 443 444 return 445 AMF.Holders.To_Holder 446 (AMF.CMOF.Classes.CMOF_Class_Access 447 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 448 449 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 450 -- NamedElement::namespace : Namespace 451 452 return 453 AMF.Internals.Holders.CMOF_Holders.To_Holder 454 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 455 (AMF.CMOF.Classes.CMOF_Class_Access 456 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 457 458 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Class_Owned_Attribute_Property_Class then 459 -- Class::ownedAttribute : Property 460 461 return 462 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 463 (AMF.CMOF.Classes.CMOF_Class_Access 464 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute); 465 466 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 467 -- Element::ownedComment : Comment 468 469 return 470 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 471 (AMF.CMOF.Classes.CMOF_Class_Access 472 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 473 474 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 475 -- Element::ownedElement : Element 476 477 return 478 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 479 (AMF.CMOF.Classes.CMOF_Class_Access 480 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 481 482 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace then 483 -- Namespace::ownedMember : NamedElement 484 485 return 486 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 487 (AMF.CMOF.Classes.CMOF_Class_Access 488 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member); 489 490 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Class_Owned_Operation_Operation_Class then 491 -- Class::ownedOperation : Operation 492 493 return 494 AMF.CMOF.Operations.Collections.CMOF_Operation_Collections.Internals.To_Holder 495 (AMF.CMOF.Classes.CMOF_Class_Access 496 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation); 497 498 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Rule_Constraint_Context then 499 -- Namespace::ownedRule : Constraint 500 501 return 502 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 503 (AMF.CMOF.Classes.CMOF_Class_Access 504 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule); 505 506 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 507 -- Element::owner : Element 508 509 return 510 AMF.Internals.Holders.CMOF_Holders.To_Holder 511 (AMF.CMOF.Elements.CMOF_Element_Access' 512 (AMF.CMOF.Classes.CMOF_Class_Access 513 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 514 515 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 516 -- Type::package : Package 517 518 return 519 AMF.Internals.Holders.CMOF_Holders.To_Holder 520 (AMF.CMOF.Packages.CMOF_Package_Access' 521 (AMF.CMOF.Classes.CMOF_Class_Access 522 (AMF.Internals.Helpers.To_Element (Self)).Get_Package)); 523 524 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Package_Import_Package_Import_Importing_Namespace then 525 -- Namespace::packageImport : PackageImport 526 527 return 528 AMF.CMOF.Package_Imports.Collections.CMOF_Package_Import_Collections.Internals.To_Holder 529 (AMF.CMOF.Classes.CMOF_Class_Access 530 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import); 531 532 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 533 -- NamedElement::qualifiedName : String 534 535 return 536 AMF.Holders.To_Holder 537 (AMF.CMOF.Classes.CMOF_Class_Access 538 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 539 540 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Class_Super_Class_A_Class then 541 -- Class::superClass : Class 542 543 return 544 AMF.CMOF.Classes.Collections.CMOF_Class_Collections.Internals.To_Holder 545 (AMF.CMOF.Classes.CMOF_Class_Access 546 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class); 547 548 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 549 -- NamedElement::visibility : VisibilityKind 550 551 return 552 AMF.CMOF.Holders.To_Holder 553 (AMF.CMOF.Classes.CMOF_Class_Access 554 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 555 556 else 557 raise Program_Error; 558 end if; 559 end CMOF_Class_Get; 560 561 ---------------------- 562 -- CMOF_Comment_Get -- 563 ---------------------- 564 565 function CMOF_Comment_Get return League.Holders.Holder is 566 begin 567 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Annotated_Element_A_Comment then 568 -- Comment::annotatedElement : Element 569 570 return 571 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 572 (AMF.CMOF.Comments.CMOF_Comment_Access 573 (AMF.Internals.Helpers.To_Element (Self)).Get_Annotated_Element); 574 575 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Body then 576 -- Comment::body : String 577 578 return 579 AMF.Holders.To_Holder 580 (AMF.CMOF.Comments.CMOF_Comment_Access 581 (AMF.Internals.Helpers.To_Element (Self)).Get_Body); 582 583 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 584 -- Element::ownedComment : Comment 585 586 return 587 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 588 (AMF.CMOF.Comments.CMOF_Comment_Access 589 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 590 591 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 592 -- Element::ownedElement : Element 593 594 return 595 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 596 (AMF.CMOF.Comments.CMOF_Comment_Access 597 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 598 599 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 600 -- Element::owner : Element 601 602 return 603 AMF.Internals.Holders.CMOF_Holders.To_Holder 604 (AMF.CMOF.Elements.CMOF_Element_Access' 605 (AMF.CMOF.Comments.CMOF_Comment_Access 606 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 607 608 else 609 raise Program_Error; 610 end if; 611 end CMOF_Comment_Get; 612 613 ------------------------- 614 -- CMOF_Constraint_Get -- 615 ------------------------- 616 617 function CMOF_Constraint_Get return League.Holders.Holder is 618 begin 619 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Constraint_Constrained_Element_A_Constraint then 620 -- Constraint::constrainedElement : Element 621 622 return 623 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 624 (AMF.CMOF.Constraints.CMOF_Constraint_Access 625 (AMF.Internals.Helpers.To_Element (Self)).Get_Constrained_Element); 626 627 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Constraint_Context_Namespace_Owned_Rule then 628 -- Constraint::context : Namespace 629 630 return 631 AMF.Internals.Holders.CMOF_Holders.To_Holder 632 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 633 (AMF.CMOF.Constraints.CMOF_Constraint_Access 634 (AMF.Internals.Helpers.To_Element (Self)).Get_Context)); 635 636 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 637 -- NamedElement::name : String 638 639 return 640 AMF.Holders.To_Holder 641 (AMF.CMOF.Constraints.CMOF_Constraint_Access 642 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 643 644 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 645 -- NamedElement::namespace : Namespace 646 647 return 648 AMF.Internals.Holders.CMOF_Holders.To_Holder 649 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 650 (AMF.CMOF.Constraints.CMOF_Constraint_Access 651 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 652 653 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 654 -- Element::ownedComment : Comment 655 656 return 657 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 658 (AMF.CMOF.Constraints.CMOF_Constraint_Access 659 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 660 661 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 662 -- Element::ownedElement : Element 663 664 return 665 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 666 (AMF.CMOF.Constraints.CMOF_Constraint_Access 667 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 668 669 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 670 -- Element::owner : Element 671 672 return 673 AMF.Internals.Holders.CMOF_Holders.To_Holder 674 (AMF.CMOF.Elements.CMOF_Element_Access' 675 (AMF.CMOF.Constraints.CMOF_Constraint_Access 676 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 677 678 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 679 -- NamedElement::qualifiedName : String 680 681 return 682 AMF.Holders.To_Holder 683 (AMF.CMOF.Constraints.CMOF_Constraint_Access 684 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 685 686 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Constraint_Specification_A_Owning_Constraint then 687 -- Constraint::specification : ValueSpecification 688 689 return 690 AMF.Internals.Holders.CMOF_Holders.To_Holder 691 (AMF.CMOF.Value_Specifications.CMOF_Value_Specification_Access' 692 (AMF.CMOF.Constraints.CMOF_Constraint_Access 693 (AMF.Internals.Helpers.To_Element (Self)).Get_Specification)); 694 695 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 696 -- NamedElement::visibility : VisibilityKind 697 698 return 699 AMF.CMOF.Holders.To_Holder 700 (AMF.CMOF.Constraints.CMOF_Constraint_Access 701 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 702 703 else 704 raise Program_Error; 705 end if; 706 end CMOF_Constraint_Get; 707 708 ------------------------ 709 -- CMOF_Data_Type_Get -- 710 ------------------------ 711 712 function CMOF_Data_Type_Get return League.Holders.Holder is 713 begin 714 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Attribute_A_Classifier then 715 -- Classifier::attribute : Property 716 717 return 718 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 719 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 720 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute); 721 722 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Element_Import_Element_Import_Importing_Namespace then 723 -- Namespace::elementImport : ElementImport 724 725 return 726 AMF.CMOF.Element_Imports.Collections.CMOF_Element_Import_Collections.Internals.To_Holder 727 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 728 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import); 729 730 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Feature_Feature_Featuring_Classifier then 731 -- Classifier::feature : Feature 732 733 return 734 AMF.CMOF.Features.Collections.CMOF_Feature_Collections.Internals.To_Holder 735 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 736 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature); 737 738 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_General_A_Classifier then 739 -- Classifier::general : Classifier 740 741 return 742 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 743 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 744 (AMF.Internals.Helpers.To_Element (Self)).Get_General); 745 746 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Imported_Member_A_Namespace then 747 -- Namespace::importedMember : PackageableElement 748 749 return 750 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 751 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 752 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member); 753 754 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Inherited_Member_A_Classifier then 755 -- Classifier::inheritedMember : NamedElement 756 757 return 758 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 759 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 760 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member); 761 762 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 763 -- Classifier::isFinalSpecialization : Boolean 764 765 return 766 League.Holders.Booleans.To_Holder 767 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 768 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization); 769 770 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace then 771 -- Namespace::member : NamedElement 772 773 return 774 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 775 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 776 (AMF.Internals.Helpers.To_Element (Self)).Get_Member); 777 778 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 779 -- NamedElement::name : String 780 781 return 782 AMF.Holders.To_Holder 783 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 784 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 785 786 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 787 -- NamedElement::namespace : Namespace 788 789 return 790 AMF.Internals.Holders.CMOF_Holders.To_Holder 791 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 792 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 793 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 794 795 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Data_Type_Owned_Attribute_Property_Datatype then 796 -- DataType::ownedAttribute : Property 797 798 return 799 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 800 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 801 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute); 802 803 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 804 -- Element::ownedComment : Comment 805 806 return 807 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 808 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 809 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 810 811 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 812 -- Element::ownedElement : Element 813 814 return 815 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 816 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 817 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 818 819 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace then 820 -- Namespace::ownedMember : NamedElement 821 822 return 823 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 824 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 825 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member); 826 827 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Data_Type_Owned_Operation_Operation_Datatype then 828 -- DataType::ownedOperation : Operation 829 830 return 831 AMF.CMOF.Operations.Collections.CMOF_Operation_Collections.Internals.To_Holder 832 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 833 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation); 834 835 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Rule_Constraint_Context then 836 -- Namespace::ownedRule : Constraint 837 838 return 839 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 840 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 841 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule); 842 843 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 844 -- Element::owner : Element 845 846 return 847 AMF.Internals.Holders.CMOF_Holders.To_Holder 848 (AMF.CMOF.Elements.CMOF_Element_Access' 849 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 850 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 851 852 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 853 -- Type::package : Package 854 855 return 856 AMF.Internals.Holders.CMOF_Holders.To_Holder 857 (AMF.CMOF.Packages.CMOF_Package_Access' 858 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 859 (AMF.Internals.Helpers.To_Element (Self)).Get_Package)); 860 861 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Package_Import_Package_Import_Importing_Namespace then 862 -- Namespace::packageImport : PackageImport 863 864 return 865 AMF.CMOF.Package_Imports.Collections.CMOF_Package_Import_Collections.Internals.To_Holder 866 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 867 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import); 868 869 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 870 -- NamedElement::qualifiedName : String 871 872 return 873 AMF.Holders.To_Holder 874 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 875 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 876 877 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 878 -- NamedElement::visibility : VisibilityKind 879 880 return 881 AMF.CMOF.Holders.To_Holder 882 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access 883 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 884 885 else 886 raise Program_Error; 887 end if; 888 end CMOF_Data_Type_Get; 889 890 ----------------------------- 891 -- CMOF_Element_Import_Get -- 892 ----------------------------- 893 894 function CMOF_Element_Import_Get return League.Holders.Holder is 895 begin 896 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Alias then 897 -- ElementImport::alias : String 898 899 return 900 AMF.Holders.To_Holder 901 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 902 (AMF.Internals.Helpers.To_Element (Self)).Get_Alias); 903 904 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Imported_Element_A_Element_Import then 905 -- ElementImport::importedElement : PackageableElement 906 907 return 908 AMF.Internals.Holders.CMOF_Holders.To_Holder 909 (AMF.CMOF.Packageable_Elements.CMOF_Packageable_Element_Access' 910 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 911 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Element)); 912 913 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Importing_Namespace_Namespace_Element_Import then 914 -- ElementImport::importingNamespace : Namespace 915 916 return 917 AMF.Internals.Holders.CMOF_Holders.To_Holder 918 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 919 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 920 (AMF.Internals.Helpers.To_Element (Self)).Get_Importing_Namespace)); 921 922 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 923 -- Element::ownedComment : Comment 924 925 return 926 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 927 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 928 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 929 930 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 931 -- Element::ownedElement : Element 932 933 return 934 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 935 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 936 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 937 938 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 939 -- Element::owner : Element 940 941 return 942 AMF.Internals.Holders.CMOF_Holders.To_Holder 943 (AMF.CMOF.Elements.CMOF_Element_Access' 944 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 945 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 946 947 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Relationship_Related_Element_A_Relationship then 948 -- Relationship::relatedElement : Element 949 950 return 951 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 952 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 953 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element); 954 955 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Directed_Relationship_Source_A_Directed_Relationship then 956 -- DirectedRelationship::source : Element 957 958 return 959 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 960 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 961 (AMF.Internals.Helpers.To_Element (Self)).Get_Source); 962 963 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Directed_Relationship_Target_A_Directed_Relationship then 964 -- DirectedRelationship::target : Element 965 966 return 967 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 968 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 969 (AMF.Internals.Helpers.To_Element (Self)).Get_Target); 970 971 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Visibility then 972 -- ElementImport::visibility : VisibilityKind 973 974 return 975 AMF.CMOF.Holders.Visibility_Kinds.To_Holder 976 (AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 977 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 978 979 else 980 raise Program_Error; 981 end if; 982 end CMOF_Element_Import_Get; 983 984 -------------------------- 985 -- CMOF_Enumeration_Get -- 986 -------------------------- 987 988 function CMOF_Enumeration_Get return League.Holders.Holder is 989 begin 990 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Attribute_A_Classifier then 991 -- Classifier::attribute : Property 992 993 return 994 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 995 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 996 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute); 997 998 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Element_Import_Element_Import_Importing_Namespace then 999 -- Namespace::elementImport : ElementImport 1000 1001 return 1002 AMF.CMOF.Element_Imports.Collections.CMOF_Element_Import_Collections.Internals.To_Holder 1003 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1004 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import); 1005 1006 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Feature_Feature_Featuring_Classifier then 1007 -- Classifier::feature : Feature 1008 1009 return 1010 AMF.CMOF.Features.Collections.CMOF_Feature_Collections.Internals.To_Holder 1011 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1012 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature); 1013 1014 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_General_A_Classifier then 1015 -- Classifier::general : Classifier 1016 1017 return 1018 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 1019 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1020 (AMF.Internals.Helpers.To_Element (Self)).Get_General); 1021 1022 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Imported_Member_A_Namespace then 1023 -- Namespace::importedMember : PackageableElement 1024 1025 return 1026 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 1027 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1028 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member); 1029 1030 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Inherited_Member_A_Classifier then 1031 -- Classifier::inheritedMember : NamedElement 1032 1033 return 1034 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 1035 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1036 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member); 1037 1038 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 1039 -- Classifier::isFinalSpecialization : Boolean 1040 1041 return 1042 League.Holders.Booleans.To_Holder 1043 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1044 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization); 1045 1046 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace then 1047 -- Namespace::member : NamedElement 1048 1049 return 1050 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 1051 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1052 (AMF.Internals.Helpers.To_Element (Self)).Get_Member); 1053 1054 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 1055 -- NamedElement::name : String 1056 1057 return 1058 AMF.Holders.To_Holder 1059 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1060 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 1061 1062 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 1063 -- NamedElement::namespace : Namespace 1064 1065 return 1066 AMF.Internals.Holders.CMOF_Holders.To_Holder 1067 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 1068 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1069 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 1070 1071 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Data_Type_Owned_Attribute_Property_Datatype then 1072 -- DataType::ownedAttribute : Property 1073 1074 return 1075 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 1076 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1077 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute); 1078 1079 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1080 -- Element::ownedComment : Comment 1081 1082 return 1083 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1084 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1085 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1086 1087 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1088 -- Element::ownedElement : Element 1089 1090 return 1091 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1092 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1093 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1094 1095 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Enumeration_Owned_Literal_Enumeration_Literal_Enumeration then 1096 -- Enumeration::ownedLiteral : EnumerationLiteral 1097 1098 return 1099 AMF.CMOF.Enumeration_Literals.Collections.CMOF_Enumeration_Literal_Collections.Internals.To_Holder 1100 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1101 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Literal); 1102 1103 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace then 1104 -- Namespace::ownedMember : NamedElement 1105 1106 return 1107 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 1108 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1109 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member); 1110 1111 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Data_Type_Owned_Operation_Operation_Datatype then 1112 -- DataType::ownedOperation : Operation 1113 1114 return 1115 AMF.CMOF.Operations.Collections.CMOF_Operation_Collections.Internals.To_Holder 1116 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1117 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation); 1118 1119 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Rule_Constraint_Context then 1120 -- Namespace::ownedRule : Constraint 1121 1122 return 1123 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 1124 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1125 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule); 1126 1127 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1128 -- Element::owner : Element 1129 1130 return 1131 AMF.Internals.Holders.CMOF_Holders.To_Holder 1132 (AMF.CMOF.Elements.CMOF_Element_Access' 1133 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1134 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 1135 1136 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 1137 -- Type::package : Package 1138 1139 return 1140 AMF.Internals.Holders.CMOF_Holders.To_Holder 1141 (AMF.CMOF.Packages.CMOF_Package_Access' 1142 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1143 (AMF.Internals.Helpers.To_Element (Self)).Get_Package)); 1144 1145 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Package_Import_Package_Import_Importing_Namespace then 1146 -- Namespace::packageImport : PackageImport 1147 1148 return 1149 AMF.CMOF.Package_Imports.Collections.CMOF_Package_Import_Collections.Internals.To_Holder 1150 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1151 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import); 1152 1153 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 1154 -- NamedElement::qualifiedName : String 1155 1156 return 1157 AMF.Holders.To_Holder 1158 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1159 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 1160 1161 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 1162 -- NamedElement::visibility : VisibilityKind 1163 1164 return 1165 AMF.CMOF.Holders.To_Holder 1166 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access 1167 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 1168 1169 else 1170 raise Program_Error; 1171 end if; 1172 end CMOF_Enumeration_Get; 1173 1174 ---------------------------------- 1175 -- CMOF_Enumeration_Literal_Get -- 1176 ---------------------------------- 1177 1178 function CMOF_Enumeration_Literal_Get return League.Holders.Holder is 1179 begin 1180 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Enumeration_Literal_Enumeration_Enumeration_Owned_Literal then 1181 -- EnumerationLiteral::enumeration : Enumeration 1182 1183 return 1184 AMF.Internals.Holders.CMOF_Holders.To_Holder 1185 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access' 1186 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1187 (AMF.Internals.Helpers.To_Element (Self)).Get_Enumeration)); 1188 1189 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 1190 -- NamedElement::name : String 1191 1192 return 1193 AMF.Holders.To_Holder 1194 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1195 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 1196 1197 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 1198 -- NamedElement::namespace : Namespace 1199 1200 return 1201 AMF.Internals.Holders.CMOF_Holders.To_Holder 1202 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 1203 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1204 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 1205 1206 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1207 -- Element::ownedComment : Comment 1208 1209 return 1210 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1211 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1212 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1213 1214 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1215 -- Element::ownedElement : Element 1216 1217 return 1218 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1219 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1220 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1221 1222 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1223 -- Element::owner : Element 1224 1225 return 1226 AMF.Internals.Holders.CMOF_Holders.To_Holder 1227 (AMF.CMOF.Elements.CMOF_Element_Access' 1228 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1229 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 1230 1231 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 1232 -- NamedElement::qualifiedName : String 1233 1234 return 1235 AMF.Holders.To_Holder 1236 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1237 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 1238 1239 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 1240 -- NamedElement::visibility : VisibilityKind 1241 1242 return 1243 AMF.CMOF.Holders.To_Holder 1244 (AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 1245 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 1246 1247 else 1248 raise Program_Error; 1249 end if; 1250 end CMOF_Enumeration_Literal_Get; 1251 1252 ------------------------- 1253 -- CMOF_Expression_Get -- 1254 ------------------------- 1255 1256 function CMOF_Expression_Get return League.Holders.Holder is 1257 begin 1258 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 1259 -- NamedElement::name : String 1260 1261 return 1262 AMF.Holders.To_Holder 1263 (AMF.CMOF.Expressions.CMOF_Expression_Access 1264 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 1265 1266 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 1267 -- NamedElement::namespace : Namespace 1268 1269 return 1270 AMF.Internals.Holders.CMOF_Holders.To_Holder 1271 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 1272 (AMF.CMOF.Expressions.CMOF_Expression_Access 1273 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 1274 1275 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Expression_Operand_A_Expression then 1276 -- Expression::operand : ValueSpecification 1277 1278 return 1279 AMF.CMOF.Value_Specifications.Collections.CMOF_Value_Specification_Collections.Internals.To_Holder 1280 (AMF.CMOF.Expressions.CMOF_Expression_Access 1281 (AMF.Internals.Helpers.To_Element (Self)).Get_Operand); 1282 1283 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1284 -- Element::ownedComment : Comment 1285 1286 return 1287 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1288 (AMF.CMOF.Expressions.CMOF_Expression_Access 1289 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1290 1291 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1292 -- Element::ownedElement : Element 1293 1294 return 1295 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1296 (AMF.CMOF.Expressions.CMOF_Expression_Access 1297 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1298 1299 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1300 -- Element::owner : Element 1301 1302 return 1303 AMF.Internals.Holders.CMOF_Holders.To_Holder 1304 (AMF.CMOF.Elements.CMOF_Element_Access' 1305 (AMF.CMOF.Expressions.CMOF_Expression_Access 1306 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 1307 1308 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 1309 -- NamedElement::qualifiedName : String 1310 1311 return 1312 AMF.Holders.To_Holder 1313 (AMF.CMOF.Expressions.CMOF_Expression_Access 1314 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 1315 1316 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 1317 -- TypedElement::type : Type 1318 1319 return 1320 AMF.Internals.Holders.CMOF_Holders.To_Holder 1321 (AMF.CMOF.Types.CMOF_Type_Access' 1322 (AMF.CMOF.Expressions.CMOF_Expression_Access 1323 (AMF.Internals.Helpers.To_Element (Self)).Get_Type)); 1324 1325 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 1326 -- NamedElement::visibility : VisibilityKind 1327 1328 return 1329 AMF.CMOF.Holders.To_Holder 1330 (AMF.CMOF.Expressions.CMOF_Expression_Access 1331 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 1332 1333 else 1334 raise Program_Error; 1335 end if; 1336 end CMOF_Expression_Get; 1337 1338 -------------------------------- 1339 -- CMOF_Opaque_Expression_Get -- 1340 -------------------------------- 1341 1342 function CMOF_Opaque_Expression_Get return League.Holders.Holder is 1343 begin 1344 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Opaque_Expression_Body then 1345 -- OpaqueExpression::body : String 1346 1347 return 1348 AMF.String_Collections.Internals.To_Holder 1349 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1350 (AMF.Internals.Helpers.To_Element (Self)).Get_Body); 1351 1352 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Opaque_Expression_Language then 1353 -- OpaqueExpression::language : String 1354 1355 return 1356 AMF.String_Collections.Internals.To_Holder 1357 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1358 (AMF.Internals.Helpers.To_Element (Self)).Get_Language); 1359 1360 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 1361 -- NamedElement::name : String 1362 1363 return 1364 AMF.Holders.To_Holder 1365 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1366 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 1367 1368 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 1369 -- NamedElement::namespace : Namespace 1370 1371 return 1372 AMF.Internals.Holders.CMOF_Holders.To_Holder 1373 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 1374 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1375 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 1376 1377 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1378 -- Element::ownedComment : Comment 1379 1380 return 1381 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1382 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1383 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1384 1385 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1386 -- Element::ownedElement : Element 1387 1388 return 1389 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1390 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1391 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1392 1393 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1394 -- Element::owner : Element 1395 1396 return 1397 AMF.Internals.Holders.CMOF_Holders.To_Holder 1398 (AMF.CMOF.Elements.CMOF_Element_Access' 1399 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1400 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 1401 1402 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 1403 -- NamedElement::qualifiedName : String 1404 1405 return 1406 AMF.Holders.To_Holder 1407 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1408 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 1409 1410 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 1411 -- TypedElement::type : Type 1412 1413 return 1414 AMF.Internals.Holders.CMOF_Holders.To_Holder 1415 (AMF.CMOF.Types.CMOF_Type_Access' 1416 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1417 (AMF.Internals.Helpers.To_Element (Self)).Get_Type)); 1418 1419 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 1420 -- NamedElement::visibility : VisibilityKind 1421 1422 return 1423 AMF.CMOF.Holders.To_Holder 1424 (AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 1425 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 1426 1427 else 1428 raise Program_Error; 1429 end if; 1430 end CMOF_Opaque_Expression_Get; 1431 1432 ------------------------ 1433 -- CMOF_Operation_Get -- 1434 ------------------------ 1435 1436 function CMOF_Operation_Get return League.Holders.Holder is 1437 begin 1438 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Body_Condition_A_Body_Context then 1439 -- Operation::bodyCondition : Constraint 1440 1441 return 1442 AMF.Internals.Holders.CMOF_Holders.To_Holder 1443 (AMF.CMOF.Constraints.CMOF_Constraint_Access' 1444 (AMF.CMOF.Operations.CMOF_Operation_Access 1445 (AMF.Internals.Helpers.To_Element (Self)).Get_Body_Condition)); 1446 1447 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Class_Class_Owned_Operation then 1448 -- Operation::class : Class 1449 1450 return 1451 AMF.Internals.Holders.CMOF_Holders.To_Holder 1452 (AMF.CMOF.Classes.CMOF_Class_Access' 1453 (AMF.CMOF.Operations.CMOF_Operation_Access 1454 (AMF.Internals.Helpers.To_Element (Self)).Get_Class)); 1455 1456 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Datatype_Data_Type_Owned_Operation then 1457 -- Operation::datatype : DataType 1458 1459 return 1460 AMF.Internals.Holders.CMOF_Holders.To_Holder 1461 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access' 1462 (AMF.CMOF.Operations.CMOF_Operation_Access 1463 (AMF.Internals.Helpers.To_Element (Self)).Get_Datatype)); 1464 1465 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Element_Import_Element_Import_Importing_Namespace then 1466 -- Namespace::elementImport : ElementImport 1467 1468 return 1469 AMF.CMOF.Element_Imports.Collections.CMOF_Element_Import_Collections.Internals.To_Holder 1470 (AMF.CMOF.Operations.CMOF_Operation_Access 1471 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import); 1472 1473 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Feature_Featuring_Classifier_Classifier_Feature then 1474 -- Feature::featuringClassifier : Classifier 1475 1476 return 1477 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 1478 (AMF.CMOF.Operations.CMOF_Operation_Access 1479 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier); 1480 1481 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Imported_Member_A_Namespace then 1482 -- Namespace::importedMember : PackageableElement 1483 1484 return 1485 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 1486 (AMF.CMOF.Operations.CMOF_Operation_Access 1487 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member); 1488 1489 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Is_Leaf then 1490 -- RedefinableElement::isLeaf : Boolean 1491 1492 return 1493 League.Holders.Booleans.To_Holder 1494 (AMF.CMOF.Operations.CMOF_Operation_Access 1495 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf); 1496 1497 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Is_Ordered then 1498 -- Operation::isOrdered : Boolean 1499 1500 return 1501 League.Holders.Booleans.To_Holder 1502 (AMF.CMOF.Operations.CMOF_Operation_Access 1503 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered); 1504 1505 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Is_Query then 1506 -- Operation::isQuery : Boolean 1507 1508 return 1509 League.Holders.Booleans.To_Holder 1510 (AMF.CMOF.Operations.CMOF_Operation_Access 1511 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Query); 1512 1513 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Is_Unique then 1514 -- Operation::isUnique : Boolean 1515 1516 return 1517 League.Holders.Booleans.To_Holder 1518 (AMF.CMOF.Operations.CMOF_Operation_Access 1519 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique); 1520 1521 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Lower then 1522 -- Operation::lower : Integer 1523 1524 return 1525 AMF.Holders.To_Holder 1526 (AMF.CMOF.Operations.CMOF_Operation_Access 1527 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower); 1528 1529 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace then 1530 -- Namespace::member : NamedElement 1531 1532 return 1533 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 1534 (AMF.CMOF.Operations.CMOF_Operation_Access 1535 (AMF.Internals.Helpers.To_Element (Self)).Get_Member); 1536 1537 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 1538 -- NamedElement::name : String 1539 1540 return 1541 AMF.Holders.To_Holder 1542 (AMF.CMOF.Operations.CMOF_Operation_Access 1543 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 1544 1545 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 1546 -- NamedElement::namespace : Namespace 1547 1548 return 1549 AMF.Internals.Holders.CMOF_Holders.To_Holder 1550 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 1551 (AMF.CMOF.Operations.CMOF_Operation_Access 1552 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 1553 1554 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1555 -- Element::ownedComment : Comment 1556 1557 return 1558 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1559 (AMF.CMOF.Operations.CMOF_Operation_Access 1560 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1561 1562 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1563 -- Element::ownedElement : Element 1564 1565 return 1566 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1567 (AMF.CMOF.Operations.CMOF_Operation_Access 1568 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1569 1570 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace then 1571 -- Namespace::ownedMember : NamedElement 1572 1573 return 1574 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 1575 (AMF.CMOF.Operations.CMOF_Operation_Access 1576 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member); 1577 1578 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Owned_Parameter_Parameter_Operation then 1579 -- Operation::ownedParameter : Parameter 1580 1581 return 1582 AMF.CMOF.Parameters.Collections.CMOF_Parameter_Collections.Internals.To_Holder 1583 (AMF.CMOF.Operations.CMOF_Operation_Access 1584 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter); 1585 1586 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Behavioral_Feature_Owned_Parameter_A_Owner_Formal_Param then 1587 -- BehavioralFeature::ownedParameter : Parameter 1588 1589 return 1590 AMF.CMOF.Parameters.Collections.CMOF_Parameter_Collections.Internals.To_Holder 1591 (AMF.CMOF.Operations.CMOF_Operation_Access 1592 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter); 1593 1594 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Rule_Constraint_Context then 1595 -- Namespace::ownedRule : Constraint 1596 1597 return 1598 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 1599 (AMF.CMOF.Operations.CMOF_Operation_Access 1600 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule); 1601 1602 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1603 -- Element::owner : Element 1604 1605 return 1606 AMF.Internals.Holders.CMOF_Holders.To_Holder 1607 (AMF.CMOF.Elements.CMOF_Element_Access' 1608 (AMF.CMOF.Operations.CMOF_Operation_Access 1609 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 1610 1611 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Package_Import_Package_Import_Importing_Namespace then 1612 -- Namespace::packageImport : PackageImport 1613 1614 return 1615 AMF.CMOF.Package_Imports.Collections.CMOF_Package_Import_Collections.Internals.To_Holder 1616 (AMF.CMOF.Operations.CMOF_Operation_Access 1617 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import); 1618 1619 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Postcondition_A_Post_Context then 1620 -- Operation::postcondition : Constraint 1621 1622 return 1623 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 1624 (AMF.CMOF.Operations.CMOF_Operation_Access 1625 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition); 1626 1627 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Precondition_A_Pre_Context then 1628 -- Operation::precondition : Constraint 1629 1630 return 1631 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 1632 (AMF.CMOF.Operations.CMOF_Operation_Access 1633 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition); 1634 1635 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 1636 -- NamedElement::qualifiedName : String 1637 1638 return 1639 AMF.Holders.To_Holder 1640 (AMF.CMOF.Operations.CMOF_Operation_Access 1641 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 1642 1643 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Raised_Exception_A_Operation then 1644 -- Operation::raisedException : Type 1645 1646 return 1647 AMF.CMOF.Types.Collections.CMOF_Type_Collections.Internals.To_Holder 1648 (AMF.CMOF.Operations.CMOF_Operation_Access 1649 (AMF.Internals.Helpers.To_Element (Self)).Get_Raised_Exception); 1650 1651 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Behavioral_Feature_Raised_Exception_A_Behavioral_Feature then 1652 -- BehavioralFeature::raisedException : Type 1653 1654 return 1655 AMF.CMOF.Types.Collections.CMOF_Type_Collections.Internals.To_Holder 1656 (AMF.CMOF.Operations.CMOF_Operation_Access 1657 (AMF.Internals.Helpers.To_Element (Self)).Get_Raised_Exception); 1658 1659 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Redefined_Element_A_Redefinable_Element then 1660 -- RedefinableElement::redefinedElement : RedefinableElement 1661 1662 return 1663 AMF.CMOF.Redefinable_Elements.Collections.CMOF_Redefinable_Element_Collections.Internals.To_Holder 1664 (AMF.CMOF.Operations.CMOF_Operation_Access 1665 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element); 1666 1667 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Redefined_Operation_A_Operation then 1668 -- Operation::redefinedOperation : Operation 1669 1670 return 1671 AMF.CMOF.Operations.Collections.CMOF_Operation_Collections.Internals.To_Holder 1672 (AMF.CMOF.Operations.CMOF_Operation_Access 1673 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Operation); 1674 1675 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then 1676 -- RedefinableElement::redefinitionContext : Classifier 1677 1678 return 1679 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 1680 (AMF.CMOF.Operations.CMOF_Operation_Access 1681 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context); 1682 1683 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Type_A_Operation then 1684 -- Operation::type : Type 1685 1686 return 1687 AMF.Internals.Holders.CMOF_Holders.To_Holder 1688 (AMF.CMOF.Types.CMOF_Type_Access' 1689 (AMF.CMOF.Operations.CMOF_Operation_Access 1690 (AMF.Internals.Helpers.To_Element (Self)).Get_Type)); 1691 1692 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Upper then 1693 -- Operation::upper : UnlimitedNatural 1694 1695 return 1696 AMF.Holders.To_Holder 1697 (AMF.CMOF.Operations.CMOF_Operation_Access 1698 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper); 1699 1700 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 1701 -- NamedElement::visibility : VisibilityKind 1702 1703 return 1704 AMF.CMOF.Holders.To_Holder 1705 (AMF.CMOF.Operations.CMOF_Operation_Access 1706 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 1707 1708 else 1709 raise Program_Error; 1710 end if; 1711 end CMOF_Operation_Get; 1712 1713 ---------------------- 1714 -- CMOF_Package_Get -- 1715 ---------------------- 1716 1717 function CMOF_Package_Get return League.Holders.Holder is 1718 begin 1719 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Element_Import_Element_Import_Importing_Namespace then 1720 -- Namespace::elementImport : ElementImport 1721 1722 return 1723 AMF.CMOF.Element_Imports.Collections.CMOF_Element_Import_Collections.Internals.To_Holder 1724 (AMF.CMOF.Packages.CMOF_Package_Access 1725 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import); 1726 1727 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Imported_Member_A_Namespace then 1728 -- Namespace::importedMember : PackageableElement 1729 1730 return 1731 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 1732 (AMF.CMOF.Packages.CMOF_Package_Access 1733 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member); 1734 1735 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace then 1736 -- Namespace::member : NamedElement 1737 1738 return 1739 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 1740 (AMF.CMOF.Packages.CMOF_Package_Access 1741 (AMF.Internals.Helpers.To_Element (Self)).Get_Member); 1742 1743 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 1744 -- NamedElement::name : String 1745 1746 return 1747 AMF.Holders.To_Holder 1748 (AMF.CMOF.Packages.CMOF_Package_Access 1749 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 1750 1751 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 1752 -- NamedElement::namespace : Namespace 1753 1754 return 1755 AMF.Internals.Holders.CMOF_Holders.To_Holder 1756 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 1757 (AMF.CMOF.Packages.CMOF_Package_Access 1758 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 1759 1760 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Nested_Package_Package_Nesting_Package then 1761 -- Package::nestedPackage : Package 1762 1763 return 1764 AMF.CMOF.Packages.Collections.CMOF_Package_Collections.Internals.To_Holder 1765 (AMF.CMOF.Packages.CMOF_Package_Access 1766 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Package); 1767 1768 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Nesting_Package_Package_Nested_Package then 1769 -- Package::nestingPackage : Package 1770 1771 return 1772 AMF.Internals.Holders.CMOF_Holders.To_Holder 1773 (AMF.CMOF.Packages.CMOF_Package_Access' 1774 (AMF.CMOF.Packages.CMOF_Package_Access 1775 (AMF.Internals.Helpers.To_Element (Self)).Get_Nesting_Package)); 1776 1777 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1778 -- Element::ownedComment : Comment 1779 1780 return 1781 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1782 (AMF.CMOF.Packages.CMOF_Package_Access 1783 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1784 1785 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1786 -- Element::ownedElement : Element 1787 1788 return 1789 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1790 (AMF.CMOF.Packages.CMOF_Package_Access 1791 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1792 1793 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace then 1794 -- Namespace::ownedMember : NamedElement 1795 1796 return 1797 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 1798 (AMF.CMOF.Packages.CMOF_Package_Access 1799 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member); 1800 1801 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Rule_Constraint_Context then 1802 -- Namespace::ownedRule : Constraint 1803 1804 return 1805 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 1806 (AMF.CMOF.Packages.CMOF_Package_Access 1807 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule); 1808 1809 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Owned_Type_Type_Package then 1810 -- Package::ownedType : Type 1811 1812 return 1813 AMF.CMOF.Types.Collections.CMOF_Type_Collections.Internals.To_Holder 1814 (AMF.CMOF.Packages.CMOF_Package_Access 1815 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Type); 1816 1817 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1818 -- Element::owner : Element 1819 1820 return 1821 AMF.Internals.Holders.CMOF_Holders.To_Holder 1822 (AMF.CMOF.Elements.CMOF_Element_Access' 1823 (AMF.CMOF.Packages.CMOF_Package_Access 1824 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 1825 1826 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Package_Import_Package_Import_Importing_Namespace then 1827 -- Namespace::packageImport : PackageImport 1828 1829 return 1830 AMF.CMOF.Package_Imports.Collections.CMOF_Package_Import_Collections.Internals.To_Holder 1831 (AMF.CMOF.Packages.CMOF_Package_Access 1832 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import); 1833 1834 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Package_Merge_Package_Merge_Receiving_Package then 1835 -- Package::packageMerge : PackageMerge 1836 1837 return 1838 AMF.CMOF.Package_Merges.Collections.CMOF_Package_Merge_Collections.Internals.To_Holder 1839 (AMF.CMOF.Packages.CMOF_Package_Access 1840 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Merge); 1841 1842 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Packaged_Element_A_Owning_Package then 1843 -- Package::packagedElement : PackageableElement 1844 1845 return 1846 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 1847 (AMF.CMOF.Packages.CMOF_Package_Access 1848 (AMF.Internals.Helpers.To_Element (Self)).Get_Packaged_Element); 1849 1850 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 1851 -- NamedElement::qualifiedName : String 1852 1853 return 1854 AMF.Holders.To_Holder 1855 (AMF.CMOF.Packages.CMOF_Package_Access 1856 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 1857 1858 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Uri then 1859 -- Package::uri : String 1860 1861 return 1862 AMF.Holders.To_Holder 1863 (AMF.CMOF.Packages.CMOF_Package_Access 1864 (AMF.Internals.Helpers.To_Element (Self)).Get_Uri); 1865 1866 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 1867 -- NamedElement::visibility : VisibilityKind 1868 1869 return 1870 AMF.CMOF.Holders.To_Holder 1871 (AMF.CMOF.Packages.CMOF_Package_Access 1872 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 1873 1874 else 1875 raise Program_Error; 1876 end if; 1877 end CMOF_Package_Get; 1878 1879 ----------------------------- 1880 -- CMOF_Package_Import_Get -- 1881 ----------------------------- 1882 1883 function CMOF_Package_Import_Get return League.Holders.Holder is 1884 begin 1885 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Import_Imported_Package_A_Package_Import then 1886 -- PackageImport::importedPackage : Package 1887 1888 return 1889 AMF.Internals.Holders.CMOF_Holders.To_Holder 1890 (AMF.CMOF.Packages.CMOF_Package_Access' 1891 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1892 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Package)); 1893 1894 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Import_Importing_Namespace_Namespace_Package_Import then 1895 -- PackageImport::importingNamespace : Namespace 1896 1897 return 1898 AMF.Internals.Holders.CMOF_Holders.To_Holder 1899 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 1900 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1901 (AMF.Internals.Helpers.To_Element (Self)).Get_Importing_Namespace)); 1902 1903 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1904 -- Element::ownedComment : Comment 1905 1906 return 1907 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1908 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1909 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1910 1911 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1912 -- Element::ownedElement : Element 1913 1914 return 1915 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1916 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1917 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1918 1919 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1920 -- Element::owner : Element 1921 1922 return 1923 AMF.Internals.Holders.CMOF_Holders.To_Holder 1924 (AMF.CMOF.Elements.CMOF_Element_Access' 1925 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1926 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 1927 1928 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Relationship_Related_Element_A_Relationship then 1929 -- Relationship::relatedElement : Element 1930 1931 return 1932 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1933 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1934 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element); 1935 1936 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Directed_Relationship_Source_A_Directed_Relationship then 1937 -- DirectedRelationship::source : Element 1938 1939 return 1940 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1941 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1942 (AMF.Internals.Helpers.To_Element (Self)).Get_Source); 1943 1944 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Directed_Relationship_Target_A_Directed_Relationship then 1945 -- DirectedRelationship::target : Element 1946 1947 return 1948 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1949 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1950 (AMF.Internals.Helpers.To_Element (Self)).Get_Target); 1951 1952 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Import_Visibility then 1953 -- PackageImport::visibility : VisibilityKind 1954 1955 return 1956 AMF.CMOF.Holders.Visibility_Kinds.To_Holder 1957 (AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 1958 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 1959 1960 else 1961 raise Program_Error; 1962 end if; 1963 end CMOF_Package_Import_Get; 1964 1965 ---------------------------- 1966 -- CMOF_Package_Merge_Get -- 1967 ---------------------------- 1968 1969 function CMOF_Package_Merge_Get return League.Holders.Holder is 1970 begin 1971 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Merge_Merged_Package_A_Package_Merge then 1972 -- PackageMerge::mergedPackage : Package 1973 1974 return 1975 AMF.Internals.Holders.CMOF_Holders.To_Holder 1976 (AMF.CMOF.Packages.CMOF_Package_Access' 1977 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 1978 (AMF.Internals.Helpers.To_Element (Self)).Get_Merged_Package)); 1979 1980 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 1981 -- Element::ownedComment : Comment 1982 1983 return 1984 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 1985 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 1986 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 1987 1988 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 1989 -- Element::ownedElement : Element 1990 1991 return 1992 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 1993 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 1994 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 1995 1996 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 1997 -- Element::owner : Element 1998 1999 return 2000 AMF.Internals.Holders.CMOF_Holders.To_Holder 2001 (AMF.CMOF.Elements.CMOF_Element_Access' 2002 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 2003 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 2004 2005 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Merge_Receiving_Package_Package_Package_Merge then 2006 -- PackageMerge::receivingPackage : Package 2007 2008 return 2009 AMF.Internals.Holders.CMOF_Holders.To_Holder 2010 (AMF.CMOF.Packages.CMOF_Package_Access' 2011 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 2012 (AMF.Internals.Helpers.To_Element (Self)).Get_Receiving_Package)); 2013 2014 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Relationship_Related_Element_A_Relationship then 2015 -- Relationship::relatedElement : Element 2016 2017 return 2018 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2019 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 2020 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element); 2021 2022 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Directed_Relationship_Source_A_Directed_Relationship then 2023 -- DirectedRelationship::source : Element 2024 2025 return 2026 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2027 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 2028 (AMF.Internals.Helpers.To_Element (Self)).Get_Source); 2029 2030 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Directed_Relationship_Target_A_Directed_Relationship then 2031 -- DirectedRelationship::target : Element 2032 2033 return 2034 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2035 (AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 2036 (AMF.Internals.Helpers.To_Element (Self)).Get_Target); 2037 2038 else 2039 raise Program_Error; 2040 end if; 2041 end CMOF_Package_Merge_Get; 2042 2043 ------------------------ 2044 -- CMOF_Parameter_Get -- 2045 ------------------------ 2046 2047 function CMOF_Parameter_Get return League.Holders.Holder is 2048 begin 2049 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Parameter_Default then 2050 -- Parameter::default : String 2051 2052 return 2053 AMF.Holders.To_Holder 2054 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2055 (AMF.Internals.Helpers.To_Element (Self)).Get_Default); 2056 2057 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Parameter_Direction then 2058 -- Parameter::direction : ParameterDirectionKind 2059 2060 return 2061 AMF.CMOF.Holders.Parameter_Direction_Kinds.To_Holder 2062 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2063 (AMF.Internals.Helpers.To_Element (Self)).Get_Direction); 2064 2065 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Ordered then 2066 -- MultiplicityElement::isOrdered : Boolean 2067 2068 return 2069 League.Holders.Booleans.To_Holder 2070 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2071 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered); 2072 2073 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Unique then 2074 -- MultiplicityElement::isUnique : Boolean 2075 2076 return 2077 League.Holders.Booleans.To_Holder 2078 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2079 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique); 2080 2081 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Lower then 2082 -- MultiplicityElement::lower : Integer 2083 2084 return 2085 AMF.Holders.To_Holder 2086 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2087 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower); 2088 2089 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 2090 -- NamedElement::name : String 2091 2092 return 2093 AMF.Holders.To_Holder 2094 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2095 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 2096 2097 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 2098 -- NamedElement::namespace : Namespace 2099 2100 return 2101 AMF.Internals.Holders.CMOF_Holders.To_Holder 2102 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 2103 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2104 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 2105 2106 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Parameter_Operation_Operation_Owned_Parameter then 2107 -- Parameter::operation : Operation 2108 2109 return 2110 AMF.Internals.Holders.CMOF_Holders.To_Holder 2111 (AMF.CMOF.Operations.CMOF_Operation_Access' 2112 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2113 (AMF.Internals.Helpers.To_Element (Self)).Get_Operation)); 2114 2115 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 2116 -- Element::ownedComment : Comment 2117 2118 return 2119 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 2120 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2121 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 2122 2123 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 2124 -- Element::ownedElement : Element 2125 2126 return 2127 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2128 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2129 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 2130 2131 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 2132 -- Element::owner : Element 2133 2134 return 2135 AMF.Internals.Holders.CMOF_Holders.To_Holder 2136 (AMF.CMOF.Elements.CMOF_Element_Access' 2137 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2138 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 2139 2140 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 2141 -- NamedElement::qualifiedName : String 2142 2143 return 2144 AMF.Holders.To_Holder 2145 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2146 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 2147 2148 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 2149 -- TypedElement::type : Type 2150 2151 return 2152 AMF.Internals.Holders.CMOF_Holders.To_Holder 2153 (AMF.CMOF.Types.CMOF_Type_Access' 2154 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2155 (AMF.Internals.Helpers.To_Element (Self)).Get_Type)); 2156 2157 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Upper then 2158 -- MultiplicityElement::upper : UnlimitedNatural 2159 2160 return 2161 AMF.Holders.To_Holder 2162 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2163 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper); 2164 2165 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 2166 -- NamedElement::visibility : VisibilityKind 2167 2168 return 2169 AMF.CMOF.Holders.To_Holder 2170 (AMF.CMOF.Parameters.CMOF_Parameter_Access 2171 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 2172 2173 else 2174 raise Program_Error; 2175 end if; 2176 end CMOF_Parameter_Get; 2177 2178 ----------------------------- 2179 -- CMOF_Primitive_Type_Get -- 2180 ----------------------------- 2181 2182 function CMOF_Primitive_Type_Get return League.Holders.Holder is 2183 begin 2184 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Attribute_A_Classifier then 2185 -- Classifier::attribute : Property 2186 2187 return 2188 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 2189 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2190 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute); 2191 2192 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Element_Import_Element_Import_Importing_Namespace then 2193 -- Namespace::elementImport : ElementImport 2194 2195 return 2196 AMF.CMOF.Element_Imports.Collections.CMOF_Element_Import_Collections.Internals.To_Holder 2197 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2198 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import); 2199 2200 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Feature_Feature_Featuring_Classifier then 2201 -- Classifier::feature : Feature 2202 2203 return 2204 AMF.CMOF.Features.Collections.CMOF_Feature_Collections.Internals.To_Holder 2205 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2206 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature); 2207 2208 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_General_A_Classifier then 2209 -- Classifier::general : Classifier 2210 2211 return 2212 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 2213 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2214 (AMF.Internals.Helpers.To_Element (Self)).Get_General); 2215 2216 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Imported_Member_A_Namespace then 2217 -- Namespace::importedMember : PackageableElement 2218 2219 return 2220 AMF.CMOF.Packageable_Elements.Collections.CMOF_Packageable_Element_Collections.Internals.To_Holder 2221 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2222 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member); 2223 2224 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Inherited_Member_A_Classifier then 2225 -- Classifier::inheritedMember : NamedElement 2226 2227 return 2228 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 2229 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2230 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member); 2231 2232 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 2233 -- Classifier::isFinalSpecialization : Boolean 2234 2235 return 2236 League.Holders.Booleans.To_Holder 2237 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2238 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization); 2239 2240 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace then 2241 -- Namespace::member : NamedElement 2242 2243 return 2244 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 2245 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2246 (AMF.Internals.Helpers.To_Element (Self)).Get_Member); 2247 2248 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 2249 -- NamedElement::name : String 2250 2251 return 2252 AMF.Holders.To_Holder 2253 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2254 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 2255 2256 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 2257 -- NamedElement::namespace : Namespace 2258 2259 return 2260 AMF.Internals.Holders.CMOF_Holders.To_Holder 2261 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 2262 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2263 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 2264 2265 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Data_Type_Owned_Attribute_Property_Datatype then 2266 -- DataType::ownedAttribute : Property 2267 2268 return 2269 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 2270 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2271 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute); 2272 2273 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 2274 -- Element::ownedComment : Comment 2275 2276 return 2277 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 2278 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2279 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 2280 2281 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 2282 -- Element::ownedElement : Element 2283 2284 return 2285 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2286 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2287 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 2288 2289 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace then 2290 -- Namespace::ownedMember : NamedElement 2291 2292 return 2293 AMF.CMOF.Named_Elements.Collections.CMOF_Named_Element_Collections.Internals.To_Holder 2294 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2295 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member); 2296 2297 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Data_Type_Owned_Operation_Operation_Datatype then 2298 -- DataType::ownedOperation : Operation 2299 2300 return 2301 AMF.CMOF.Operations.Collections.CMOF_Operation_Collections.Internals.To_Holder 2302 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2303 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation); 2304 2305 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Rule_Constraint_Context then 2306 -- Namespace::ownedRule : Constraint 2307 2308 return 2309 AMF.CMOF.Constraints.Collections.CMOF_Constraint_Collections.Internals.To_Holder 2310 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2311 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule); 2312 2313 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 2314 -- Element::owner : Element 2315 2316 return 2317 AMF.Internals.Holders.CMOF_Holders.To_Holder 2318 (AMF.CMOF.Elements.CMOF_Element_Access' 2319 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2320 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 2321 2322 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 2323 -- Type::package : Package 2324 2325 return 2326 AMF.Internals.Holders.CMOF_Holders.To_Holder 2327 (AMF.CMOF.Packages.CMOF_Package_Access' 2328 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2329 (AMF.Internals.Helpers.To_Element (Self)).Get_Package)); 2330 2331 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Package_Import_Package_Import_Importing_Namespace then 2332 -- Namespace::packageImport : PackageImport 2333 2334 return 2335 AMF.CMOF.Package_Imports.Collections.CMOF_Package_Import_Collections.Internals.To_Holder 2336 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2337 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import); 2338 2339 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 2340 -- NamedElement::qualifiedName : String 2341 2342 return 2343 AMF.Holders.To_Holder 2344 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2345 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 2346 2347 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 2348 -- NamedElement::visibility : VisibilityKind 2349 2350 return 2351 AMF.CMOF.Holders.To_Holder 2352 (AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 2353 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 2354 2355 else 2356 raise Program_Error; 2357 end if; 2358 end CMOF_Primitive_Type_Get; 2359 2360 ----------------------- 2361 -- CMOF_Property_Get -- 2362 ----------------------- 2363 2364 function CMOF_Property_Get return League.Holders.Holder is 2365 begin 2366 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Association_Association_Member_End then 2367 -- Property::association : Association 2368 2369 return 2370 AMF.Internals.Holders.CMOF_Holders.To_Holder 2371 (AMF.CMOF.Associations.CMOF_Association_Access' 2372 (AMF.CMOF.Properties.CMOF_Property_Access 2373 (AMF.Internals.Helpers.To_Element (Self)).Get_Association)); 2374 2375 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Class_Class_Owned_Attribute then 2376 -- Property::class : Class 2377 2378 return 2379 AMF.Internals.Holders.CMOF_Holders.To_Holder 2380 (AMF.CMOF.Classes.CMOF_Class_Access' 2381 (AMF.CMOF.Properties.CMOF_Property_Access 2382 (AMF.Internals.Helpers.To_Element (Self)).Get_Class)); 2383 2384 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Datatype_Data_Type_Owned_Attribute then 2385 -- Property::datatype : DataType 2386 2387 return 2388 AMF.Internals.Holders.CMOF_Holders.To_Holder 2389 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access' 2390 (AMF.CMOF.Properties.CMOF_Property_Access 2391 (AMF.Internals.Helpers.To_Element (Self)).Get_Datatype)); 2392 2393 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Default then 2394 -- Property::default : String 2395 2396 return 2397 AMF.Holders.To_Holder 2398 (AMF.CMOF.Properties.CMOF_Property_Access 2399 (AMF.Internals.Helpers.To_Element (Self)).Get_Default); 2400 2401 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Feature_Featuring_Classifier_Classifier_Feature then 2402 -- Feature::featuringClassifier : Classifier 2403 2404 return 2405 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 2406 (AMF.CMOF.Properties.CMOF_Property_Access 2407 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier); 2408 2409 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Composite then 2410 -- Property::isComposite : Boolean 2411 2412 return 2413 League.Holders.Booleans.To_Holder 2414 (AMF.CMOF.Properties.CMOF_Property_Access 2415 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Composite); 2416 2417 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Derived then 2418 -- Property::isDerived : Boolean 2419 2420 return 2421 League.Holders.Booleans.To_Holder 2422 (AMF.CMOF.Properties.CMOF_Property_Access 2423 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived); 2424 2425 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Derived_Union then 2426 -- Property::isDerivedUnion : Boolean 2427 2428 return 2429 League.Holders.Booleans.To_Holder 2430 (AMF.CMOF.Properties.CMOF_Property_Access 2431 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived_Union); 2432 2433 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Is_Leaf then 2434 -- RedefinableElement::isLeaf : Boolean 2435 2436 return 2437 League.Holders.Booleans.To_Holder 2438 (AMF.CMOF.Properties.CMOF_Property_Access 2439 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf); 2440 2441 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Ordered then 2442 -- MultiplicityElement::isOrdered : Boolean 2443 2444 return 2445 League.Holders.Booleans.To_Holder 2446 (AMF.CMOF.Properties.CMOF_Property_Access 2447 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered); 2448 2449 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Read_Only then 2450 -- Property::isReadOnly : Boolean 2451 2452 return 2453 League.Holders.Booleans.To_Holder 2454 (AMF.CMOF.Properties.CMOF_Property_Access 2455 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only); 2456 2457 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Unique then 2458 -- MultiplicityElement::isUnique : Boolean 2459 2460 return 2461 League.Holders.Booleans.To_Holder 2462 (AMF.CMOF.Properties.CMOF_Property_Access 2463 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique); 2464 2465 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Lower then 2466 -- MultiplicityElement::lower : Integer 2467 2468 return 2469 AMF.Holders.To_Holder 2470 (AMF.CMOF.Properties.CMOF_Property_Access 2471 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower); 2472 2473 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 2474 -- NamedElement::name : String 2475 2476 return 2477 AMF.Holders.To_Holder 2478 (AMF.CMOF.Properties.CMOF_Property_Access 2479 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 2480 2481 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member then 2482 -- NamedElement::namespace : Namespace 2483 2484 return 2485 AMF.Internals.Holders.CMOF_Holders.To_Holder 2486 (AMF.CMOF.Namespaces.CMOF_Namespace_Access' 2487 (AMF.CMOF.Properties.CMOF_Property_Access 2488 (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace)); 2489 2490 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Opposite_A_Property then 2491 -- Property::opposite : Property 2492 2493 return 2494 AMF.Internals.Holders.CMOF_Holders.To_Holder 2495 (AMF.CMOF.Properties.CMOF_Property_Access' 2496 (AMF.CMOF.Properties.CMOF_Property_Access 2497 (AMF.Internals.Helpers.To_Element (Self)).Get_Opposite)); 2498 2499 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 2500 -- Element::ownedComment : Comment 2501 2502 return 2503 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 2504 (AMF.CMOF.Properties.CMOF_Property_Access 2505 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 2506 2507 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 2508 -- Element::ownedElement : Element 2509 2510 return 2511 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2512 (AMF.CMOF.Properties.CMOF_Property_Access 2513 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 2514 2515 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 2516 -- Element::owner : Element 2517 2518 return 2519 AMF.Internals.Holders.CMOF_Holders.To_Holder 2520 (AMF.CMOF.Elements.CMOF_Element_Access' 2521 (AMF.CMOF.Properties.CMOF_Property_Access 2522 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 2523 2524 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Owning_Association_Association_Owned_End then 2525 -- Property::owningAssociation : Association 2526 2527 return 2528 AMF.Internals.Holders.CMOF_Holders.To_Holder 2529 (AMF.CMOF.Associations.CMOF_Association_Access' 2530 (AMF.CMOF.Properties.CMOF_Property_Access 2531 (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Association)); 2532 2533 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Qualified_Name then 2534 -- NamedElement::qualifiedName : String 2535 2536 return 2537 AMF.Holders.To_Holder 2538 (AMF.CMOF.Properties.CMOF_Property_Access 2539 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name); 2540 2541 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Redefined_Element_A_Redefinable_Element then 2542 -- RedefinableElement::redefinedElement : RedefinableElement 2543 2544 return 2545 AMF.CMOF.Redefinable_Elements.Collections.CMOF_Redefinable_Element_Collections.Internals.To_Holder 2546 (AMF.CMOF.Properties.CMOF_Property_Access 2547 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element); 2548 2549 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Redefined_Property_A_Property then 2550 -- Property::redefinedProperty : Property 2551 2552 return 2553 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 2554 (AMF.CMOF.Properties.CMOF_Property_Access 2555 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Property); 2556 2557 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then 2558 -- RedefinableElement::redefinitionContext : Classifier 2559 2560 return 2561 AMF.CMOF.Classifiers.Collections.CMOF_Classifier_Collections.Internals.To_Holder 2562 (AMF.CMOF.Properties.CMOF_Property_Access 2563 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context); 2564 2565 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Subsetted_Property_A_Property then 2566 -- Property::subsettedProperty : Property 2567 2568 return 2569 AMF.CMOF.Properties.Collections.CMOF_Property_Collections.Internals.To_Holder 2570 (AMF.CMOF.Properties.CMOF_Property_Access 2571 (AMF.Internals.Helpers.To_Element (Self)).Get_Subsetted_Property); 2572 2573 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 2574 -- TypedElement::type : Type 2575 2576 return 2577 AMF.Internals.Holders.CMOF_Holders.To_Holder 2578 (AMF.CMOF.Types.CMOF_Type_Access' 2579 (AMF.CMOF.Properties.CMOF_Property_Access 2580 (AMF.Internals.Helpers.To_Element (Self)).Get_Type)); 2581 2582 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Upper then 2583 -- MultiplicityElement::upper : UnlimitedNatural 2584 2585 return 2586 AMF.Holders.To_Holder 2587 (AMF.CMOF.Properties.CMOF_Property_Access 2588 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper); 2589 2590 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 2591 -- NamedElement::visibility : VisibilityKind 2592 2593 return 2594 AMF.CMOF.Holders.To_Holder 2595 (AMF.CMOF.Properties.CMOF_Property_Access 2596 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility); 2597 2598 else 2599 raise Program_Error; 2600 end if; 2601 end CMOF_Property_Get; 2602 2603 ------------------ 2604 -- CMOF_Tag_Get -- 2605 ------------------ 2606 2607 function CMOF_Tag_Get return League.Holders.Holder is 2608 begin 2609 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Element_A_Tag then 2610 -- Tag::element : Element 2611 2612 return 2613 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2614 (AMF.CMOF.Tags.CMOF_Tag_Access 2615 (AMF.Internals.Helpers.To_Element (Self)).Get_Element); 2616 2617 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Name then 2618 -- Tag::name : String 2619 2620 return 2621 League.Holders.To_Holder 2622 (AMF.CMOF.Tags.CMOF_Tag_Access 2623 (AMF.Internals.Helpers.To_Element (Self)).Get_Name); 2624 2625 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element then 2626 -- Element::ownedComment : Comment 2627 2628 return 2629 AMF.CMOF.Comments.Collections.CMOF_Comment_Collections.Internals.To_Holder 2630 (AMF.CMOF.Tags.CMOF_Tag_Access 2631 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment); 2632 2633 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner then 2634 -- Element::ownedElement : Element 2635 2636 return 2637 AMF.CMOF.Elements.Collections.CMOF_Element_Collections.Internals.To_Holder 2638 (AMF.CMOF.Tags.CMOF_Tag_Access 2639 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element); 2640 2641 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element then 2642 -- Element::owner : Element 2643 2644 return 2645 AMF.Internals.Holders.CMOF_Holders.To_Holder 2646 (AMF.CMOF.Elements.CMOF_Element_Access' 2647 (AMF.CMOF.Tags.CMOF_Tag_Access 2648 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner)); 2649 2650 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Tag_Owner_A_Owned_Tag then 2651 -- Tag::tagOwner : Element 2652 2653 return 2654 AMF.Internals.Holders.CMOF_Holders.To_Holder 2655 (AMF.CMOF.Elements.CMOF_Element_Access' 2656 (AMF.CMOF.Tags.CMOF_Tag_Access 2657 (AMF.Internals.Helpers.To_Element (Self)).Get_Tag_Owner)); 2658 2659 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Value then 2660 -- Tag::value : String 2661 2662 return 2663 League.Holders.To_Holder 2664 (AMF.CMOF.Tags.CMOF_Tag_Access 2665 (AMF.Internals.Helpers.To_Element (Self)).Get_Value); 2666 2667 else 2668 raise Program_Error; 2669 end if; 2670 end CMOF_Tag_Get; 2671 2672 begin 2673 case AMF.Internals.Tables.CMOF_Element_Table.Table (Self).Kind is 2674 when AMF.Internals.Tables.CMOF_Types.E_None => 2675 raise Program_Error; 2676 2677 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Association => 2678 return CMOF_Association_Get; 2679 2680 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Class => 2681 return CMOF_Class_Get; 2682 2683 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Comment => 2684 return CMOF_Comment_Get; 2685 2686 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Constraint => 2687 return CMOF_Constraint_Get; 2688 2689 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Data_Type => 2690 return CMOF_Data_Type_Get; 2691 2692 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Element_Import => 2693 return CMOF_Element_Import_Get; 2694 2695 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Enumeration => 2696 return CMOF_Enumeration_Get; 2697 2698 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Enumeration_Literal => 2699 return CMOF_Enumeration_Literal_Get; 2700 2701 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Expression => 2702 return CMOF_Expression_Get; 2703 2704 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Opaque_Expression => 2705 return CMOF_Opaque_Expression_Get; 2706 2707 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Operation => 2708 return CMOF_Operation_Get; 2709 2710 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package => 2711 return CMOF_Package_Get; 2712 2713 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package_Import => 2714 return CMOF_Package_Import_Get; 2715 2716 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package_Merge => 2717 return CMOF_Package_Merge_Get; 2718 2719 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Parameter => 2720 return CMOF_Parameter_Get; 2721 2722 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Primitive_Type => 2723 return CMOF_Primitive_Type_Get; 2724 2725 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Property => 2726 return CMOF_Property_Get; 2727 2728 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Tag => 2729 return CMOF_Tag_Get; 2730 end case; 2731 end Get; 2732 2733 -------------------- 2734 -- Get_Meta_Class -- 2735 -------------------- 2736 2737 function Get_Meta_Class 2738 (Self : AMF.Internals.AMF_Element) return CMOF_Element is 2739 begin 2740 case CMOF_Element_Table.Table (Self).Kind is 2741 when AMF.Internals.Tables.CMOF_Types.E_None => 2742 return 0; 2743 2744 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Association => 2745 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Association; 2746 2747 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Class => 2748 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Class; 2749 2750 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Comment => 2751 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Comment; 2752 2753 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Constraint => 2754 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Constraint; 2755 2756 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Data_Type => 2757 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Data_Type; 2758 2759 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Element_Import => 2760 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Element_Import; 2761 2762 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Enumeration => 2763 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Enumeration; 2764 2765 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Enumeration_Literal => 2766 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Enumeration_Literal; 2767 2768 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Expression => 2769 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Expression; 2770 2771 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Opaque_Expression => 2772 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Opaque_Expression; 2773 2774 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Operation => 2775 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Operation; 2776 2777 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package => 2778 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Package; 2779 2780 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package_Import => 2781 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Package_Import; 2782 2783 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package_Merge => 2784 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Package_Merge; 2785 2786 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Parameter => 2787 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Parameter; 2788 2789 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Primitive_Type => 2790 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Primitive_Type; 2791 2792 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Property => 2793 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Property; 2794 2795 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Tag => 2796 return AMF.Internals.Tables.CMOF_Metamodel.MC_CMOF_Tag; 2797 end case; 2798 end Get_Meta_Class; 2799 2800 --------- 2801 -- Set -- 2802 --------- 2803 2804 procedure Set 2805 (Self : AMF.Internals.AMF_Element; 2806 Property : CMOF_Element; 2807 Value : League.Holders.Holder) 2808 is 2809 2810 procedure CMOF_Association_Set; 2811 -- Sets attribute's value of instance of Association class. 2812 2813 procedure CMOF_Class_Set; 2814 -- Sets attribute's value of instance of Class class. 2815 2816 procedure CMOF_Comment_Set; 2817 -- Sets attribute's value of instance of Comment class. 2818 2819 procedure CMOF_Constraint_Set; 2820 -- Sets attribute's value of instance of Constraint class. 2821 2822 procedure CMOF_Data_Type_Set; 2823 -- Sets attribute's value of instance of DataType class. 2824 2825 procedure CMOF_Element_Import_Set; 2826 -- Sets attribute's value of instance of ElementImport class. 2827 2828 procedure CMOF_Enumeration_Set; 2829 -- Sets attribute's value of instance of Enumeration class. 2830 2831 procedure CMOF_Enumeration_Literal_Set; 2832 -- Sets attribute's value of instance of EnumerationLiteral class. 2833 2834 procedure CMOF_Expression_Set; 2835 -- Sets attribute's value of instance of Expression class. 2836 2837 procedure CMOF_Opaque_Expression_Set; 2838 -- Sets attribute's value of instance of OpaqueExpression class. 2839 2840 procedure CMOF_Operation_Set; 2841 -- Sets attribute's value of instance of Operation class. 2842 2843 procedure CMOF_Package_Set; 2844 -- Sets attribute's value of instance of Package class. 2845 2846 procedure CMOF_Package_Import_Set; 2847 -- Sets attribute's value of instance of PackageImport class. 2848 2849 procedure CMOF_Package_Merge_Set; 2850 -- Sets attribute's value of instance of PackageMerge class. 2851 2852 procedure CMOF_Parameter_Set; 2853 -- Sets attribute's value of instance of Parameter class. 2854 2855 procedure CMOF_Primitive_Type_Set; 2856 -- Sets attribute's value of instance of PrimitiveType class. 2857 2858 procedure CMOF_Property_Set; 2859 -- Sets attribute's value of instance of Property class. 2860 2861 procedure CMOF_Tag_Set; 2862 -- Sets attribute's value of instance of Tag class. 2863 2864 -------------------------- 2865 -- CMOF_Association_Set -- 2866 -------------------------- 2867 2868 procedure CMOF_Association_Set is 2869 begin 2870 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Association_Is_Derived then 2871 -- Association::isDerived : Boolean 2872 2873 AMF.CMOF.Associations.CMOF_Association_Access 2874 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived 2875 (League.Holders.Booleans.Element (Value)); 2876 2877 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 2878 -- Classifier::isFinalSpecialization : Boolean 2879 2880 AMF.CMOF.Associations.CMOF_Association_Access 2881 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization 2882 (League.Holders.Booleans.Element (Value)); 2883 2884 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 2885 -- NamedElement::name : String 2886 2887 AMF.CMOF.Associations.CMOF_Association_Access 2888 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 2889 (AMF.Holders.Element (Value)); 2890 2891 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 2892 -- Type::package : Package 2893 2894 AMF.CMOF.Associations.CMOF_Association_Access 2895 (AMF.Internals.Helpers.To_Element (Self)).Set_Package 2896 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 2897 2898 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 2899 -- NamedElement::visibility : VisibilityKind 2900 2901 AMF.CMOF.Associations.CMOF_Association_Access 2902 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 2903 (AMF.CMOF.Holders.Element (Value)); 2904 2905 else 2906 raise Program_Error; 2907 end if; 2908 end CMOF_Association_Set; 2909 2910 -------------------- 2911 -- CMOF_Class_Set -- 2912 -------------------- 2913 2914 procedure CMOF_Class_Set is 2915 begin 2916 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Class_Is_Abstract then 2917 -- Class::isAbstract : Boolean 2918 2919 AMF.CMOF.Classes.CMOF_Class_Access 2920 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract 2921 (League.Holders.Booleans.Element (Value)); 2922 2923 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 2924 -- Classifier::isFinalSpecialization : Boolean 2925 2926 AMF.CMOF.Classes.CMOF_Class_Access 2927 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization 2928 (League.Holders.Booleans.Element (Value)); 2929 2930 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 2931 -- NamedElement::name : String 2932 2933 AMF.CMOF.Classes.CMOF_Class_Access 2934 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 2935 (AMF.Holders.Element (Value)); 2936 2937 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 2938 -- Type::package : Package 2939 2940 AMF.CMOF.Classes.CMOF_Class_Access 2941 (AMF.Internals.Helpers.To_Element (Self)).Set_Package 2942 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 2943 2944 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 2945 -- NamedElement::visibility : VisibilityKind 2946 2947 AMF.CMOF.Classes.CMOF_Class_Access 2948 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 2949 (AMF.CMOF.Holders.Element (Value)); 2950 2951 else 2952 raise Program_Error; 2953 end if; 2954 end CMOF_Class_Set; 2955 2956 ---------------------- 2957 -- CMOF_Comment_Set -- 2958 ---------------------- 2959 2960 procedure CMOF_Comment_Set is 2961 begin 2962 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Body then 2963 -- Comment::body : String 2964 2965 AMF.CMOF.Comments.CMOF_Comment_Access 2966 (AMF.Internals.Helpers.To_Element (Self)).Set_Body 2967 (AMF.Holders.Element (Value)); 2968 2969 else 2970 raise Program_Error; 2971 end if; 2972 end CMOF_Comment_Set; 2973 2974 ------------------------- 2975 -- CMOF_Constraint_Set -- 2976 ------------------------- 2977 2978 procedure CMOF_Constraint_Set is 2979 begin 2980 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Constraint_Context_Namespace_Owned_Rule then 2981 -- Constraint::context : Namespace 2982 2983 AMF.CMOF.Constraints.CMOF_Constraint_Access 2984 (AMF.Internals.Helpers.To_Element (Self)).Set_Context 2985 (AMF.CMOF.Namespaces.CMOF_Namespace_Access (AMF.Holders.Elements.Element (Value))); 2986 2987 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 2988 -- NamedElement::name : String 2989 2990 AMF.CMOF.Constraints.CMOF_Constraint_Access 2991 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 2992 (AMF.Holders.Element (Value)); 2993 2994 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Constraint_Specification_A_Owning_Constraint then 2995 -- Constraint::specification : ValueSpecification 2996 2997 AMF.CMOF.Constraints.CMOF_Constraint_Access 2998 (AMF.Internals.Helpers.To_Element (Self)).Set_Specification 2999 (AMF.CMOF.Value_Specifications.CMOF_Value_Specification_Access (AMF.Holders.Elements.Element (Value))); 3000 3001 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3002 -- NamedElement::visibility : VisibilityKind 3003 3004 AMF.CMOF.Constraints.CMOF_Constraint_Access 3005 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3006 (AMF.CMOF.Holders.Element (Value)); 3007 3008 else 3009 raise Program_Error; 3010 end if; 3011 end CMOF_Constraint_Set; 3012 3013 ------------------------ 3014 -- CMOF_Data_Type_Set -- 3015 ------------------------ 3016 3017 procedure CMOF_Data_Type_Set is 3018 begin 3019 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 3020 -- Classifier::isFinalSpecialization : Boolean 3021 3022 AMF.CMOF.Data_Types.CMOF_Data_Type_Access 3023 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization 3024 (League.Holders.Booleans.Element (Value)); 3025 3026 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3027 -- NamedElement::name : String 3028 3029 AMF.CMOF.Data_Types.CMOF_Data_Type_Access 3030 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3031 (AMF.Holders.Element (Value)); 3032 3033 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 3034 -- Type::package : Package 3035 3036 AMF.CMOF.Data_Types.CMOF_Data_Type_Access 3037 (AMF.Internals.Helpers.To_Element (Self)).Set_Package 3038 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 3039 3040 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3041 -- NamedElement::visibility : VisibilityKind 3042 3043 AMF.CMOF.Data_Types.CMOF_Data_Type_Access 3044 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3045 (AMF.CMOF.Holders.Element (Value)); 3046 3047 else 3048 raise Program_Error; 3049 end if; 3050 end CMOF_Data_Type_Set; 3051 3052 ----------------------------- 3053 -- CMOF_Element_Import_Set -- 3054 ----------------------------- 3055 3056 procedure CMOF_Element_Import_Set is 3057 begin 3058 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Alias then 3059 -- ElementImport::alias : String 3060 3061 AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 3062 (AMF.Internals.Helpers.To_Element (Self)).Set_Alias 3063 (AMF.Holders.Element (Value)); 3064 3065 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Imported_Element_A_Element_Import then 3066 -- ElementImport::importedElement : PackageableElement 3067 3068 AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 3069 (AMF.Internals.Helpers.To_Element (Self)).Set_Imported_Element 3070 (AMF.CMOF.Packageable_Elements.CMOF_Packageable_Element_Access (AMF.Holders.Elements.Element (Value))); 3071 3072 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Importing_Namespace_Namespace_Element_Import then 3073 -- ElementImport::importingNamespace : Namespace 3074 3075 AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 3076 (AMF.Internals.Helpers.To_Element (Self)).Set_Importing_Namespace 3077 (AMF.CMOF.Namespaces.CMOF_Namespace_Access (AMF.Holders.Elements.Element (Value))); 3078 3079 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Import_Visibility then 3080 -- ElementImport::visibility : VisibilityKind 3081 3082 AMF.CMOF.Element_Imports.CMOF_Element_Import_Access 3083 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3084 (AMF.CMOF.Holders.Visibility_Kinds.Element (Value)); 3085 3086 else 3087 raise Program_Error; 3088 end if; 3089 end CMOF_Element_Import_Set; 3090 3091 -------------------------- 3092 -- CMOF_Enumeration_Set -- 3093 -------------------------- 3094 3095 procedure CMOF_Enumeration_Set is 3096 begin 3097 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 3098 -- Classifier::isFinalSpecialization : Boolean 3099 3100 AMF.CMOF.Enumerations.CMOF_Enumeration_Access 3101 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization 3102 (League.Holders.Booleans.Element (Value)); 3103 3104 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3105 -- NamedElement::name : String 3106 3107 AMF.CMOF.Enumerations.CMOF_Enumeration_Access 3108 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3109 (AMF.Holders.Element (Value)); 3110 3111 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 3112 -- Type::package : Package 3113 3114 AMF.CMOF.Enumerations.CMOF_Enumeration_Access 3115 (AMF.Internals.Helpers.To_Element (Self)).Set_Package 3116 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 3117 3118 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3119 -- NamedElement::visibility : VisibilityKind 3120 3121 AMF.CMOF.Enumerations.CMOF_Enumeration_Access 3122 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3123 (AMF.CMOF.Holders.Element (Value)); 3124 3125 else 3126 raise Program_Error; 3127 end if; 3128 end CMOF_Enumeration_Set; 3129 3130 ---------------------------------- 3131 -- CMOF_Enumeration_Literal_Set -- 3132 ---------------------------------- 3133 3134 procedure CMOF_Enumeration_Literal_Set is 3135 begin 3136 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Enumeration_Literal_Enumeration_Enumeration_Owned_Literal then 3137 -- EnumerationLiteral::enumeration : Enumeration 3138 3139 AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 3140 (AMF.Internals.Helpers.To_Element (Self)).Set_Enumeration 3141 (AMF.CMOF.Enumerations.CMOF_Enumeration_Access (AMF.Holders.Elements.Element (Value))); 3142 3143 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3144 -- NamedElement::name : String 3145 3146 AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 3147 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3148 (AMF.Holders.Element (Value)); 3149 3150 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3151 -- NamedElement::visibility : VisibilityKind 3152 3153 AMF.CMOF.Enumeration_Literals.CMOF_Enumeration_Literal_Access 3154 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3155 (AMF.CMOF.Holders.Element (Value)); 3156 3157 else 3158 raise Program_Error; 3159 end if; 3160 end CMOF_Enumeration_Literal_Set; 3161 3162 ------------------------- 3163 -- CMOF_Expression_Set -- 3164 ------------------------- 3165 3166 procedure CMOF_Expression_Set is 3167 begin 3168 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3169 -- NamedElement::name : String 3170 3171 AMF.CMOF.Expressions.CMOF_Expression_Access 3172 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3173 (AMF.Holders.Element (Value)); 3174 3175 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 3176 -- TypedElement::type : Type 3177 3178 AMF.CMOF.Expressions.CMOF_Expression_Access 3179 (AMF.Internals.Helpers.To_Element (Self)).Set_Type 3180 (AMF.CMOF.Types.CMOF_Type_Access (AMF.Holders.Elements.Element (Value))); 3181 3182 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3183 -- NamedElement::visibility : VisibilityKind 3184 3185 AMF.CMOF.Expressions.CMOF_Expression_Access 3186 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3187 (AMF.CMOF.Holders.Element (Value)); 3188 3189 else 3190 raise Program_Error; 3191 end if; 3192 end CMOF_Expression_Set; 3193 3194 -------------------------------- 3195 -- CMOF_Opaque_Expression_Set -- 3196 -------------------------------- 3197 3198 procedure CMOF_Opaque_Expression_Set is 3199 begin 3200 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3201 -- NamedElement::name : String 3202 3203 AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 3204 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3205 (AMF.Holders.Element (Value)); 3206 3207 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 3208 -- TypedElement::type : Type 3209 3210 AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 3211 (AMF.Internals.Helpers.To_Element (Self)).Set_Type 3212 (AMF.CMOF.Types.CMOF_Type_Access (AMF.Holders.Elements.Element (Value))); 3213 3214 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3215 -- NamedElement::visibility : VisibilityKind 3216 3217 AMF.CMOF.Opaque_Expressions.CMOF_Opaque_Expression_Access 3218 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3219 (AMF.CMOF.Holders.Element (Value)); 3220 3221 else 3222 raise Program_Error; 3223 end if; 3224 end CMOF_Opaque_Expression_Set; 3225 3226 ------------------------ 3227 -- CMOF_Operation_Set -- 3228 ------------------------ 3229 3230 procedure CMOF_Operation_Set is 3231 begin 3232 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Body_Condition_A_Body_Context then 3233 -- Operation::bodyCondition : Constraint 3234 3235 AMF.CMOF.Operations.CMOF_Operation_Access 3236 (AMF.Internals.Helpers.To_Element (Self)).Set_Body_Condition 3237 (AMF.CMOF.Constraints.CMOF_Constraint_Access (AMF.Holders.Elements.Element (Value))); 3238 3239 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Class_Class_Owned_Operation then 3240 -- Operation::class : Class 3241 3242 AMF.CMOF.Operations.CMOF_Operation_Access 3243 (AMF.Internals.Helpers.To_Element (Self)).Set_Class 3244 (AMF.CMOF.Classes.CMOF_Class_Access (AMF.Holders.Elements.Element (Value))); 3245 3246 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Datatype_Data_Type_Owned_Operation then 3247 -- Operation::datatype : DataType 3248 3249 AMF.CMOF.Operations.CMOF_Operation_Access 3250 (AMF.Internals.Helpers.To_Element (Self)).Set_Datatype 3251 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access (AMF.Holders.Elements.Element (Value))); 3252 3253 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Is_Leaf then 3254 -- RedefinableElement::isLeaf : Boolean 3255 3256 AMF.CMOF.Operations.CMOF_Operation_Access 3257 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf 3258 (League.Holders.Booleans.Element (Value)); 3259 3260 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Operation_Is_Query then 3261 -- Operation::isQuery : Boolean 3262 3263 AMF.CMOF.Operations.CMOF_Operation_Access 3264 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Query 3265 (League.Holders.Booleans.Element (Value)); 3266 3267 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3268 -- NamedElement::name : String 3269 3270 AMF.CMOF.Operations.CMOF_Operation_Access 3271 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3272 (AMF.Holders.Element (Value)); 3273 3274 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3275 -- NamedElement::visibility : VisibilityKind 3276 3277 AMF.CMOF.Operations.CMOF_Operation_Access 3278 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3279 (AMF.CMOF.Holders.Element (Value)); 3280 3281 else 3282 raise Program_Error; 3283 end if; 3284 end CMOF_Operation_Set; 3285 3286 ---------------------- 3287 -- CMOF_Package_Set -- 3288 ---------------------- 3289 3290 procedure CMOF_Package_Set is 3291 begin 3292 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3293 -- NamedElement::name : String 3294 3295 AMF.CMOF.Packages.CMOF_Package_Access 3296 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3297 (AMF.Holders.Element (Value)); 3298 3299 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Nesting_Package_Package_Nested_Package then 3300 -- Package::nestingPackage : Package 3301 3302 AMF.CMOF.Packages.CMOF_Package_Access 3303 (AMF.Internals.Helpers.To_Element (Self)).Set_Nesting_Package 3304 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 3305 3306 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Uri then 3307 -- Package::uri : String 3308 3309 AMF.CMOF.Packages.CMOF_Package_Access 3310 (AMF.Internals.Helpers.To_Element (Self)).Set_Uri 3311 (AMF.Holders.Element (Value)); 3312 3313 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3314 -- NamedElement::visibility : VisibilityKind 3315 3316 AMF.CMOF.Packages.CMOF_Package_Access 3317 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3318 (AMF.CMOF.Holders.Element (Value)); 3319 3320 else 3321 raise Program_Error; 3322 end if; 3323 end CMOF_Package_Set; 3324 3325 ----------------------------- 3326 -- CMOF_Package_Import_Set -- 3327 ----------------------------- 3328 3329 procedure CMOF_Package_Import_Set is 3330 begin 3331 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Import_Imported_Package_A_Package_Import then 3332 -- PackageImport::importedPackage : Package 3333 3334 AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 3335 (AMF.Internals.Helpers.To_Element (Self)).Set_Imported_Package 3336 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 3337 3338 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Import_Importing_Namespace_Namespace_Package_Import then 3339 -- PackageImport::importingNamespace : Namespace 3340 3341 AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 3342 (AMF.Internals.Helpers.To_Element (Self)).Set_Importing_Namespace 3343 (AMF.CMOF.Namespaces.CMOF_Namespace_Access (AMF.Holders.Elements.Element (Value))); 3344 3345 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Import_Visibility then 3346 -- PackageImport::visibility : VisibilityKind 3347 3348 AMF.CMOF.Package_Imports.CMOF_Package_Import_Access 3349 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3350 (AMF.CMOF.Holders.Visibility_Kinds.Element (Value)); 3351 3352 else 3353 raise Program_Error; 3354 end if; 3355 end CMOF_Package_Import_Set; 3356 3357 ---------------------------- 3358 -- CMOF_Package_Merge_Set -- 3359 ---------------------------- 3360 3361 procedure CMOF_Package_Merge_Set is 3362 begin 3363 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Merge_Merged_Package_A_Package_Merge then 3364 -- PackageMerge::mergedPackage : Package 3365 3366 AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 3367 (AMF.Internals.Helpers.To_Element (Self)).Set_Merged_Package 3368 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 3369 3370 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Merge_Receiving_Package_Package_Package_Merge then 3371 -- PackageMerge::receivingPackage : Package 3372 3373 AMF.CMOF.Package_Merges.CMOF_Package_Merge_Access 3374 (AMF.Internals.Helpers.To_Element (Self)).Set_Receiving_Package 3375 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 3376 3377 else 3378 raise Program_Error; 3379 end if; 3380 end CMOF_Package_Merge_Set; 3381 3382 ------------------------ 3383 -- CMOF_Parameter_Set -- 3384 ------------------------ 3385 3386 procedure CMOF_Parameter_Set is 3387 begin 3388 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Parameter_Default then 3389 -- Parameter::default : String 3390 3391 AMF.CMOF.Parameters.CMOF_Parameter_Access 3392 (AMF.Internals.Helpers.To_Element (Self)).Set_Default 3393 (AMF.Holders.Element (Value)); 3394 3395 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Parameter_Direction then 3396 -- Parameter::direction : ParameterDirectionKind 3397 3398 AMF.CMOF.Parameters.CMOF_Parameter_Access 3399 (AMF.Internals.Helpers.To_Element (Self)).Set_Direction 3400 (AMF.CMOF.Holders.Parameter_Direction_Kinds.Element (Value)); 3401 3402 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Ordered then 3403 -- MultiplicityElement::isOrdered : Boolean 3404 3405 AMF.CMOF.Parameters.CMOF_Parameter_Access 3406 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered 3407 (League.Holders.Booleans.Element (Value)); 3408 3409 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Unique then 3410 -- MultiplicityElement::isUnique : Boolean 3411 3412 AMF.CMOF.Parameters.CMOF_Parameter_Access 3413 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique 3414 (League.Holders.Booleans.Element (Value)); 3415 3416 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Lower then 3417 -- MultiplicityElement::lower : Integer 3418 3419 AMF.CMOF.Parameters.CMOF_Parameter_Access 3420 (AMF.Internals.Helpers.To_Element (Self)).Set_Lower 3421 (AMF.Holders.Element (Value)); 3422 3423 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3424 -- NamedElement::name : String 3425 3426 AMF.CMOF.Parameters.CMOF_Parameter_Access 3427 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3428 (AMF.Holders.Element (Value)); 3429 3430 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Parameter_Operation_Operation_Owned_Parameter then 3431 -- Parameter::operation : Operation 3432 3433 AMF.CMOF.Parameters.CMOF_Parameter_Access 3434 (AMF.Internals.Helpers.To_Element (Self)).Set_Operation 3435 (AMF.CMOF.Operations.CMOF_Operation_Access (AMF.Holders.Elements.Element (Value))); 3436 3437 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 3438 -- TypedElement::type : Type 3439 3440 AMF.CMOF.Parameters.CMOF_Parameter_Access 3441 (AMF.Internals.Helpers.To_Element (Self)).Set_Type 3442 (AMF.CMOF.Types.CMOF_Type_Access (AMF.Holders.Elements.Element (Value))); 3443 3444 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Upper then 3445 -- MultiplicityElement::upper : UnlimitedNatural 3446 3447 AMF.CMOF.Parameters.CMOF_Parameter_Access 3448 (AMF.Internals.Helpers.To_Element (Self)).Set_Upper 3449 (AMF.Holders.Element (Value)); 3450 3451 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3452 -- NamedElement::visibility : VisibilityKind 3453 3454 AMF.CMOF.Parameters.CMOF_Parameter_Access 3455 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3456 (AMF.CMOF.Holders.Element (Value)); 3457 3458 else 3459 raise Program_Error; 3460 end if; 3461 end CMOF_Parameter_Set; 3462 3463 ----------------------------- 3464 -- CMOF_Primitive_Type_Set -- 3465 ----------------------------- 3466 3467 procedure CMOF_Primitive_Type_Set is 3468 begin 3469 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Classifier_Is_Final_Specialization then 3470 -- Classifier::isFinalSpecialization : Boolean 3471 3472 AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 3473 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization 3474 (League.Holders.Booleans.Element (Value)); 3475 3476 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3477 -- NamedElement::name : String 3478 3479 AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 3480 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3481 (AMF.Holders.Element (Value)); 3482 3483 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type then 3484 -- Type::package : Package 3485 3486 AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 3487 (AMF.Internals.Helpers.To_Element (Self)).Set_Package 3488 (AMF.CMOF.Packages.CMOF_Package_Access (AMF.Holders.Elements.Element (Value))); 3489 3490 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3491 -- NamedElement::visibility : VisibilityKind 3492 3493 AMF.CMOF.Primitive_Types.CMOF_Primitive_Type_Access 3494 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3495 (AMF.CMOF.Holders.Element (Value)); 3496 3497 else 3498 raise Program_Error; 3499 end if; 3500 end CMOF_Primitive_Type_Set; 3501 3502 ----------------------- 3503 -- CMOF_Property_Set -- 3504 ----------------------- 3505 3506 procedure CMOF_Property_Set is 3507 begin 3508 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Association_Association_Member_End then 3509 -- Property::association : Association 3510 3511 AMF.CMOF.Properties.CMOF_Property_Access 3512 (AMF.Internals.Helpers.To_Element (Self)).Set_Association 3513 (AMF.CMOF.Associations.CMOF_Association_Access (AMF.Holders.Elements.Element (Value))); 3514 3515 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Class_Class_Owned_Attribute then 3516 -- Property::class : Class 3517 3518 AMF.CMOF.Properties.CMOF_Property_Access 3519 (AMF.Internals.Helpers.To_Element (Self)).Set_Class 3520 (AMF.CMOF.Classes.CMOF_Class_Access (AMF.Holders.Elements.Element (Value))); 3521 3522 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Datatype_Data_Type_Owned_Attribute then 3523 -- Property::datatype : DataType 3524 3525 AMF.CMOF.Properties.CMOF_Property_Access 3526 (AMF.Internals.Helpers.To_Element (Self)).Set_Datatype 3527 (AMF.CMOF.Data_Types.CMOF_Data_Type_Access (AMF.Holders.Elements.Element (Value))); 3528 3529 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Default then 3530 -- Property::default : String 3531 3532 AMF.CMOF.Properties.CMOF_Property_Access 3533 (AMF.Internals.Helpers.To_Element (Self)).Set_Default 3534 (AMF.Holders.Element (Value)); 3535 3536 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Composite then 3537 -- Property::isComposite : Boolean 3538 3539 AMF.CMOF.Properties.CMOF_Property_Access 3540 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Composite 3541 (League.Holders.Booleans.Element (Value)); 3542 3543 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Derived then 3544 -- Property::isDerived : Boolean 3545 3546 AMF.CMOF.Properties.CMOF_Property_Access 3547 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived 3548 (League.Holders.Booleans.Element (Value)); 3549 3550 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Derived_Union then 3551 -- Property::isDerivedUnion : Boolean 3552 3553 AMF.CMOF.Properties.CMOF_Property_Access 3554 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived_Union 3555 (League.Holders.Booleans.Element (Value)); 3556 3557 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Redefinable_Element_Is_Leaf then 3558 -- RedefinableElement::isLeaf : Boolean 3559 3560 AMF.CMOF.Properties.CMOF_Property_Access 3561 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf 3562 (League.Holders.Booleans.Element (Value)); 3563 3564 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Ordered then 3565 -- MultiplicityElement::isOrdered : Boolean 3566 3567 AMF.CMOF.Properties.CMOF_Property_Access 3568 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered 3569 (League.Holders.Booleans.Element (Value)); 3570 3571 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Is_Read_Only then 3572 -- Property::isReadOnly : Boolean 3573 3574 AMF.CMOF.Properties.CMOF_Property_Access 3575 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only 3576 (League.Holders.Booleans.Element (Value)); 3577 3578 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Is_Unique then 3579 -- MultiplicityElement::isUnique : Boolean 3580 3581 AMF.CMOF.Properties.CMOF_Property_Access 3582 (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique 3583 (League.Holders.Booleans.Element (Value)); 3584 3585 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Lower then 3586 -- MultiplicityElement::lower : Integer 3587 3588 AMF.CMOF.Properties.CMOF_Property_Access 3589 (AMF.Internals.Helpers.To_Element (Self)).Set_Lower 3590 (AMF.Holders.Element (Value)); 3591 3592 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Name then 3593 -- NamedElement::name : String 3594 3595 AMF.CMOF.Properties.CMOF_Property_Access 3596 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3597 (AMF.Holders.Element (Value)); 3598 3599 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Property_Owning_Association_Association_Owned_End then 3600 -- Property::owningAssociation : Association 3601 3602 AMF.CMOF.Properties.CMOF_Property_Access 3603 (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Association 3604 (AMF.CMOF.Associations.CMOF_Association_Access (AMF.Holders.Elements.Element (Value))); 3605 3606 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Typed_Element_Type_A_Typed_Element then 3607 -- TypedElement::type : Type 3608 3609 AMF.CMOF.Properties.CMOF_Property_Access 3610 (AMF.Internals.Helpers.To_Element (Self)).Set_Type 3611 (AMF.CMOF.Types.CMOF_Type_Access (AMF.Holders.Elements.Element (Value))); 3612 3613 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Multiplicity_Element_Upper then 3614 -- MultiplicityElement::upper : UnlimitedNatural 3615 3616 AMF.CMOF.Properties.CMOF_Property_Access 3617 (AMF.Internals.Helpers.To_Element (Self)).Set_Upper 3618 (AMF.Holders.Element (Value)); 3619 3620 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Visibility then 3621 -- NamedElement::visibility : VisibilityKind 3622 3623 AMF.CMOF.Properties.CMOF_Property_Access 3624 (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility 3625 (AMF.CMOF.Holders.Element (Value)); 3626 3627 else 3628 raise Program_Error; 3629 end if; 3630 end CMOF_Property_Set; 3631 3632 ------------------ 3633 -- CMOF_Tag_Set -- 3634 ------------------ 3635 3636 procedure CMOF_Tag_Set is 3637 begin 3638 if Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Name then 3639 -- Tag::name : String 3640 3641 AMF.CMOF.Tags.CMOF_Tag_Access 3642 (AMF.Internals.Helpers.To_Element (Self)).Set_Name 3643 (League.Holders.Element (Value)); 3644 3645 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Tag_Owner_A_Owned_Tag then 3646 -- Tag::tagOwner : Element 3647 3648 AMF.CMOF.Tags.CMOF_Tag_Access 3649 (AMF.Internals.Helpers.To_Element (Self)).Set_Tag_Owner 3650 (AMF.CMOF.Elements.CMOF_Element_Access (AMF.Holders.Elements.Element (Value))); 3651 3652 elsif Property = AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Value then 3653 -- Tag::value : String 3654 3655 AMF.CMOF.Tags.CMOF_Tag_Access 3656 (AMF.Internals.Helpers.To_Element (Self)).Set_Value 3657 (League.Holders.Element (Value)); 3658 3659 else 3660 raise Program_Error; 3661 end if; 3662 end CMOF_Tag_Set; 3663 begin 3664 case CMOF_Element_Table.Table (Self).Kind is 3665 when AMF.Internals.Tables.CMOF_Types.E_None => 3666 raise Program_Error; 3667 3668 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Association => 3669 CMOF_Association_Set; 3670 3671 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Class => 3672 CMOF_Class_Set; 3673 3674 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Comment => 3675 CMOF_Comment_Set; 3676 3677 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Constraint => 3678 CMOF_Constraint_Set; 3679 3680 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Data_Type => 3681 CMOF_Data_Type_Set; 3682 3683 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Element_Import => 3684 CMOF_Element_Import_Set; 3685 3686 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Enumeration => 3687 CMOF_Enumeration_Set; 3688 3689 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Enumeration_Literal => 3690 CMOF_Enumeration_Literal_Set; 3691 3692 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Expression => 3693 CMOF_Expression_Set; 3694 3695 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Opaque_Expression => 3696 CMOF_Opaque_Expression_Set; 3697 3698 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Operation => 3699 CMOF_Operation_Set; 3700 3701 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package => 3702 CMOF_Package_Set; 3703 3704 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package_Import => 3705 CMOF_Package_Import_Set; 3706 3707 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Package_Merge => 3708 CMOF_Package_Merge_Set; 3709 3710 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Parameter => 3711 CMOF_Parameter_Set; 3712 3713 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Primitive_Type => 3714 CMOF_Primitive_Type_Set; 3715 3716 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Property => 3717 CMOF_Property_Set; 3718 3719 when AMF.Internals.Tables.CMOF_Types.E_CMOF_Tag => 3720 CMOF_Tag_Set; 3721 end case; 3722 end Set; 3723 3724end AMF.Internals.Tables.CMOF_Reflection; 3725