1------------------------------------------------------------------------------ 2-- -- 3-- Matreshka Project -- 4-- -- 5-- Ada Modeling Framework -- 6-- -- 7-- Runtime Library Component -- 8-- -- 9------------------------------------------------------------------------------ 10-- -- 11-- Copyright © 2012, Vadim Godunko <vgodunko@gmail.com> -- 12-- All rights reserved. -- 13-- -- 14-- Redistribution and use in source and binary forms, with or without -- 15-- modification, are permitted provided that the following conditions -- 16-- are met: -- 17-- -- 18-- * Redistributions of source code must retain the above copyright -- 19-- notice, this list of conditions and the following disclaimer. -- 20-- -- 21-- * Redistributions in binary form must reproduce the above copyright -- 22-- notice, this list of conditions and the following disclaimer in the -- 23-- documentation and/or other materials provided with the distribution. -- 24-- -- 25-- * Neither the name of the Vadim Godunko, IE nor the names of its -- 26-- contributors may be used to endorse or promote products derived from -- 27-- this software without specific prior written permission. -- 28-- -- 29-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -- 30-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -- 31-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -- 32-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -- 33-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -- 34-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED -- 35-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -- 36-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -- 37-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -- 38-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -- 39-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -- 40-- -- 41------------------------------------------------------------------------------ 42-- $Revision: 2857 $ $Date: 2012-04-12 23:59:25 +0400 (Thu, 12 Apr 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.Internals.Elements; 47with AMF.Internals.Extents; 48with AMF.Internals.Helpers; 49with AMF.Internals.Links; 50with AMF.Internals.Listener_Registry; 51with AMF.Internals.Tables.UML_Constructors; 52with AMF.Internals.Tables.UML_Metamodel; 53with AMF.UML.Holders.Aggregation_Kinds; 54with AMF.UML.Holders.Call_Concurrency_Kinds; 55with AMF.UML.Holders.Connector_Kinds; 56with AMF.UML.Holders.Expansion_Kinds; 57with AMF.UML.Holders.Interaction_Operator_Kinds; 58with AMF.UML.Holders.Message_Kinds; 59with AMF.UML.Holders.Message_Sorts; 60with AMF.UML.Holders.Object_Node_Ordering_Kinds; 61with AMF.UML.Holders.Parameter_Direction_Kinds; 62with AMF.UML.Holders.Parameter_Effect_Kinds; 63with AMF.UML.Holders.Pseudostate_Kinds; 64with AMF.UML.Holders.Transition_Kinds; 65with AMF.UML.Holders.Visibility_Kinds; 66 67package body AMF.Internals.Factories.UML_Factories is 68 69 None_Img : constant League.Strings.Universal_String 70 := League.Strings.To_Universal_String ("none"); 71 Shared_Img : constant League.Strings.Universal_String 72 := League.Strings.To_Universal_String ("shared"); 73 Composite_Img : constant League.Strings.Universal_String 74 := League.Strings.To_Universal_String ("composite"); 75 76 Sequential_Img : constant League.Strings.Universal_String 77 := League.Strings.To_Universal_String ("sequential"); 78 Guarded_Img : constant League.Strings.Universal_String 79 := League.Strings.To_Universal_String ("guarded"); 80 Concurrent_Img : constant League.Strings.Universal_String 81 := League.Strings.To_Universal_String ("concurrent"); 82 83 Assembly_Img : constant League.Strings.Universal_String 84 := League.Strings.To_Universal_String ("assembly"); 85 Delegation_Img : constant League.Strings.Universal_String 86 := League.Strings.To_Universal_String ("delegation"); 87 88 Parallel_Img : constant League.Strings.Universal_String 89 := League.Strings.To_Universal_String ("parallel"); 90 Iterative_Img : constant League.Strings.Universal_String 91 := League.Strings.To_Universal_String ("iterative"); 92 Stream_Img : constant League.Strings.Universal_String 93 := League.Strings.To_Universal_String ("stream"); 94 95 Seq_Img : constant League.Strings.Universal_String 96 := League.Strings.To_Universal_String ("seq"); 97 Alt_Img : constant League.Strings.Universal_String 98 := League.Strings.To_Universal_String ("alt"); 99 Opt_Img : constant League.Strings.Universal_String 100 := League.Strings.To_Universal_String ("opt"); 101 Break_Img : constant League.Strings.Universal_String 102 := League.Strings.To_Universal_String ("break"); 103 Par_Img : constant League.Strings.Universal_String 104 := League.Strings.To_Universal_String ("par"); 105 Strict_Img : constant League.Strings.Universal_String 106 := League.Strings.To_Universal_String ("strict"); 107 Loop_Img : constant League.Strings.Universal_String 108 := League.Strings.To_Universal_String ("loop"); 109 Critical_Img : constant League.Strings.Universal_String 110 := League.Strings.To_Universal_String ("critical"); 111 Neg_Img : constant League.Strings.Universal_String 112 := League.Strings.To_Universal_String ("neg"); 113 Assert_Img : constant League.Strings.Universal_String 114 := League.Strings.To_Universal_String ("assert"); 115 Ignore_Img : constant League.Strings.Universal_String 116 := League.Strings.To_Universal_String ("ignore"); 117 Consider_Img : constant League.Strings.Universal_String 118 := League.Strings.To_Universal_String ("consider"); 119 120 Complete_Img : constant League.Strings.Universal_String 121 := League.Strings.To_Universal_String ("complete"); 122 Lost_Img : constant League.Strings.Universal_String 123 := League.Strings.To_Universal_String ("lost"); 124 Found_Img : constant League.Strings.Universal_String 125 := League.Strings.To_Universal_String ("found"); 126 Unknown_Img : constant League.Strings.Universal_String 127 := League.Strings.To_Universal_String ("unknown"); 128 129 Synch_Call_Img : constant League.Strings.Universal_String 130 := League.Strings.To_Universal_String ("synchCall"); 131 Asynch_Call_Img : constant League.Strings.Universal_String 132 := League.Strings.To_Universal_String ("asynchCall"); 133 Asynch_Signal_Img : constant League.Strings.Universal_String 134 := League.Strings.To_Universal_String ("asynchSignal"); 135 Create_Message_Img : constant League.Strings.Universal_String 136 := League.Strings.To_Universal_String ("createMessage"); 137 Delete_Message_Img : constant League.Strings.Universal_String 138 := League.Strings.To_Universal_String ("deleteMessage"); 139 Reply_Img : constant League.Strings.Universal_String 140 := League.Strings.To_Universal_String ("reply"); 141 142 Unordered_Img : constant League.Strings.Universal_String 143 := League.Strings.To_Universal_String ("unordered"); 144 Ordered_Img : constant League.Strings.Universal_String 145 := League.Strings.To_Universal_String ("ordered"); 146 LIFO_Img : constant League.Strings.Universal_String 147 := League.Strings.To_Universal_String ("LIFO"); 148 FIFO_Img : constant League.Strings.Universal_String 149 := League.Strings.To_Universal_String ("FIFO"); 150 151 In_Img : constant League.Strings.Universal_String 152 := League.Strings.To_Universal_String ("in"); 153 Inout_Img : constant League.Strings.Universal_String 154 := League.Strings.To_Universal_String ("inout"); 155 Out_Img : constant League.Strings.Universal_String 156 := League.Strings.To_Universal_String ("out"); 157 Return_Img : constant League.Strings.Universal_String 158 := League.Strings.To_Universal_String ("return"); 159 160 Create_Img : constant League.Strings.Universal_String 161 := League.Strings.To_Universal_String ("create"); 162 Read_Img : constant League.Strings.Universal_String 163 := League.Strings.To_Universal_String ("read"); 164 Update_Img : constant League.Strings.Universal_String 165 := League.Strings.To_Universal_String ("update"); 166 Delete_Img : constant League.Strings.Universal_String 167 := League.Strings.To_Universal_String ("delete"); 168 169 Initial_Img : constant League.Strings.Universal_String 170 := League.Strings.To_Universal_String ("initial"); 171 Deep_History_Img : constant League.Strings.Universal_String 172 := League.Strings.To_Universal_String ("deepHistory"); 173 Shallow_History_Img : constant League.Strings.Universal_String 174 := League.Strings.To_Universal_String ("shallowHistory"); 175 Join_Img : constant League.Strings.Universal_String 176 := League.Strings.To_Universal_String ("join"); 177 Fork_Img : constant League.Strings.Universal_String 178 := League.Strings.To_Universal_String ("fork"); 179 Junction_Img : constant League.Strings.Universal_String 180 := League.Strings.To_Universal_String ("junction"); 181 Choice_Img : constant League.Strings.Universal_String 182 := League.Strings.To_Universal_String ("choice"); 183 Entry_Point_Img : constant League.Strings.Universal_String 184 := League.Strings.To_Universal_String ("entryPoint"); 185 Exit_Point_Img : constant League.Strings.Universal_String 186 := League.Strings.To_Universal_String ("exitPoint"); 187 Terminate_Img : constant League.Strings.Universal_String 188 := League.Strings.To_Universal_String ("terminate"); 189 190 Internal_Img : constant League.Strings.Universal_String 191 := League.Strings.To_Universal_String ("internal"); 192 Local_Img : constant League.Strings.Universal_String 193 := League.Strings.To_Universal_String ("local"); 194 External_Img : constant League.Strings.Universal_String 195 := League.Strings.To_Universal_String ("external"); 196 197 Public_Img : constant League.Strings.Universal_String 198 := League.Strings.To_Universal_String ("public"); 199 Private_Img : constant League.Strings.Universal_String 200 := League.Strings.To_Universal_String ("private"); 201 Protected_Img : constant League.Strings.Universal_String 202 := League.Strings.To_Universal_String ("protected"); 203 Package_Img : constant League.Strings.Universal_String 204 := League.Strings.To_Universal_String ("package"); 205 206 ----------------- 207 -- Constructor -- 208 ----------------- 209 210 function Constructor 211 (Extent : AMF.Internals.AMF_Extent) 212 return not null AMF.Factories.Factory_Access is 213 begin 214 return new UML_Factory'(Extent => Extent); 215 end Constructor; 216 217 ----------------------- 218 -- Convert_To_String -- 219 ----------------------- 220 221 overriding function Convert_To_String 222 (Self : not null access UML_Factory; 223 Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class; 224 Value : League.Holders.Holder) return League.Strings.Universal_String 225 is 226 pragma Unreferenced (Self); 227 228 DT : constant AMF.Internals.CMOF_Element 229 := AMF.Internals.Elements.Element_Base'Class (Data_Type.all).Element; 230 231 begin 232 if DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Aggregation_Kind then 233 declare 234 Item : constant AMF.UML.UML_Aggregation_Kind 235 := AMF.UML.Holders.Aggregation_Kinds.Element (Value); 236 237 begin 238 case Item is 239 when AMF.UML.None => 240 return None_Img; 241 242 when AMF.UML.Shared => 243 return Shared_Img; 244 245 when AMF.UML.Composite => 246 return Composite_Img; 247 end case; 248 end; 249 250 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Concurrency_Kind then 251 declare 252 Item : constant AMF.UML.UML_Call_Concurrency_Kind 253 := AMF.UML.Holders.Call_Concurrency_Kinds.Element (Value); 254 255 begin 256 case Item is 257 when AMF.UML.Sequential => 258 return Sequential_Img; 259 260 when AMF.UML.Guarded => 261 return Guarded_Img; 262 263 when AMF.UML.Concurrent => 264 return Concurrent_Img; 265 end case; 266 end; 267 268 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector_Kind then 269 declare 270 Item : constant AMF.UML.UML_Connector_Kind 271 := AMF.UML.Holders.Connector_Kinds.Element (Value); 272 273 begin 274 case Item is 275 when AMF.UML.Assembly => 276 return Assembly_Img; 277 278 when AMF.UML.Delegation => 279 return Delegation_Img; 280 end case; 281 end; 282 283 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Kind then 284 declare 285 Item : constant AMF.UML.UML_Expansion_Kind 286 := AMF.UML.Holders.Expansion_Kinds.Element (Value); 287 288 begin 289 case Item is 290 when AMF.UML.Parallel => 291 return Parallel_Img; 292 293 when AMF.UML.Iterative => 294 return Iterative_Img; 295 296 when AMF.UML.Stream => 297 return Stream_Img; 298 end case; 299 end; 300 301 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Operator_Kind then 302 declare 303 Item : constant AMF.UML.UML_Interaction_Operator_Kind 304 := AMF.UML.Holders.Interaction_Operator_Kinds.Element (Value); 305 306 begin 307 case Item is 308 when AMF.UML.Seq_Operator => 309 return Seq_Img; 310 311 when AMF.UML.Alt_Operator => 312 return Alt_Img; 313 314 when AMF.UML.Opt_Operator => 315 return Opt_Img; 316 317 when AMF.UML.Break_Operator => 318 return Break_Img; 319 320 when AMF.UML.Par_Operator => 321 return Par_Img; 322 323 when AMF.UML.Strict_Operator => 324 return Strict_Img; 325 326 when AMF.UML.Loop_Operator => 327 return Loop_Img; 328 329 when AMF.UML.Critical_Operator => 330 return Critical_Img; 331 332 when AMF.UML.Neg_Operator => 333 return Neg_Img; 334 335 when AMF.UML.Assert_Operator => 336 return Assert_Img; 337 338 when AMF.UML.Ignore_Operator => 339 return Ignore_Img; 340 341 when AMF.UML.Consider_Operator => 342 return Consider_Img; 343 end case; 344 end; 345 346 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Message_Kind then 347 declare 348 Item : constant AMF.UML.UML_Message_Kind 349 := AMF.UML.Holders.Message_Kinds.Element (Value); 350 351 begin 352 case Item is 353 when AMF.UML.Complete => 354 return Complete_Img; 355 356 when AMF.UML.Lost => 357 return Lost_Img; 358 359 when AMF.UML.Found => 360 return Found_Img; 361 362 when AMF.UML.Unknown => 363 return Unknown_Img; 364 end case; 365 end; 366 367 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Message_Sort then 368 declare 369 Item : constant AMF.UML.UML_Message_Sort 370 := AMF.UML.Holders.Message_Sorts.Element (Value); 371 372 begin 373 case Item is 374 when AMF.UML.Synch_Call => 375 return Synch_Call_Img; 376 377 when AMF.UML.Asynch_Call => 378 return Asynch_Call_Img; 379 380 when AMF.UML.Asynch_Signal => 381 return Asynch_Signal_Img; 382 383 when AMF.UML.Create_Message => 384 return Create_Message_Img; 385 386 when AMF.UML.Delete_Message => 387 return Delete_Message_Img; 388 389 when AMF.UML.Reply => 390 return Reply_Img; 391 end case; 392 end; 393 394 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Object_Node_Ordering_Kind then 395 declare 396 Item : constant AMF.UML.UML_Object_Node_Ordering_Kind 397 := AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value); 398 399 begin 400 case Item is 401 when AMF.UML.Unordered => 402 return Unordered_Img; 403 404 when AMF.UML.Ordered => 405 return Ordered_Img; 406 407 when AMF.UML.LIFO => 408 return LIFO_Img; 409 410 when AMF.UML.FIFO => 411 return FIFO_Img; 412 end case; 413 end; 414 415 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter_Direction_Kind then 416 declare 417 Item : constant AMF.UML.UML_Parameter_Direction_Kind 418 := AMF.UML.Holders.Parameter_Direction_Kinds.Element (Value); 419 420 begin 421 case Item is 422 when AMF.UML.In_Parameter => 423 return In_Img; 424 425 when AMF.UML.In_Out_Parameter => 426 return Inout_Img; 427 428 when AMF.UML.Out_Parameter => 429 return Out_Img; 430 431 when AMF.UML.Return_Parameter => 432 return Return_Img; 433 end case; 434 end; 435 436 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter_Effect_Kind then 437 declare 438 Item : constant AMF.UML.UML_Parameter_Effect_Kind 439 := AMF.UML.Holders.Parameter_Effect_Kinds.Element (Value); 440 441 begin 442 case Item is 443 when AMF.UML.Create => 444 return Create_Img; 445 446 when AMF.UML.Read => 447 return Read_Img; 448 449 when AMF.UML.Update => 450 return Update_Img; 451 452 when AMF.UML.Delete => 453 return Delete_Img; 454 end case; 455 end; 456 457 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Pseudostate_Kind then 458 declare 459 Item : constant AMF.UML.UML_Pseudostate_Kind 460 := AMF.UML.Holders.Pseudostate_Kinds.Element (Value); 461 462 begin 463 case Item is 464 when AMF.UML.Initial_Pseudostate => 465 return Initial_Img; 466 467 when AMF.UML.Deep_History_Pseudostate => 468 return Deep_History_Img; 469 470 when AMF.UML.Shallow_History_Pseudostate => 471 return Shallow_History_Img; 472 473 when AMF.UML.Join_Pseudostate => 474 return Join_Img; 475 476 when AMF.UML.Fork_Pseudostate => 477 return Fork_Img; 478 479 when AMF.UML.Junction_Pseudostate => 480 return Junction_Img; 481 482 when AMF.UML.Choice_Pseudostate => 483 return Choice_Img; 484 485 when AMF.UML.Entry_Point_Pseudostate => 486 return Entry_Point_Img; 487 488 when AMF.UML.Exit_Point_Pseudostate => 489 return Exit_Point_Img; 490 491 when AMF.UML.Terminate_Pseudostate => 492 return Terminate_Img; 493 end case; 494 end; 495 496 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Transition_Kind then 497 declare 498 Item : constant AMF.UML.UML_Transition_Kind 499 := AMF.UML.Holders.Transition_Kinds.Element (Value); 500 501 begin 502 case Item is 503 when AMF.UML.Internal => 504 return Internal_Img; 505 506 when AMF.UML.Local => 507 return Local_Img; 508 509 when AMF.UML.External => 510 return External_Img; 511 end case; 512 end; 513 514 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Visibility_Kind then 515 declare 516 Item : constant AMF.UML.UML_Visibility_Kind 517 := AMF.UML.Holders.Visibility_Kinds.Element (Value); 518 519 begin 520 case Item is 521 when AMF.UML.Public_Visibility => 522 return Public_Img; 523 524 when AMF.UML.Private_Visibility => 525 return Private_Img; 526 527 when AMF.UML.Protected_Visibility => 528 return Protected_Img; 529 530 when AMF.UML.Package_Visibility => 531 return Package_Img; 532 end case; 533 end; 534 535 else 536 raise Program_Error; 537 end if; 538 end Convert_To_String; 539 540 ------------ 541 -- Create -- 542 ------------ 543 544 overriding function Create 545 (Self : not null access UML_Factory; 546 Meta_Class : not null access AMF.CMOF.Classes.CMOF_Class'Class) 547 return not null AMF.Elements.Element_Access 548 is 549 MC : constant AMF.Internals.CMOF_Element 550 := AMF.Internals.Elements.Element_Base'Class (Meta_Class.all).Element; 551 Element : AMF.Internals.AMF_Element; 552 553 begin 554 if MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Abstraction then 555 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Abstraction; 556 557 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Accept_Call_Action then 558 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Accept_Call_Action; 559 560 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Accept_Event_Action then 561 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Accept_Event_Action; 562 563 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Action_Execution_Specification then 564 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Action_Execution_Specification; 565 566 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Action_Input_Pin then 567 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Action_Input_Pin; 568 569 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity then 570 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Activity; 571 572 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Final_Node then 573 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Activity_Final_Node; 574 575 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Parameter_Node then 576 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Activity_Parameter_Node; 577 578 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Partition then 579 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Activity_Partition; 580 581 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Actor then 582 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Actor; 583 584 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Add_Structural_Feature_Value_Action then 585 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Add_Structural_Feature_Value_Action; 586 587 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Add_Variable_Value_Action then 588 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Add_Variable_Value_Action; 589 590 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Any_Receive_Event then 591 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Any_Receive_Event; 592 593 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Artifact then 594 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Artifact; 595 596 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Association then 597 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Association; 598 599 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Association_Class then 600 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Association_Class; 601 602 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Behavior_Execution_Specification then 603 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Behavior_Execution_Specification; 604 605 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Broadcast_Signal_Action then 606 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Broadcast_Signal_Action; 607 608 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Behavior_Action then 609 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Call_Behavior_Action; 610 611 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Event then 612 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Call_Event; 613 614 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Operation_Action then 615 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Call_Operation_Action; 616 617 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Central_Buffer_Node then 618 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Central_Buffer_Node; 619 620 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Change_Event then 621 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Change_Event; 622 623 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Class then 624 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Class; 625 626 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Classifier_Template_Parameter then 627 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Classifier_Template_Parameter; 628 629 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Clause then 630 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Clause; 631 632 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Association_Action then 633 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Clear_Association_Action; 634 635 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Structural_Feature_Action then 636 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Clear_Structural_Feature_Action; 637 638 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Variable_Action then 639 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Clear_Variable_Action; 640 641 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Collaboration then 642 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Collaboration; 643 644 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Collaboration_Use then 645 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Collaboration_Use; 646 647 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Combined_Fragment then 648 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Combined_Fragment; 649 650 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Comment then 651 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Comment; 652 653 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Communication_Path then 654 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Communication_Path; 655 656 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Component then 657 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Component; 658 659 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Component_Realization then 660 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Component_Realization; 661 662 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Conditional_Node then 663 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Conditional_Node; 664 665 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Connectable_Element_Template_Parameter then 666 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Connectable_Element_Template_Parameter; 667 668 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Connection_Point_Reference then 669 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Connection_Point_Reference; 670 671 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector then 672 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Connector; 673 674 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector_End then 675 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Connector_End; 676 677 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Consider_Ignore_Fragment then 678 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Consider_Ignore_Fragment; 679 680 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Constraint then 681 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Constraint; 682 683 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Continuation then 684 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Continuation; 685 686 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Control_Flow then 687 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Control_Flow; 688 689 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Link_Action then 690 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Create_Link_Action; 691 692 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Link_Object_Action then 693 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Create_Link_Object_Action; 694 695 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Object_Action then 696 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Create_Object_Action; 697 698 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Data_Store_Node then 699 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Data_Store_Node; 700 701 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Data_Type then 702 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Data_Type; 703 704 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Decision_Node then 705 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Decision_Node; 706 707 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Dependency then 708 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Dependency; 709 710 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Deployment then 711 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Deployment; 712 713 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Deployment_Specification then 714 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Deployment_Specification; 715 716 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Destroy_Link_Action then 717 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Destroy_Link_Action; 718 719 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Destroy_Object_Action then 720 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Destroy_Object_Action; 721 722 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Destruction_Occurrence_Specification then 723 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Destruction_Occurrence_Specification; 724 725 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Device then 726 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Device; 727 728 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration then 729 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Duration; 730 731 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Constraint then 732 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Duration_Constraint; 733 734 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Interval then 735 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Duration_Interval; 736 737 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Observation then 738 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Duration_Observation; 739 740 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Element_Import then 741 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Element_Import; 742 743 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Enumeration then 744 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Enumeration; 745 746 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Enumeration_Literal then 747 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Enumeration_Literal; 748 749 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Exception_Handler then 750 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Exception_Handler; 751 752 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Execution_Environment then 753 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Execution_Environment; 754 755 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Execution_Occurrence_Specification then 756 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Execution_Occurrence_Specification; 757 758 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Node then 759 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Expansion_Node; 760 761 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Region then 762 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Expansion_Region; 763 764 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Expression then 765 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Expression; 766 767 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Extend then 768 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Extend; 769 770 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension then 771 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Extension; 772 773 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension_End then 774 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Extension_End; 775 776 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension_Point then 777 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Extension_Point; 778 779 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Final_State then 780 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Final_State; 781 782 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Flow_Final_Node then 783 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Flow_Final_Node; 784 785 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Fork_Node then 786 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Fork_Node; 787 788 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Function_Behavior then 789 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Function_Behavior; 790 791 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Gate then 792 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Gate; 793 794 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_General_Ordering then 795 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_General_Ordering; 796 797 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Generalization then 798 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Generalization; 799 800 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Generalization_Set then 801 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Generalization_Set; 802 803 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Image then 804 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Image; 805 806 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Include then 807 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Include; 808 809 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Information_Flow then 810 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Information_Flow; 811 812 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Information_Item then 813 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Information_Item; 814 815 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Initial_Node then 816 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Initial_Node; 817 818 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Input_Pin then 819 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Input_Pin; 820 821 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Instance_Specification then 822 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Instance_Specification; 823 824 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Instance_Value then 825 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Instance_Value; 826 827 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction then 828 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interaction; 829 830 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Constraint then 831 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interaction_Constraint; 832 833 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Operand then 834 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interaction_Operand; 835 836 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Use then 837 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interaction_Use; 838 839 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interface then 840 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interface; 841 842 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interface_Realization then 843 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interface_Realization; 844 845 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interruptible_Activity_Region then 846 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interruptible_Activity_Region; 847 848 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interval then 849 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interval; 850 851 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interval_Constraint then 852 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Interval_Constraint; 853 854 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Join_Node then 855 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Join_Node; 856 857 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Lifeline then 858 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Lifeline; 859 860 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Creation_Data then 861 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Link_End_Creation_Data; 862 863 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Data then 864 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Link_End_Data; 865 866 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Destruction_Data then 867 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Link_End_Destruction_Data; 868 869 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Boolean then 870 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Literal_Boolean; 871 872 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Integer then 873 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Literal_Integer; 874 875 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Null then 876 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Literal_Null; 877 878 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Real then 879 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Literal_Real; 880 881 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_String then 882 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Literal_String; 883 884 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Unlimited_Natural then 885 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Literal_Unlimited_Natural; 886 887 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Loop_Node then 888 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Loop_Node; 889 890 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Manifestation then 891 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Manifestation; 892 893 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Merge_Node then 894 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Merge_Node; 895 896 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Message then 897 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Message; 898 899 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Message_Occurrence_Specification then 900 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Message_Occurrence_Specification; 901 902 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Model then 903 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Model; 904 905 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Node then 906 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Node; 907 908 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Object_Flow then 909 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Object_Flow; 910 911 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Occurrence_Specification then 912 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Occurrence_Specification; 913 914 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Action then 915 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Opaque_Action; 916 917 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Behavior then 918 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Opaque_Behavior; 919 920 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Expression then 921 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Opaque_Expression; 922 923 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Operation then 924 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Operation; 925 926 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Operation_Template_Parameter then 927 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Operation_Template_Parameter; 928 929 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Output_Pin then 930 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Output_Pin; 931 932 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Package then 933 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Package; 934 935 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Package_Import then 936 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Package_Import; 937 938 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Package_Merge then 939 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Package_Merge; 940 941 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter then 942 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Parameter; 943 944 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter_Set then 945 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Parameter_Set; 946 947 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Part_Decomposition then 948 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Part_Decomposition; 949 950 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Port then 951 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Port; 952 953 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Primitive_Type then 954 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Primitive_Type; 955 956 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Profile then 957 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Profile; 958 959 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Profile_Application then 960 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Profile_Application; 961 962 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Property then 963 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Property; 964 965 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_Conformance then 966 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Protocol_Conformance; 967 968 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_State_Machine then 969 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Protocol_State_Machine; 970 971 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_Transition then 972 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Protocol_Transition; 973 974 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Pseudostate then 975 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Pseudostate; 976 977 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Qualifier_Value then 978 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Qualifier_Value; 979 980 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Raise_Exception_Action then 981 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Raise_Exception_Action; 982 983 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Extent_Action then 984 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Extent_Action; 985 986 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Is_Classified_Object_Action then 987 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Is_Classified_Object_Action; 988 989 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Action then 990 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Link_Action; 991 992 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Object_End_Action then 993 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Link_Object_End_Action; 994 995 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Object_End_Qualifier_Action then 996 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Link_Object_End_Qualifier_Action; 997 998 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Self_Action then 999 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Self_Action; 1000 1001 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Structural_Feature_Action then 1002 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Structural_Feature_Action; 1003 1004 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Variable_Action then 1005 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Read_Variable_Action; 1006 1007 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Realization then 1008 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Realization; 1009 1010 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Reception then 1011 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Reception; 1012 1013 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Reclassify_Object_Action then 1014 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Reclassify_Object_Action; 1015 1016 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Redefinable_Template_Signature then 1017 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Redefinable_Template_Signature; 1018 1019 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Reduce_Action then 1020 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Reduce_Action; 1021 1022 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Region then 1023 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Region; 1024 1025 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Remove_Structural_Feature_Value_Action then 1026 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Remove_Structural_Feature_Value_Action; 1027 1028 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Remove_Variable_Value_Action then 1029 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Remove_Variable_Value_Action; 1030 1031 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Reply_Action then 1032 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Reply_Action; 1033 1034 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Send_Object_Action then 1035 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Send_Object_Action; 1036 1037 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Send_Signal_Action then 1038 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Send_Signal_Action; 1039 1040 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Sequence_Node then 1041 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Sequence_Node; 1042 1043 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Signal then 1044 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Signal; 1045 1046 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Signal_Event then 1047 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Signal_Event; 1048 1049 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Slot then 1050 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Slot; 1051 1052 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Start_Classifier_Behavior_Action then 1053 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Start_Classifier_Behavior_Action; 1054 1055 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Start_Object_Behavior_Action then 1056 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Start_Object_Behavior_Action; 1057 1058 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_State then 1059 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_State; 1060 1061 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_State_Invariant then 1062 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_State_Invariant; 1063 1064 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_State_Machine then 1065 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_State_Machine; 1066 1067 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Stereotype then 1068 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Stereotype; 1069 1070 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_String_Expression then 1071 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_String_Expression; 1072 1073 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Structured_Activity_Node then 1074 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Structured_Activity_Node; 1075 1076 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Substitution then 1077 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Substitution; 1078 1079 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Binding then 1080 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Template_Binding; 1081 1082 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Parameter then 1083 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Template_Parameter; 1084 1085 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Parameter_Substitution then 1086 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Template_Parameter_Substitution; 1087 1088 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Signature then 1089 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Template_Signature; 1090 1091 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Test_Identity_Action then 1092 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Test_Identity_Action; 1093 1094 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Constraint then 1095 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Time_Constraint; 1096 1097 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Event then 1098 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Time_Event; 1099 1100 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Expression then 1101 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Time_Expression; 1102 1103 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Interval then 1104 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Time_Interval; 1105 1106 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Observation then 1107 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Time_Observation; 1108 1109 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Transition then 1110 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Transition; 1111 1112 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Trigger then 1113 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Trigger; 1114 1115 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Unmarshall_Action then 1116 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Unmarshall_Action; 1117 1118 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Usage then 1119 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Usage; 1120 1121 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Use_Case then 1122 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Use_Case; 1123 1124 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Value_Pin then 1125 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Value_Pin; 1126 1127 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Value_Specification_Action then 1128 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Value_Specification_Action; 1129 1130 elsif MC = AMF.Internals.Tables.UML_Metamodel.MC_UML_Variable then 1131 Element := AMF.Internals.Tables.UML_Constructors.Create_UML_Variable; 1132 1133 else 1134 raise Program_Error; 1135 end if; 1136 1137 AMF.Internals.Extents.Internal_Append (Self.Extent, Element); 1138 AMF.Internals.Listener_Registry.Notify_Instance_Create 1139 (AMF.Internals.Helpers.To_Element (Element)); 1140 1141 return AMF.Internals.Helpers.To_Element (Element); 1142 end Create; 1143 1144 ------------------------ 1145 -- Create_From_String -- 1146 ------------------------ 1147 1148 overriding function Create_From_String 1149 (Self : not null access UML_Factory; 1150 Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class; 1151 Image : League.Strings.Universal_String) return League.Holders.Holder 1152 is 1153 pragma Unreferenced (Self); 1154 1155 use type League.Strings.Universal_String; 1156 1157 DT : constant AMF.Internals.CMOF_Element 1158 := AMF.Internals.Elements.Element_Base'Class (Data_Type.all).Element; 1159 1160 begin 1161 if DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Aggregation_Kind then 1162 if Image = None_Img then 1163 return 1164 AMF.UML.Holders.Aggregation_Kinds.To_Holder 1165 (AMF.UML.None); 1166 1167 elsif Image = Shared_Img then 1168 return 1169 AMF.UML.Holders.Aggregation_Kinds.To_Holder 1170 (AMF.UML.Shared); 1171 1172 elsif Image = Composite_Img then 1173 return 1174 AMF.UML.Holders.Aggregation_Kinds.To_Holder 1175 (AMF.UML.Composite); 1176 1177 else 1178 raise Constraint_Error; 1179 end if; 1180 1181 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Concurrency_Kind then 1182 if Image = Sequential_Img then 1183 return 1184 AMF.UML.Holders.Call_Concurrency_Kinds.To_Holder 1185 (AMF.UML.Sequential); 1186 1187 elsif Image = Guarded_Img then 1188 return 1189 AMF.UML.Holders.Call_Concurrency_Kinds.To_Holder 1190 (AMF.UML.Guarded); 1191 1192 elsif Image = Concurrent_Img then 1193 return 1194 AMF.UML.Holders.Call_Concurrency_Kinds.To_Holder 1195 (AMF.UML.Concurrent); 1196 1197 else 1198 raise Constraint_Error; 1199 end if; 1200 1201 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector_Kind then 1202 if Image = Assembly_Img then 1203 return 1204 AMF.UML.Holders.Connector_Kinds.To_Holder 1205 (AMF.UML.Assembly); 1206 1207 elsif Image = Delegation_Img then 1208 return 1209 AMF.UML.Holders.Connector_Kinds.To_Holder 1210 (AMF.UML.Delegation); 1211 1212 else 1213 raise Constraint_Error; 1214 end if; 1215 1216 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Kind then 1217 if Image = Parallel_Img then 1218 return 1219 AMF.UML.Holders.Expansion_Kinds.To_Holder 1220 (AMF.UML.Parallel); 1221 1222 elsif Image = Iterative_Img then 1223 return 1224 AMF.UML.Holders.Expansion_Kinds.To_Holder 1225 (AMF.UML.Iterative); 1226 1227 elsif Image = Stream_Img then 1228 return 1229 AMF.UML.Holders.Expansion_Kinds.To_Holder 1230 (AMF.UML.Stream); 1231 1232 else 1233 raise Constraint_Error; 1234 end if; 1235 1236 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Operator_Kind then 1237 if Image = Seq_Img then 1238 return 1239 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1240 (AMF.UML.Seq_Operator); 1241 1242 elsif Image = Alt_Img then 1243 return 1244 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1245 (AMF.UML.Alt_Operator); 1246 1247 elsif Image = Opt_Img then 1248 return 1249 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1250 (AMF.UML.Opt_Operator); 1251 1252 elsif Image = Break_Img then 1253 return 1254 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1255 (AMF.UML.Break_Operator); 1256 1257 elsif Image = Par_Img then 1258 return 1259 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1260 (AMF.UML.Par_Operator); 1261 1262 elsif Image = Strict_Img then 1263 return 1264 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1265 (AMF.UML.Strict_Operator); 1266 1267 elsif Image = Loop_Img then 1268 return 1269 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1270 (AMF.UML.Loop_Operator); 1271 1272 elsif Image = Critical_Img then 1273 return 1274 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1275 (AMF.UML.Critical_Operator); 1276 1277 elsif Image = Neg_Img then 1278 return 1279 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1280 (AMF.UML.Neg_Operator); 1281 1282 elsif Image = Assert_Img then 1283 return 1284 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1285 (AMF.UML.Assert_Operator); 1286 1287 elsif Image = Ignore_Img then 1288 return 1289 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1290 (AMF.UML.Ignore_Operator); 1291 1292 elsif Image = Consider_Img then 1293 return 1294 AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder 1295 (AMF.UML.Consider_Operator); 1296 1297 else 1298 raise Constraint_Error; 1299 end if; 1300 1301 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Message_Kind then 1302 if Image = Complete_Img then 1303 return 1304 AMF.UML.Holders.Message_Kinds.To_Holder 1305 (AMF.UML.Complete); 1306 1307 elsif Image = Lost_Img then 1308 return 1309 AMF.UML.Holders.Message_Kinds.To_Holder 1310 (AMF.UML.Lost); 1311 1312 elsif Image = Found_Img then 1313 return 1314 AMF.UML.Holders.Message_Kinds.To_Holder 1315 (AMF.UML.Found); 1316 1317 elsif Image = Unknown_Img then 1318 return 1319 AMF.UML.Holders.Message_Kinds.To_Holder 1320 (AMF.UML.Unknown); 1321 1322 else 1323 raise Constraint_Error; 1324 end if; 1325 1326 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Message_Sort then 1327 if Image = Synch_Call_Img then 1328 return 1329 AMF.UML.Holders.Message_Sorts.To_Holder 1330 (AMF.UML.Synch_Call); 1331 1332 elsif Image = Asynch_Call_Img then 1333 return 1334 AMF.UML.Holders.Message_Sorts.To_Holder 1335 (AMF.UML.Asynch_Call); 1336 1337 elsif Image = Asynch_Signal_Img then 1338 return 1339 AMF.UML.Holders.Message_Sorts.To_Holder 1340 (AMF.UML.Asynch_Signal); 1341 1342 elsif Image = Create_Message_Img then 1343 return 1344 AMF.UML.Holders.Message_Sorts.To_Holder 1345 (AMF.UML.Create_Message); 1346 1347 elsif Image = Delete_Message_Img then 1348 return 1349 AMF.UML.Holders.Message_Sorts.To_Holder 1350 (AMF.UML.Delete_Message); 1351 1352 elsif Image = Reply_Img then 1353 return 1354 AMF.UML.Holders.Message_Sorts.To_Holder 1355 (AMF.UML.Reply); 1356 1357 else 1358 raise Constraint_Error; 1359 end if; 1360 1361 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Object_Node_Ordering_Kind then 1362 if Image = Unordered_Img then 1363 return 1364 AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder 1365 (AMF.UML.Unordered); 1366 1367 elsif Image = Ordered_Img then 1368 return 1369 AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder 1370 (AMF.UML.Ordered); 1371 1372 elsif Image = LIFO_Img then 1373 return 1374 AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder 1375 (AMF.UML.LIFO); 1376 1377 elsif Image = FIFO_Img then 1378 return 1379 AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder 1380 (AMF.UML.FIFO); 1381 1382 else 1383 raise Constraint_Error; 1384 end if; 1385 1386 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter_Direction_Kind then 1387 if Image = In_Img then 1388 return 1389 AMF.UML.Holders.Parameter_Direction_Kinds.To_Holder 1390 (AMF.UML.In_Parameter); 1391 1392 elsif Image = Inout_Img then 1393 return 1394 AMF.UML.Holders.Parameter_Direction_Kinds.To_Holder 1395 (AMF.UML.In_Out_Parameter); 1396 1397 elsif Image = Out_Img then 1398 return 1399 AMF.UML.Holders.Parameter_Direction_Kinds.To_Holder 1400 (AMF.UML.Out_Parameter); 1401 1402 elsif Image = Return_Img then 1403 return 1404 AMF.UML.Holders.Parameter_Direction_Kinds.To_Holder 1405 (AMF.UML.Return_Parameter); 1406 1407 else 1408 raise Constraint_Error; 1409 end if; 1410 1411 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter_Effect_Kind then 1412 if Image = Create_Img then 1413 return 1414 AMF.UML.Holders.Parameter_Effect_Kinds.To_Holder 1415 (AMF.UML.Create); 1416 1417 elsif Image = Read_Img then 1418 return 1419 AMF.UML.Holders.Parameter_Effect_Kinds.To_Holder 1420 (AMF.UML.Read); 1421 1422 elsif Image = Update_Img then 1423 return 1424 AMF.UML.Holders.Parameter_Effect_Kinds.To_Holder 1425 (AMF.UML.Update); 1426 1427 elsif Image = Delete_Img then 1428 return 1429 AMF.UML.Holders.Parameter_Effect_Kinds.To_Holder 1430 (AMF.UML.Delete); 1431 1432 else 1433 raise Constraint_Error; 1434 end if; 1435 1436 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Pseudostate_Kind then 1437 if Image = Initial_Img then 1438 return 1439 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1440 (AMF.UML.Initial_Pseudostate); 1441 1442 elsif Image = Deep_History_Img then 1443 return 1444 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1445 (AMF.UML.Deep_History_Pseudostate); 1446 1447 elsif Image = Shallow_History_Img then 1448 return 1449 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1450 (AMF.UML.Shallow_History_Pseudostate); 1451 1452 elsif Image = Join_Img then 1453 return 1454 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1455 (AMF.UML.Join_Pseudostate); 1456 1457 elsif Image = Fork_Img then 1458 return 1459 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1460 (AMF.UML.Fork_Pseudostate); 1461 1462 elsif Image = Junction_Img then 1463 return 1464 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1465 (AMF.UML.Junction_Pseudostate); 1466 1467 elsif Image = Choice_Img then 1468 return 1469 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1470 (AMF.UML.Choice_Pseudostate); 1471 1472 elsif Image = Entry_Point_Img then 1473 return 1474 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1475 (AMF.UML.Entry_Point_Pseudostate); 1476 1477 elsif Image = Exit_Point_Img then 1478 return 1479 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1480 (AMF.UML.Exit_Point_Pseudostate); 1481 1482 elsif Image = Terminate_Img then 1483 return 1484 AMF.UML.Holders.Pseudostate_Kinds.To_Holder 1485 (AMF.UML.Terminate_Pseudostate); 1486 1487 else 1488 raise Constraint_Error; 1489 end if; 1490 1491 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Transition_Kind then 1492 if Image = Internal_Img then 1493 return 1494 AMF.UML.Holders.Transition_Kinds.To_Holder 1495 (AMF.UML.Internal); 1496 1497 elsif Image = Local_Img then 1498 return 1499 AMF.UML.Holders.Transition_Kinds.To_Holder 1500 (AMF.UML.Local); 1501 1502 elsif Image = External_Img then 1503 return 1504 AMF.UML.Holders.Transition_Kinds.To_Holder 1505 (AMF.UML.External); 1506 1507 else 1508 raise Constraint_Error; 1509 end if; 1510 1511 elsif DT = AMF.Internals.Tables.UML_Metamodel.MC_UML_Visibility_Kind then 1512 if Image = Public_Img then 1513 return 1514 AMF.UML.Holders.Visibility_Kinds.To_Holder 1515 (AMF.UML.Public_Visibility); 1516 1517 elsif Image = Private_Img then 1518 return 1519 AMF.UML.Holders.Visibility_Kinds.To_Holder 1520 (AMF.UML.Private_Visibility); 1521 1522 elsif Image = Protected_Img then 1523 return 1524 AMF.UML.Holders.Visibility_Kinds.To_Holder 1525 (AMF.UML.Protected_Visibility); 1526 1527 elsif Image = Package_Img then 1528 return 1529 AMF.UML.Holders.Visibility_Kinds.To_Holder 1530 (AMF.UML.Package_Visibility); 1531 1532 else 1533 raise Constraint_Error; 1534 end if; 1535 1536 else 1537 raise Program_Error; 1538 end if; 1539 end Create_From_String; 1540 1541 ----------------- 1542 -- Create_Link -- 1543 ----------------- 1544 1545 overriding function Create_Link 1546 (Self : not null access UML_Factory; 1547 Association : 1548 not null access AMF.CMOF.Associations.CMOF_Association'Class; 1549 First_Element : not null AMF.Elements.Element_Access; 1550 Second_Element : not null AMF.Elements.Element_Access) 1551 return not null AMF.Links.Link_Access 1552 is 1553 pragma Unreferenced (Self); 1554 1555 begin 1556 return 1557 AMF.Internals.Links.Proxy 1558 (AMF.Internals.Links.Create_Link 1559 (AMF.Internals.Elements.Element_Base'Class 1560 (Association.all).Element, 1561 AMF.Internals.Helpers.To_Element (First_Element), 1562 AMF.Internals.Helpers.To_Element (Second_Element))); 1563 end Create_Link; 1564 1565 ----------------- 1566 -- Get_Package -- 1567 ----------------- 1568 1569 overriding function Get_Package 1570 (Self : not null access constant UML_Factory) 1571 return AMF.CMOF.Packages.Collections.Set_Of_CMOF_Package 1572 is 1573 pragma Unreferenced (Self); 1574 1575 begin 1576 return Result : AMF.CMOF.Packages.Collections.Set_Of_CMOF_Package do 1577 Result.Add (Get_Package); 1578 end return; 1579 end Get_Package; 1580 1581 ----------------- 1582 -- Get_Package -- 1583 ----------------- 1584 1585 function Get_Package return not null AMF.CMOF.Packages.CMOF_Package_Access is 1586 begin 1587 return 1588 AMF.CMOF.Packages.CMOF_Package_Access 1589 (AMF.Internals.Helpers.To_Element 1590 (AMF.Internals.Tables.UML_Metamodel.MM_UML_UML)); 1591 end Get_Package; 1592 1593 ------------------------ 1594 -- Create_Abstraction -- 1595 ------------------------ 1596 1597 overriding function Create_Abstraction 1598 (Self : not null access UML_Factory) 1599 return AMF.UML.Abstractions.UML_Abstraction_Access is 1600 begin 1601 return 1602 AMF.UML.Abstractions.UML_Abstraction_Access 1603 (Self.Create 1604 (AMF.CMOF.Classes.CMOF_Class_Access 1605 (AMF.Internals.Helpers.To_Element 1606 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Abstraction)))); 1607 end Create_Abstraction; 1608 1609 ------------------------------- 1610 -- Create_Accept_Call_Action -- 1611 ------------------------------- 1612 1613 overriding function Create_Accept_Call_Action 1614 (Self : not null access UML_Factory) 1615 return AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access is 1616 begin 1617 return 1618 AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access 1619 (Self.Create 1620 (AMF.CMOF.Classes.CMOF_Class_Access 1621 (AMF.Internals.Helpers.To_Element 1622 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Accept_Call_Action)))); 1623 end Create_Accept_Call_Action; 1624 1625 -------------------------------- 1626 -- Create_Accept_Event_Action -- 1627 -------------------------------- 1628 1629 overriding function Create_Accept_Event_Action 1630 (Self : not null access UML_Factory) 1631 return AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access is 1632 begin 1633 return 1634 AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access 1635 (Self.Create 1636 (AMF.CMOF.Classes.CMOF_Class_Access 1637 (AMF.Internals.Helpers.To_Element 1638 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Accept_Event_Action)))); 1639 end Create_Accept_Event_Action; 1640 1641 ------------------------------------------- 1642 -- Create_Action_Execution_Specification -- 1643 ------------------------------------------- 1644 1645 overriding function Create_Action_Execution_Specification 1646 (Self : not null access UML_Factory) 1647 return AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access is 1648 begin 1649 return 1650 AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access 1651 (Self.Create 1652 (AMF.CMOF.Classes.CMOF_Class_Access 1653 (AMF.Internals.Helpers.To_Element 1654 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Action_Execution_Specification)))); 1655 end Create_Action_Execution_Specification; 1656 1657 ----------------------------- 1658 -- Create_Action_Input_Pin -- 1659 ----------------------------- 1660 1661 overriding function Create_Action_Input_Pin 1662 (Self : not null access UML_Factory) 1663 return AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access is 1664 begin 1665 return 1666 AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access 1667 (Self.Create 1668 (AMF.CMOF.Classes.CMOF_Class_Access 1669 (AMF.Internals.Helpers.To_Element 1670 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Action_Input_Pin)))); 1671 end Create_Action_Input_Pin; 1672 1673 --------------------- 1674 -- Create_Activity -- 1675 --------------------- 1676 1677 overriding function Create_Activity 1678 (Self : not null access UML_Factory) 1679 return AMF.UML.Activities.UML_Activity_Access is 1680 begin 1681 return 1682 AMF.UML.Activities.UML_Activity_Access 1683 (Self.Create 1684 (AMF.CMOF.Classes.CMOF_Class_Access 1685 (AMF.Internals.Helpers.To_Element 1686 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity)))); 1687 end Create_Activity; 1688 1689 -------------------------------- 1690 -- Create_Activity_Final_Node -- 1691 -------------------------------- 1692 1693 overriding function Create_Activity_Final_Node 1694 (Self : not null access UML_Factory) 1695 return AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access is 1696 begin 1697 return 1698 AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access 1699 (Self.Create 1700 (AMF.CMOF.Classes.CMOF_Class_Access 1701 (AMF.Internals.Helpers.To_Element 1702 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Final_Node)))); 1703 end Create_Activity_Final_Node; 1704 1705 ------------------------------------ 1706 -- Create_Activity_Parameter_Node -- 1707 ------------------------------------ 1708 1709 overriding function Create_Activity_Parameter_Node 1710 (Self : not null access UML_Factory) 1711 return AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access is 1712 begin 1713 return 1714 AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access 1715 (Self.Create 1716 (AMF.CMOF.Classes.CMOF_Class_Access 1717 (AMF.Internals.Helpers.To_Element 1718 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Parameter_Node)))); 1719 end Create_Activity_Parameter_Node; 1720 1721 ------------------------------- 1722 -- Create_Activity_Partition -- 1723 ------------------------------- 1724 1725 overriding function Create_Activity_Partition 1726 (Self : not null access UML_Factory) 1727 return AMF.UML.Activity_Partitions.UML_Activity_Partition_Access is 1728 begin 1729 return 1730 AMF.UML.Activity_Partitions.UML_Activity_Partition_Access 1731 (Self.Create 1732 (AMF.CMOF.Classes.CMOF_Class_Access 1733 (AMF.Internals.Helpers.To_Element 1734 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Partition)))); 1735 end Create_Activity_Partition; 1736 1737 ------------------ 1738 -- Create_Actor -- 1739 ------------------ 1740 1741 overriding function Create_Actor 1742 (Self : not null access UML_Factory) 1743 return AMF.UML.Actors.UML_Actor_Access is 1744 begin 1745 return 1746 AMF.UML.Actors.UML_Actor_Access 1747 (Self.Create 1748 (AMF.CMOF.Classes.CMOF_Class_Access 1749 (AMF.Internals.Helpers.To_Element 1750 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Actor)))); 1751 end Create_Actor; 1752 1753 ------------------------------------------------ 1754 -- Create_Add_Structural_Feature_Value_Action -- 1755 ------------------------------------------------ 1756 1757 overriding function Create_Add_Structural_Feature_Value_Action 1758 (Self : not null access UML_Factory) 1759 return AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access is 1760 begin 1761 return 1762 AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access 1763 (Self.Create 1764 (AMF.CMOF.Classes.CMOF_Class_Access 1765 (AMF.Internals.Helpers.To_Element 1766 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Add_Structural_Feature_Value_Action)))); 1767 end Create_Add_Structural_Feature_Value_Action; 1768 1769 -------------------------------------- 1770 -- Create_Add_Variable_Value_Action -- 1771 -------------------------------------- 1772 1773 overriding function Create_Add_Variable_Value_Action 1774 (Self : not null access UML_Factory) 1775 return AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access is 1776 begin 1777 return 1778 AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access 1779 (Self.Create 1780 (AMF.CMOF.Classes.CMOF_Class_Access 1781 (AMF.Internals.Helpers.To_Element 1782 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Add_Variable_Value_Action)))); 1783 end Create_Add_Variable_Value_Action; 1784 1785 ------------------------------ 1786 -- Create_Any_Receive_Event -- 1787 ------------------------------ 1788 1789 overriding function Create_Any_Receive_Event 1790 (Self : not null access UML_Factory) 1791 return AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access is 1792 begin 1793 return 1794 AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access 1795 (Self.Create 1796 (AMF.CMOF.Classes.CMOF_Class_Access 1797 (AMF.Internals.Helpers.To_Element 1798 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Any_Receive_Event)))); 1799 end Create_Any_Receive_Event; 1800 1801 --------------------- 1802 -- Create_Artifact -- 1803 --------------------- 1804 1805 overriding function Create_Artifact 1806 (Self : not null access UML_Factory) 1807 return AMF.UML.Artifacts.UML_Artifact_Access is 1808 begin 1809 return 1810 AMF.UML.Artifacts.UML_Artifact_Access 1811 (Self.Create 1812 (AMF.CMOF.Classes.CMOF_Class_Access 1813 (AMF.Internals.Helpers.To_Element 1814 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Artifact)))); 1815 end Create_Artifact; 1816 1817 ------------------------ 1818 -- Create_Association -- 1819 ------------------------ 1820 1821 overriding function Create_Association 1822 (Self : not null access UML_Factory) 1823 return AMF.UML.Associations.UML_Association_Access is 1824 begin 1825 return 1826 AMF.UML.Associations.UML_Association_Access 1827 (Self.Create 1828 (AMF.CMOF.Classes.CMOF_Class_Access 1829 (AMF.Internals.Helpers.To_Element 1830 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Association)))); 1831 end Create_Association; 1832 1833 ------------------------------ 1834 -- Create_Association_Class -- 1835 ------------------------------ 1836 1837 overriding function Create_Association_Class 1838 (Self : not null access UML_Factory) 1839 return AMF.UML.Association_Classes.UML_Association_Class_Access is 1840 begin 1841 return 1842 AMF.UML.Association_Classes.UML_Association_Class_Access 1843 (Self.Create 1844 (AMF.CMOF.Classes.CMOF_Class_Access 1845 (AMF.Internals.Helpers.To_Element 1846 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Association_Class)))); 1847 end Create_Association_Class; 1848 1849 --------------------------------------------- 1850 -- Create_Behavior_Execution_Specification -- 1851 --------------------------------------------- 1852 1853 overriding function Create_Behavior_Execution_Specification 1854 (Self : not null access UML_Factory) 1855 return AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access is 1856 begin 1857 return 1858 AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access 1859 (Self.Create 1860 (AMF.CMOF.Classes.CMOF_Class_Access 1861 (AMF.Internals.Helpers.To_Element 1862 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Behavior_Execution_Specification)))); 1863 end Create_Behavior_Execution_Specification; 1864 1865 ------------------------------------ 1866 -- Create_Broadcast_Signal_Action -- 1867 ------------------------------------ 1868 1869 overriding function Create_Broadcast_Signal_Action 1870 (Self : not null access UML_Factory) 1871 return AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access is 1872 begin 1873 return 1874 AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access 1875 (Self.Create 1876 (AMF.CMOF.Classes.CMOF_Class_Access 1877 (AMF.Internals.Helpers.To_Element 1878 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Broadcast_Signal_Action)))); 1879 end Create_Broadcast_Signal_Action; 1880 1881 --------------------------------- 1882 -- Create_Call_Behavior_Action -- 1883 --------------------------------- 1884 1885 overriding function Create_Call_Behavior_Action 1886 (Self : not null access UML_Factory) 1887 return AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access is 1888 begin 1889 return 1890 AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access 1891 (Self.Create 1892 (AMF.CMOF.Classes.CMOF_Class_Access 1893 (AMF.Internals.Helpers.To_Element 1894 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Behavior_Action)))); 1895 end Create_Call_Behavior_Action; 1896 1897 ----------------------- 1898 -- Create_Call_Event -- 1899 ----------------------- 1900 1901 overriding function Create_Call_Event 1902 (Self : not null access UML_Factory) 1903 return AMF.UML.Call_Events.UML_Call_Event_Access is 1904 begin 1905 return 1906 AMF.UML.Call_Events.UML_Call_Event_Access 1907 (Self.Create 1908 (AMF.CMOF.Classes.CMOF_Class_Access 1909 (AMF.Internals.Helpers.To_Element 1910 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Event)))); 1911 end Create_Call_Event; 1912 1913 ---------------------------------- 1914 -- Create_Call_Operation_Action -- 1915 ---------------------------------- 1916 1917 overriding function Create_Call_Operation_Action 1918 (Self : not null access UML_Factory) 1919 return AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access is 1920 begin 1921 return 1922 AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access 1923 (Self.Create 1924 (AMF.CMOF.Classes.CMOF_Class_Access 1925 (AMF.Internals.Helpers.To_Element 1926 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Operation_Action)))); 1927 end Create_Call_Operation_Action; 1928 1929 -------------------------------- 1930 -- Create_Central_Buffer_Node -- 1931 -------------------------------- 1932 1933 overriding function Create_Central_Buffer_Node 1934 (Self : not null access UML_Factory) 1935 return AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access is 1936 begin 1937 return 1938 AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access 1939 (Self.Create 1940 (AMF.CMOF.Classes.CMOF_Class_Access 1941 (AMF.Internals.Helpers.To_Element 1942 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Central_Buffer_Node)))); 1943 end Create_Central_Buffer_Node; 1944 1945 ------------------------- 1946 -- Create_Change_Event -- 1947 ------------------------- 1948 1949 overriding function Create_Change_Event 1950 (Self : not null access UML_Factory) 1951 return AMF.UML.Change_Events.UML_Change_Event_Access is 1952 begin 1953 return 1954 AMF.UML.Change_Events.UML_Change_Event_Access 1955 (Self.Create 1956 (AMF.CMOF.Classes.CMOF_Class_Access 1957 (AMF.Internals.Helpers.To_Element 1958 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Change_Event)))); 1959 end Create_Change_Event; 1960 1961 ------------------ 1962 -- Create_Class -- 1963 ------------------ 1964 1965 overriding function Create_Class 1966 (Self : not null access UML_Factory) 1967 return AMF.UML.Classes.UML_Class_Access is 1968 begin 1969 return 1970 AMF.UML.Classes.UML_Class_Access 1971 (Self.Create 1972 (AMF.CMOF.Classes.CMOF_Class_Access 1973 (AMF.Internals.Helpers.To_Element 1974 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Class)))); 1975 end Create_Class; 1976 1977 ------------------------------------------ 1978 -- Create_Classifier_Template_Parameter -- 1979 ------------------------------------------ 1980 1981 overriding function Create_Classifier_Template_Parameter 1982 (Self : not null access UML_Factory) 1983 return AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access is 1984 begin 1985 return 1986 AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access 1987 (Self.Create 1988 (AMF.CMOF.Classes.CMOF_Class_Access 1989 (AMF.Internals.Helpers.To_Element 1990 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Classifier_Template_Parameter)))); 1991 end Create_Classifier_Template_Parameter; 1992 1993 ------------------- 1994 -- Create_Clause -- 1995 ------------------- 1996 1997 overriding function Create_Clause 1998 (Self : not null access UML_Factory) 1999 return AMF.UML.Clauses.UML_Clause_Access is 2000 begin 2001 return 2002 AMF.UML.Clauses.UML_Clause_Access 2003 (Self.Create 2004 (AMF.CMOF.Classes.CMOF_Class_Access 2005 (AMF.Internals.Helpers.To_Element 2006 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Clause)))); 2007 end Create_Clause; 2008 2009 ------------------------------------- 2010 -- Create_Clear_Association_Action -- 2011 ------------------------------------- 2012 2013 overriding function Create_Clear_Association_Action 2014 (Self : not null access UML_Factory) 2015 return AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access is 2016 begin 2017 return 2018 AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access 2019 (Self.Create 2020 (AMF.CMOF.Classes.CMOF_Class_Access 2021 (AMF.Internals.Helpers.To_Element 2022 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Association_Action)))); 2023 end Create_Clear_Association_Action; 2024 2025 -------------------------------------------- 2026 -- Create_Clear_Structural_Feature_Action -- 2027 -------------------------------------------- 2028 2029 overriding function Create_Clear_Structural_Feature_Action 2030 (Self : not null access UML_Factory) 2031 return AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access is 2032 begin 2033 return 2034 AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access 2035 (Self.Create 2036 (AMF.CMOF.Classes.CMOF_Class_Access 2037 (AMF.Internals.Helpers.To_Element 2038 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Structural_Feature_Action)))); 2039 end Create_Clear_Structural_Feature_Action; 2040 2041 ---------------------------------- 2042 -- Create_Clear_Variable_Action -- 2043 ---------------------------------- 2044 2045 overriding function Create_Clear_Variable_Action 2046 (Self : not null access UML_Factory) 2047 return AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access is 2048 begin 2049 return 2050 AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access 2051 (Self.Create 2052 (AMF.CMOF.Classes.CMOF_Class_Access 2053 (AMF.Internals.Helpers.To_Element 2054 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Variable_Action)))); 2055 end Create_Clear_Variable_Action; 2056 2057 -------------------------- 2058 -- Create_Collaboration -- 2059 -------------------------- 2060 2061 overriding function Create_Collaboration 2062 (Self : not null access UML_Factory) 2063 return AMF.UML.Collaborations.UML_Collaboration_Access is 2064 begin 2065 return 2066 AMF.UML.Collaborations.UML_Collaboration_Access 2067 (Self.Create 2068 (AMF.CMOF.Classes.CMOF_Class_Access 2069 (AMF.Internals.Helpers.To_Element 2070 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Collaboration)))); 2071 end Create_Collaboration; 2072 2073 ------------------------------ 2074 -- Create_Collaboration_Use -- 2075 ------------------------------ 2076 2077 overriding function Create_Collaboration_Use 2078 (Self : not null access UML_Factory) 2079 return AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access is 2080 begin 2081 return 2082 AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access 2083 (Self.Create 2084 (AMF.CMOF.Classes.CMOF_Class_Access 2085 (AMF.Internals.Helpers.To_Element 2086 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Collaboration_Use)))); 2087 end Create_Collaboration_Use; 2088 2089 ------------------------------ 2090 -- Create_Combined_Fragment -- 2091 ------------------------------ 2092 2093 overriding function Create_Combined_Fragment 2094 (Self : not null access UML_Factory) 2095 return AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access is 2096 begin 2097 return 2098 AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access 2099 (Self.Create 2100 (AMF.CMOF.Classes.CMOF_Class_Access 2101 (AMF.Internals.Helpers.To_Element 2102 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Combined_Fragment)))); 2103 end Create_Combined_Fragment; 2104 2105 -------------------- 2106 -- Create_Comment -- 2107 -------------------- 2108 2109 overriding function Create_Comment 2110 (Self : not null access UML_Factory) 2111 return AMF.UML.Comments.UML_Comment_Access is 2112 begin 2113 return 2114 AMF.UML.Comments.UML_Comment_Access 2115 (Self.Create 2116 (AMF.CMOF.Classes.CMOF_Class_Access 2117 (AMF.Internals.Helpers.To_Element 2118 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Comment)))); 2119 end Create_Comment; 2120 2121 ------------------------------- 2122 -- Create_Communication_Path -- 2123 ------------------------------- 2124 2125 overriding function Create_Communication_Path 2126 (Self : not null access UML_Factory) 2127 return AMF.UML.Communication_Paths.UML_Communication_Path_Access is 2128 begin 2129 return 2130 AMF.UML.Communication_Paths.UML_Communication_Path_Access 2131 (Self.Create 2132 (AMF.CMOF.Classes.CMOF_Class_Access 2133 (AMF.Internals.Helpers.To_Element 2134 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Communication_Path)))); 2135 end Create_Communication_Path; 2136 2137 ---------------------- 2138 -- Create_Component -- 2139 ---------------------- 2140 2141 overriding function Create_Component 2142 (Self : not null access UML_Factory) 2143 return AMF.UML.Components.UML_Component_Access is 2144 begin 2145 return 2146 AMF.UML.Components.UML_Component_Access 2147 (Self.Create 2148 (AMF.CMOF.Classes.CMOF_Class_Access 2149 (AMF.Internals.Helpers.To_Element 2150 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Component)))); 2151 end Create_Component; 2152 2153 ---------------------------------- 2154 -- Create_Component_Realization -- 2155 ---------------------------------- 2156 2157 overriding function Create_Component_Realization 2158 (Self : not null access UML_Factory) 2159 return AMF.UML.Component_Realizations.UML_Component_Realization_Access is 2160 begin 2161 return 2162 AMF.UML.Component_Realizations.UML_Component_Realization_Access 2163 (Self.Create 2164 (AMF.CMOF.Classes.CMOF_Class_Access 2165 (AMF.Internals.Helpers.To_Element 2166 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Component_Realization)))); 2167 end Create_Component_Realization; 2168 2169 ----------------------------- 2170 -- Create_Conditional_Node -- 2171 ----------------------------- 2172 2173 overriding function Create_Conditional_Node 2174 (Self : not null access UML_Factory) 2175 return AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access is 2176 begin 2177 return 2178 AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access 2179 (Self.Create 2180 (AMF.CMOF.Classes.CMOF_Class_Access 2181 (AMF.Internals.Helpers.To_Element 2182 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Conditional_Node)))); 2183 end Create_Conditional_Node; 2184 2185 --------------------------------------------------- 2186 -- Create_Connectable_Element_Template_Parameter -- 2187 --------------------------------------------------- 2188 2189 overriding function Create_Connectable_Element_Template_Parameter 2190 (Self : not null access UML_Factory) 2191 return AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access is 2192 begin 2193 return 2194 AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access 2195 (Self.Create 2196 (AMF.CMOF.Classes.CMOF_Class_Access 2197 (AMF.Internals.Helpers.To_Element 2198 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Connectable_Element_Template_Parameter)))); 2199 end Create_Connectable_Element_Template_Parameter; 2200 2201 --------------------------------------- 2202 -- Create_Connection_Point_Reference -- 2203 --------------------------------------- 2204 2205 overriding function Create_Connection_Point_Reference 2206 (Self : not null access UML_Factory) 2207 return AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access is 2208 begin 2209 return 2210 AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access 2211 (Self.Create 2212 (AMF.CMOF.Classes.CMOF_Class_Access 2213 (AMF.Internals.Helpers.To_Element 2214 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Connection_Point_Reference)))); 2215 end Create_Connection_Point_Reference; 2216 2217 ---------------------- 2218 -- Create_Connector -- 2219 ---------------------- 2220 2221 overriding function Create_Connector 2222 (Self : not null access UML_Factory) 2223 return AMF.UML.Connectors.UML_Connector_Access is 2224 begin 2225 return 2226 AMF.UML.Connectors.UML_Connector_Access 2227 (Self.Create 2228 (AMF.CMOF.Classes.CMOF_Class_Access 2229 (AMF.Internals.Helpers.To_Element 2230 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector)))); 2231 end Create_Connector; 2232 2233 -------------------------- 2234 -- Create_Connector_End -- 2235 -------------------------- 2236 2237 overriding function Create_Connector_End 2238 (Self : not null access UML_Factory) 2239 return AMF.UML.Connector_Ends.UML_Connector_End_Access is 2240 begin 2241 return 2242 AMF.UML.Connector_Ends.UML_Connector_End_Access 2243 (Self.Create 2244 (AMF.CMOF.Classes.CMOF_Class_Access 2245 (AMF.Internals.Helpers.To_Element 2246 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector_End)))); 2247 end Create_Connector_End; 2248 2249 ------------------------------------- 2250 -- Create_Consider_Ignore_Fragment -- 2251 ------------------------------------- 2252 2253 overriding function Create_Consider_Ignore_Fragment 2254 (Self : not null access UML_Factory) 2255 return AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access is 2256 begin 2257 return 2258 AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access 2259 (Self.Create 2260 (AMF.CMOF.Classes.CMOF_Class_Access 2261 (AMF.Internals.Helpers.To_Element 2262 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Consider_Ignore_Fragment)))); 2263 end Create_Consider_Ignore_Fragment; 2264 2265 ----------------------- 2266 -- Create_Constraint -- 2267 ----------------------- 2268 2269 overriding function Create_Constraint 2270 (Self : not null access UML_Factory) 2271 return AMF.UML.Constraints.UML_Constraint_Access is 2272 begin 2273 return 2274 AMF.UML.Constraints.UML_Constraint_Access 2275 (Self.Create 2276 (AMF.CMOF.Classes.CMOF_Class_Access 2277 (AMF.Internals.Helpers.To_Element 2278 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Constraint)))); 2279 end Create_Constraint; 2280 2281 ------------------------- 2282 -- Create_Continuation -- 2283 ------------------------- 2284 2285 overriding function Create_Continuation 2286 (Self : not null access UML_Factory) 2287 return AMF.UML.Continuations.UML_Continuation_Access is 2288 begin 2289 return 2290 AMF.UML.Continuations.UML_Continuation_Access 2291 (Self.Create 2292 (AMF.CMOF.Classes.CMOF_Class_Access 2293 (AMF.Internals.Helpers.To_Element 2294 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Continuation)))); 2295 end Create_Continuation; 2296 2297 ------------------------- 2298 -- Create_Control_Flow -- 2299 ------------------------- 2300 2301 overriding function Create_Control_Flow 2302 (Self : not null access UML_Factory) 2303 return AMF.UML.Control_Flows.UML_Control_Flow_Access is 2304 begin 2305 return 2306 AMF.UML.Control_Flows.UML_Control_Flow_Access 2307 (Self.Create 2308 (AMF.CMOF.Classes.CMOF_Class_Access 2309 (AMF.Internals.Helpers.To_Element 2310 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Control_Flow)))); 2311 end Create_Control_Flow; 2312 2313 ------------------------------- 2314 -- Create_Create_Link_Action -- 2315 ------------------------------- 2316 2317 overriding function Create_Create_Link_Action 2318 (Self : not null access UML_Factory) 2319 return AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access is 2320 begin 2321 return 2322 AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access 2323 (Self.Create 2324 (AMF.CMOF.Classes.CMOF_Class_Access 2325 (AMF.Internals.Helpers.To_Element 2326 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Link_Action)))); 2327 end Create_Create_Link_Action; 2328 2329 -------------------------------------- 2330 -- Create_Create_Link_Object_Action -- 2331 -------------------------------------- 2332 2333 overriding function Create_Create_Link_Object_Action 2334 (Self : not null access UML_Factory) 2335 return AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access is 2336 begin 2337 return 2338 AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access 2339 (Self.Create 2340 (AMF.CMOF.Classes.CMOF_Class_Access 2341 (AMF.Internals.Helpers.To_Element 2342 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Link_Object_Action)))); 2343 end Create_Create_Link_Object_Action; 2344 2345 --------------------------------- 2346 -- Create_Create_Object_Action -- 2347 --------------------------------- 2348 2349 overriding function Create_Create_Object_Action 2350 (Self : not null access UML_Factory) 2351 return AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access is 2352 begin 2353 return 2354 AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access 2355 (Self.Create 2356 (AMF.CMOF.Classes.CMOF_Class_Access 2357 (AMF.Internals.Helpers.To_Element 2358 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Object_Action)))); 2359 end Create_Create_Object_Action; 2360 2361 ---------------------------- 2362 -- Create_Data_Store_Node -- 2363 ---------------------------- 2364 2365 overriding function Create_Data_Store_Node 2366 (Self : not null access UML_Factory) 2367 return AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access is 2368 begin 2369 return 2370 AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access 2371 (Self.Create 2372 (AMF.CMOF.Classes.CMOF_Class_Access 2373 (AMF.Internals.Helpers.To_Element 2374 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Data_Store_Node)))); 2375 end Create_Data_Store_Node; 2376 2377 ---------------------- 2378 -- Create_Data_Type -- 2379 ---------------------- 2380 2381 overriding function Create_Data_Type 2382 (Self : not null access UML_Factory) 2383 return AMF.UML.Data_Types.UML_Data_Type_Access is 2384 begin 2385 return 2386 AMF.UML.Data_Types.UML_Data_Type_Access 2387 (Self.Create 2388 (AMF.CMOF.Classes.CMOF_Class_Access 2389 (AMF.Internals.Helpers.To_Element 2390 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Data_Type)))); 2391 end Create_Data_Type; 2392 2393 -------------------------- 2394 -- Create_Decision_Node -- 2395 -------------------------- 2396 2397 overriding function Create_Decision_Node 2398 (Self : not null access UML_Factory) 2399 return AMF.UML.Decision_Nodes.UML_Decision_Node_Access is 2400 begin 2401 return 2402 AMF.UML.Decision_Nodes.UML_Decision_Node_Access 2403 (Self.Create 2404 (AMF.CMOF.Classes.CMOF_Class_Access 2405 (AMF.Internals.Helpers.To_Element 2406 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Decision_Node)))); 2407 end Create_Decision_Node; 2408 2409 ----------------------- 2410 -- Create_Dependency -- 2411 ----------------------- 2412 2413 overriding function Create_Dependency 2414 (Self : not null access UML_Factory) 2415 return AMF.UML.Dependencies.UML_Dependency_Access is 2416 begin 2417 return 2418 AMF.UML.Dependencies.UML_Dependency_Access 2419 (Self.Create 2420 (AMF.CMOF.Classes.CMOF_Class_Access 2421 (AMF.Internals.Helpers.To_Element 2422 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Dependency)))); 2423 end Create_Dependency; 2424 2425 ----------------------- 2426 -- Create_Deployment -- 2427 ----------------------- 2428 2429 overriding function Create_Deployment 2430 (Self : not null access UML_Factory) 2431 return AMF.UML.Deployments.UML_Deployment_Access is 2432 begin 2433 return 2434 AMF.UML.Deployments.UML_Deployment_Access 2435 (Self.Create 2436 (AMF.CMOF.Classes.CMOF_Class_Access 2437 (AMF.Internals.Helpers.To_Element 2438 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Deployment)))); 2439 end Create_Deployment; 2440 2441 ------------------------------------- 2442 -- Create_Deployment_Specification -- 2443 ------------------------------------- 2444 2445 overriding function Create_Deployment_Specification 2446 (Self : not null access UML_Factory) 2447 return AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access is 2448 begin 2449 return 2450 AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access 2451 (Self.Create 2452 (AMF.CMOF.Classes.CMOF_Class_Access 2453 (AMF.Internals.Helpers.To_Element 2454 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Deployment_Specification)))); 2455 end Create_Deployment_Specification; 2456 2457 -------------------------------- 2458 -- Create_Destroy_Link_Action -- 2459 -------------------------------- 2460 2461 overriding function Create_Destroy_Link_Action 2462 (Self : not null access UML_Factory) 2463 return AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access is 2464 begin 2465 return 2466 AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access 2467 (Self.Create 2468 (AMF.CMOF.Classes.CMOF_Class_Access 2469 (AMF.Internals.Helpers.To_Element 2470 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Destroy_Link_Action)))); 2471 end Create_Destroy_Link_Action; 2472 2473 ---------------------------------- 2474 -- Create_Destroy_Object_Action -- 2475 ---------------------------------- 2476 2477 overriding function Create_Destroy_Object_Action 2478 (Self : not null access UML_Factory) 2479 return AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access is 2480 begin 2481 return 2482 AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access 2483 (Self.Create 2484 (AMF.CMOF.Classes.CMOF_Class_Access 2485 (AMF.Internals.Helpers.To_Element 2486 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Destroy_Object_Action)))); 2487 end Create_Destroy_Object_Action; 2488 2489 ------------------------------------------------- 2490 -- Create_Destruction_Occurrence_Specification -- 2491 ------------------------------------------------- 2492 2493 overriding function Create_Destruction_Occurrence_Specification 2494 (Self : not null access UML_Factory) 2495 return AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access is 2496 begin 2497 return 2498 AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access 2499 (Self.Create 2500 (AMF.CMOF.Classes.CMOF_Class_Access 2501 (AMF.Internals.Helpers.To_Element 2502 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Destruction_Occurrence_Specification)))); 2503 end Create_Destruction_Occurrence_Specification; 2504 2505 ------------------- 2506 -- Create_Device -- 2507 ------------------- 2508 2509 overriding function Create_Device 2510 (Self : not null access UML_Factory) 2511 return AMF.UML.Devices.UML_Device_Access is 2512 begin 2513 return 2514 AMF.UML.Devices.UML_Device_Access 2515 (Self.Create 2516 (AMF.CMOF.Classes.CMOF_Class_Access 2517 (AMF.Internals.Helpers.To_Element 2518 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Device)))); 2519 end Create_Device; 2520 2521 --------------------- 2522 -- Create_Duration -- 2523 --------------------- 2524 2525 overriding function Create_Duration 2526 (Self : not null access UML_Factory) 2527 return AMF.UML.Durations.UML_Duration_Access is 2528 begin 2529 return 2530 AMF.UML.Durations.UML_Duration_Access 2531 (Self.Create 2532 (AMF.CMOF.Classes.CMOF_Class_Access 2533 (AMF.Internals.Helpers.To_Element 2534 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration)))); 2535 end Create_Duration; 2536 2537 -------------------------------- 2538 -- Create_Duration_Constraint -- 2539 -------------------------------- 2540 2541 overriding function Create_Duration_Constraint 2542 (Self : not null access UML_Factory) 2543 return AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access is 2544 begin 2545 return 2546 AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access 2547 (Self.Create 2548 (AMF.CMOF.Classes.CMOF_Class_Access 2549 (AMF.Internals.Helpers.To_Element 2550 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Constraint)))); 2551 end Create_Duration_Constraint; 2552 2553 ------------------------------ 2554 -- Create_Duration_Interval -- 2555 ------------------------------ 2556 2557 overriding function Create_Duration_Interval 2558 (Self : not null access UML_Factory) 2559 return AMF.UML.Duration_Intervals.UML_Duration_Interval_Access is 2560 begin 2561 return 2562 AMF.UML.Duration_Intervals.UML_Duration_Interval_Access 2563 (Self.Create 2564 (AMF.CMOF.Classes.CMOF_Class_Access 2565 (AMF.Internals.Helpers.To_Element 2566 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Interval)))); 2567 end Create_Duration_Interval; 2568 2569 --------------------------------- 2570 -- Create_Duration_Observation -- 2571 --------------------------------- 2572 2573 overriding function Create_Duration_Observation 2574 (Self : not null access UML_Factory) 2575 return AMF.UML.Duration_Observations.UML_Duration_Observation_Access is 2576 begin 2577 return 2578 AMF.UML.Duration_Observations.UML_Duration_Observation_Access 2579 (Self.Create 2580 (AMF.CMOF.Classes.CMOF_Class_Access 2581 (AMF.Internals.Helpers.To_Element 2582 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Observation)))); 2583 end Create_Duration_Observation; 2584 2585 --------------------------- 2586 -- Create_Element_Import -- 2587 --------------------------- 2588 2589 overriding function Create_Element_Import 2590 (Self : not null access UML_Factory) 2591 return AMF.UML.Element_Imports.UML_Element_Import_Access is 2592 begin 2593 return 2594 AMF.UML.Element_Imports.UML_Element_Import_Access 2595 (Self.Create 2596 (AMF.CMOF.Classes.CMOF_Class_Access 2597 (AMF.Internals.Helpers.To_Element 2598 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Element_Import)))); 2599 end Create_Element_Import; 2600 2601 ------------------------ 2602 -- Create_Enumeration -- 2603 ------------------------ 2604 2605 overriding function Create_Enumeration 2606 (Self : not null access UML_Factory) 2607 return AMF.UML.Enumerations.UML_Enumeration_Access is 2608 begin 2609 return 2610 AMF.UML.Enumerations.UML_Enumeration_Access 2611 (Self.Create 2612 (AMF.CMOF.Classes.CMOF_Class_Access 2613 (AMF.Internals.Helpers.To_Element 2614 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Enumeration)))); 2615 end Create_Enumeration; 2616 2617 -------------------------------- 2618 -- Create_Enumeration_Literal -- 2619 -------------------------------- 2620 2621 overriding function Create_Enumeration_Literal 2622 (Self : not null access UML_Factory) 2623 return AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access is 2624 begin 2625 return 2626 AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access 2627 (Self.Create 2628 (AMF.CMOF.Classes.CMOF_Class_Access 2629 (AMF.Internals.Helpers.To_Element 2630 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Enumeration_Literal)))); 2631 end Create_Enumeration_Literal; 2632 2633 ------------------------------ 2634 -- Create_Exception_Handler -- 2635 ------------------------------ 2636 2637 overriding function Create_Exception_Handler 2638 (Self : not null access UML_Factory) 2639 return AMF.UML.Exception_Handlers.UML_Exception_Handler_Access is 2640 begin 2641 return 2642 AMF.UML.Exception_Handlers.UML_Exception_Handler_Access 2643 (Self.Create 2644 (AMF.CMOF.Classes.CMOF_Class_Access 2645 (AMF.Internals.Helpers.To_Element 2646 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Exception_Handler)))); 2647 end Create_Exception_Handler; 2648 2649 ---------------------------------- 2650 -- Create_Execution_Environment -- 2651 ---------------------------------- 2652 2653 overriding function Create_Execution_Environment 2654 (Self : not null access UML_Factory) 2655 return AMF.UML.Execution_Environments.UML_Execution_Environment_Access is 2656 begin 2657 return 2658 AMF.UML.Execution_Environments.UML_Execution_Environment_Access 2659 (Self.Create 2660 (AMF.CMOF.Classes.CMOF_Class_Access 2661 (AMF.Internals.Helpers.To_Element 2662 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Execution_Environment)))); 2663 end Create_Execution_Environment; 2664 2665 ----------------------------------------------- 2666 -- Create_Execution_Occurrence_Specification -- 2667 ----------------------------------------------- 2668 2669 overriding function Create_Execution_Occurrence_Specification 2670 (Self : not null access UML_Factory) 2671 return AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access is 2672 begin 2673 return 2674 AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access 2675 (Self.Create 2676 (AMF.CMOF.Classes.CMOF_Class_Access 2677 (AMF.Internals.Helpers.To_Element 2678 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Execution_Occurrence_Specification)))); 2679 end Create_Execution_Occurrence_Specification; 2680 2681 --------------------------- 2682 -- Create_Expansion_Node -- 2683 --------------------------- 2684 2685 overriding function Create_Expansion_Node 2686 (Self : not null access UML_Factory) 2687 return AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access is 2688 begin 2689 return 2690 AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access 2691 (Self.Create 2692 (AMF.CMOF.Classes.CMOF_Class_Access 2693 (AMF.Internals.Helpers.To_Element 2694 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Node)))); 2695 end Create_Expansion_Node; 2696 2697 ----------------------------- 2698 -- Create_Expansion_Region -- 2699 ----------------------------- 2700 2701 overriding function Create_Expansion_Region 2702 (Self : not null access UML_Factory) 2703 return AMF.UML.Expansion_Regions.UML_Expansion_Region_Access is 2704 begin 2705 return 2706 AMF.UML.Expansion_Regions.UML_Expansion_Region_Access 2707 (Self.Create 2708 (AMF.CMOF.Classes.CMOF_Class_Access 2709 (AMF.Internals.Helpers.To_Element 2710 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Region)))); 2711 end Create_Expansion_Region; 2712 2713 ----------------------- 2714 -- Create_Expression -- 2715 ----------------------- 2716 2717 overriding function Create_Expression 2718 (Self : not null access UML_Factory) 2719 return AMF.UML.Expressions.UML_Expression_Access is 2720 begin 2721 return 2722 AMF.UML.Expressions.UML_Expression_Access 2723 (Self.Create 2724 (AMF.CMOF.Classes.CMOF_Class_Access 2725 (AMF.Internals.Helpers.To_Element 2726 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Expression)))); 2727 end Create_Expression; 2728 2729 ------------------- 2730 -- Create_Extend -- 2731 ------------------- 2732 2733 overriding function Create_Extend 2734 (Self : not null access UML_Factory) 2735 return AMF.UML.Extends.UML_Extend_Access is 2736 begin 2737 return 2738 AMF.UML.Extends.UML_Extend_Access 2739 (Self.Create 2740 (AMF.CMOF.Classes.CMOF_Class_Access 2741 (AMF.Internals.Helpers.To_Element 2742 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Extend)))); 2743 end Create_Extend; 2744 2745 ---------------------- 2746 -- Create_Extension -- 2747 ---------------------- 2748 2749 overriding function Create_Extension 2750 (Self : not null access UML_Factory) 2751 return AMF.UML.Extensions.UML_Extension_Access is 2752 begin 2753 return 2754 AMF.UML.Extensions.UML_Extension_Access 2755 (Self.Create 2756 (AMF.CMOF.Classes.CMOF_Class_Access 2757 (AMF.Internals.Helpers.To_Element 2758 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension)))); 2759 end Create_Extension; 2760 2761 -------------------------- 2762 -- Create_Extension_End -- 2763 -------------------------- 2764 2765 overriding function Create_Extension_End 2766 (Self : not null access UML_Factory) 2767 return AMF.UML.Extension_Ends.UML_Extension_End_Access is 2768 begin 2769 return 2770 AMF.UML.Extension_Ends.UML_Extension_End_Access 2771 (Self.Create 2772 (AMF.CMOF.Classes.CMOF_Class_Access 2773 (AMF.Internals.Helpers.To_Element 2774 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension_End)))); 2775 end Create_Extension_End; 2776 2777 ---------------------------- 2778 -- Create_Extension_Point -- 2779 ---------------------------- 2780 2781 overriding function Create_Extension_Point 2782 (Self : not null access UML_Factory) 2783 return AMF.UML.Extension_Points.UML_Extension_Point_Access is 2784 begin 2785 return 2786 AMF.UML.Extension_Points.UML_Extension_Point_Access 2787 (Self.Create 2788 (AMF.CMOF.Classes.CMOF_Class_Access 2789 (AMF.Internals.Helpers.To_Element 2790 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension_Point)))); 2791 end Create_Extension_Point; 2792 2793 ------------------------ 2794 -- Create_Final_State -- 2795 ------------------------ 2796 2797 overriding function Create_Final_State 2798 (Self : not null access UML_Factory) 2799 return AMF.UML.Final_States.UML_Final_State_Access is 2800 begin 2801 return 2802 AMF.UML.Final_States.UML_Final_State_Access 2803 (Self.Create 2804 (AMF.CMOF.Classes.CMOF_Class_Access 2805 (AMF.Internals.Helpers.To_Element 2806 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Final_State)))); 2807 end Create_Final_State; 2808 2809 ---------------------------- 2810 -- Create_Flow_Final_Node -- 2811 ---------------------------- 2812 2813 overriding function Create_Flow_Final_Node 2814 (Self : not null access UML_Factory) 2815 return AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access is 2816 begin 2817 return 2818 AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access 2819 (Self.Create 2820 (AMF.CMOF.Classes.CMOF_Class_Access 2821 (AMF.Internals.Helpers.To_Element 2822 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Flow_Final_Node)))); 2823 end Create_Flow_Final_Node; 2824 2825 ---------------------- 2826 -- Create_Fork_Node -- 2827 ---------------------- 2828 2829 overriding function Create_Fork_Node 2830 (Self : not null access UML_Factory) 2831 return AMF.UML.Fork_Nodes.UML_Fork_Node_Access is 2832 begin 2833 return 2834 AMF.UML.Fork_Nodes.UML_Fork_Node_Access 2835 (Self.Create 2836 (AMF.CMOF.Classes.CMOF_Class_Access 2837 (AMF.Internals.Helpers.To_Element 2838 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Fork_Node)))); 2839 end Create_Fork_Node; 2840 2841 ------------------------------ 2842 -- Create_Function_Behavior -- 2843 ------------------------------ 2844 2845 overriding function Create_Function_Behavior 2846 (Self : not null access UML_Factory) 2847 return AMF.UML.Function_Behaviors.UML_Function_Behavior_Access is 2848 begin 2849 return 2850 AMF.UML.Function_Behaviors.UML_Function_Behavior_Access 2851 (Self.Create 2852 (AMF.CMOF.Classes.CMOF_Class_Access 2853 (AMF.Internals.Helpers.To_Element 2854 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Function_Behavior)))); 2855 end Create_Function_Behavior; 2856 2857 ----------------- 2858 -- Create_Gate -- 2859 ----------------- 2860 2861 overriding function Create_Gate 2862 (Self : not null access UML_Factory) 2863 return AMF.UML.Gates.UML_Gate_Access is 2864 begin 2865 return 2866 AMF.UML.Gates.UML_Gate_Access 2867 (Self.Create 2868 (AMF.CMOF.Classes.CMOF_Class_Access 2869 (AMF.Internals.Helpers.To_Element 2870 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Gate)))); 2871 end Create_Gate; 2872 2873 ----------------------------- 2874 -- Create_General_Ordering -- 2875 ----------------------------- 2876 2877 overriding function Create_General_Ordering 2878 (Self : not null access UML_Factory) 2879 return AMF.UML.General_Orderings.UML_General_Ordering_Access is 2880 begin 2881 return 2882 AMF.UML.General_Orderings.UML_General_Ordering_Access 2883 (Self.Create 2884 (AMF.CMOF.Classes.CMOF_Class_Access 2885 (AMF.Internals.Helpers.To_Element 2886 (AMF.Internals.Tables.UML_Metamodel.MC_UML_General_Ordering)))); 2887 end Create_General_Ordering; 2888 2889 --------------------------- 2890 -- Create_Generalization -- 2891 --------------------------- 2892 2893 overriding function Create_Generalization 2894 (Self : not null access UML_Factory) 2895 return AMF.UML.Generalizations.UML_Generalization_Access is 2896 begin 2897 return 2898 AMF.UML.Generalizations.UML_Generalization_Access 2899 (Self.Create 2900 (AMF.CMOF.Classes.CMOF_Class_Access 2901 (AMF.Internals.Helpers.To_Element 2902 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Generalization)))); 2903 end Create_Generalization; 2904 2905 ------------------------------- 2906 -- Create_Generalization_Set -- 2907 ------------------------------- 2908 2909 overriding function Create_Generalization_Set 2910 (Self : not null access UML_Factory) 2911 return AMF.UML.Generalization_Sets.UML_Generalization_Set_Access is 2912 begin 2913 return 2914 AMF.UML.Generalization_Sets.UML_Generalization_Set_Access 2915 (Self.Create 2916 (AMF.CMOF.Classes.CMOF_Class_Access 2917 (AMF.Internals.Helpers.To_Element 2918 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Generalization_Set)))); 2919 end Create_Generalization_Set; 2920 2921 ------------------ 2922 -- Create_Image -- 2923 ------------------ 2924 2925 overriding function Create_Image 2926 (Self : not null access UML_Factory) 2927 return AMF.UML.Images.UML_Image_Access is 2928 begin 2929 return 2930 AMF.UML.Images.UML_Image_Access 2931 (Self.Create 2932 (AMF.CMOF.Classes.CMOF_Class_Access 2933 (AMF.Internals.Helpers.To_Element 2934 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Image)))); 2935 end Create_Image; 2936 2937 -------------------- 2938 -- Create_Include -- 2939 -------------------- 2940 2941 overriding function Create_Include 2942 (Self : not null access UML_Factory) 2943 return AMF.UML.Includes.UML_Include_Access is 2944 begin 2945 return 2946 AMF.UML.Includes.UML_Include_Access 2947 (Self.Create 2948 (AMF.CMOF.Classes.CMOF_Class_Access 2949 (AMF.Internals.Helpers.To_Element 2950 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Include)))); 2951 end Create_Include; 2952 2953 ----------------------------- 2954 -- Create_Information_Flow -- 2955 ----------------------------- 2956 2957 overriding function Create_Information_Flow 2958 (Self : not null access UML_Factory) 2959 return AMF.UML.Information_Flows.UML_Information_Flow_Access is 2960 begin 2961 return 2962 AMF.UML.Information_Flows.UML_Information_Flow_Access 2963 (Self.Create 2964 (AMF.CMOF.Classes.CMOF_Class_Access 2965 (AMF.Internals.Helpers.To_Element 2966 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Information_Flow)))); 2967 end Create_Information_Flow; 2968 2969 ----------------------------- 2970 -- Create_Information_Item -- 2971 ----------------------------- 2972 2973 overriding function Create_Information_Item 2974 (Self : not null access UML_Factory) 2975 return AMF.UML.Information_Items.UML_Information_Item_Access is 2976 begin 2977 return 2978 AMF.UML.Information_Items.UML_Information_Item_Access 2979 (Self.Create 2980 (AMF.CMOF.Classes.CMOF_Class_Access 2981 (AMF.Internals.Helpers.To_Element 2982 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Information_Item)))); 2983 end Create_Information_Item; 2984 2985 ------------------------- 2986 -- Create_Initial_Node -- 2987 ------------------------- 2988 2989 overriding function Create_Initial_Node 2990 (Self : not null access UML_Factory) 2991 return AMF.UML.Initial_Nodes.UML_Initial_Node_Access is 2992 begin 2993 return 2994 AMF.UML.Initial_Nodes.UML_Initial_Node_Access 2995 (Self.Create 2996 (AMF.CMOF.Classes.CMOF_Class_Access 2997 (AMF.Internals.Helpers.To_Element 2998 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Initial_Node)))); 2999 end Create_Initial_Node; 3000 3001 ---------------------- 3002 -- Create_Input_Pin -- 3003 ---------------------- 3004 3005 overriding function Create_Input_Pin 3006 (Self : not null access UML_Factory) 3007 return AMF.UML.Input_Pins.UML_Input_Pin_Access is 3008 begin 3009 return 3010 AMF.UML.Input_Pins.UML_Input_Pin_Access 3011 (Self.Create 3012 (AMF.CMOF.Classes.CMOF_Class_Access 3013 (AMF.Internals.Helpers.To_Element 3014 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Input_Pin)))); 3015 end Create_Input_Pin; 3016 3017 ----------------------------------- 3018 -- Create_Instance_Specification -- 3019 ----------------------------------- 3020 3021 overriding function Create_Instance_Specification 3022 (Self : not null access UML_Factory) 3023 return AMF.UML.Instance_Specifications.UML_Instance_Specification_Access is 3024 begin 3025 return 3026 AMF.UML.Instance_Specifications.UML_Instance_Specification_Access 3027 (Self.Create 3028 (AMF.CMOF.Classes.CMOF_Class_Access 3029 (AMF.Internals.Helpers.To_Element 3030 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Instance_Specification)))); 3031 end Create_Instance_Specification; 3032 3033 --------------------------- 3034 -- Create_Instance_Value -- 3035 --------------------------- 3036 3037 overriding function Create_Instance_Value 3038 (Self : not null access UML_Factory) 3039 return AMF.UML.Instance_Values.UML_Instance_Value_Access is 3040 begin 3041 return 3042 AMF.UML.Instance_Values.UML_Instance_Value_Access 3043 (Self.Create 3044 (AMF.CMOF.Classes.CMOF_Class_Access 3045 (AMF.Internals.Helpers.To_Element 3046 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Instance_Value)))); 3047 end Create_Instance_Value; 3048 3049 ------------------------ 3050 -- Create_Interaction -- 3051 ------------------------ 3052 3053 overriding function Create_Interaction 3054 (Self : not null access UML_Factory) 3055 return AMF.UML.Interactions.UML_Interaction_Access is 3056 begin 3057 return 3058 AMF.UML.Interactions.UML_Interaction_Access 3059 (Self.Create 3060 (AMF.CMOF.Classes.CMOF_Class_Access 3061 (AMF.Internals.Helpers.To_Element 3062 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction)))); 3063 end Create_Interaction; 3064 3065 ----------------------------------- 3066 -- Create_Interaction_Constraint -- 3067 ----------------------------------- 3068 3069 overriding function Create_Interaction_Constraint 3070 (Self : not null access UML_Factory) 3071 return AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access is 3072 begin 3073 return 3074 AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access 3075 (Self.Create 3076 (AMF.CMOF.Classes.CMOF_Class_Access 3077 (AMF.Internals.Helpers.To_Element 3078 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Constraint)))); 3079 end Create_Interaction_Constraint; 3080 3081 -------------------------------- 3082 -- Create_Interaction_Operand -- 3083 -------------------------------- 3084 3085 overriding function Create_Interaction_Operand 3086 (Self : not null access UML_Factory) 3087 return AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access is 3088 begin 3089 return 3090 AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access 3091 (Self.Create 3092 (AMF.CMOF.Classes.CMOF_Class_Access 3093 (AMF.Internals.Helpers.To_Element 3094 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Operand)))); 3095 end Create_Interaction_Operand; 3096 3097 ---------------------------- 3098 -- Create_Interaction_Use -- 3099 ---------------------------- 3100 3101 overriding function Create_Interaction_Use 3102 (Self : not null access UML_Factory) 3103 return AMF.UML.Interaction_Uses.UML_Interaction_Use_Access is 3104 begin 3105 return 3106 AMF.UML.Interaction_Uses.UML_Interaction_Use_Access 3107 (Self.Create 3108 (AMF.CMOF.Classes.CMOF_Class_Access 3109 (AMF.Internals.Helpers.To_Element 3110 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Use)))); 3111 end Create_Interaction_Use; 3112 3113 ---------------------- 3114 -- Create_Interface -- 3115 ---------------------- 3116 3117 overriding function Create_Interface 3118 (Self : not null access UML_Factory) 3119 return AMF.UML.Interfaces.UML_Interface_Access is 3120 begin 3121 return 3122 AMF.UML.Interfaces.UML_Interface_Access 3123 (Self.Create 3124 (AMF.CMOF.Classes.CMOF_Class_Access 3125 (AMF.Internals.Helpers.To_Element 3126 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interface)))); 3127 end Create_Interface; 3128 3129 ---------------------------------- 3130 -- Create_Interface_Realization -- 3131 ---------------------------------- 3132 3133 overriding function Create_Interface_Realization 3134 (Self : not null access UML_Factory) 3135 return AMF.UML.Interface_Realizations.UML_Interface_Realization_Access is 3136 begin 3137 return 3138 AMF.UML.Interface_Realizations.UML_Interface_Realization_Access 3139 (Self.Create 3140 (AMF.CMOF.Classes.CMOF_Class_Access 3141 (AMF.Internals.Helpers.To_Element 3142 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interface_Realization)))); 3143 end Create_Interface_Realization; 3144 3145 ------------------------------------------ 3146 -- Create_Interruptible_Activity_Region -- 3147 ------------------------------------------ 3148 3149 overriding function Create_Interruptible_Activity_Region 3150 (Self : not null access UML_Factory) 3151 return AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access is 3152 begin 3153 return 3154 AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access 3155 (Self.Create 3156 (AMF.CMOF.Classes.CMOF_Class_Access 3157 (AMF.Internals.Helpers.To_Element 3158 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interruptible_Activity_Region)))); 3159 end Create_Interruptible_Activity_Region; 3160 3161 --------------------- 3162 -- Create_Interval -- 3163 --------------------- 3164 3165 overriding function Create_Interval 3166 (Self : not null access UML_Factory) 3167 return AMF.UML.Intervals.UML_Interval_Access is 3168 begin 3169 return 3170 AMF.UML.Intervals.UML_Interval_Access 3171 (Self.Create 3172 (AMF.CMOF.Classes.CMOF_Class_Access 3173 (AMF.Internals.Helpers.To_Element 3174 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interval)))); 3175 end Create_Interval; 3176 3177 -------------------------------- 3178 -- Create_Interval_Constraint -- 3179 -------------------------------- 3180 3181 overriding function Create_Interval_Constraint 3182 (Self : not null access UML_Factory) 3183 return AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access is 3184 begin 3185 return 3186 AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access 3187 (Self.Create 3188 (AMF.CMOF.Classes.CMOF_Class_Access 3189 (AMF.Internals.Helpers.To_Element 3190 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Interval_Constraint)))); 3191 end Create_Interval_Constraint; 3192 3193 ---------------------- 3194 -- Create_Join_Node -- 3195 ---------------------- 3196 3197 overriding function Create_Join_Node 3198 (Self : not null access UML_Factory) 3199 return AMF.UML.Join_Nodes.UML_Join_Node_Access is 3200 begin 3201 return 3202 AMF.UML.Join_Nodes.UML_Join_Node_Access 3203 (Self.Create 3204 (AMF.CMOF.Classes.CMOF_Class_Access 3205 (AMF.Internals.Helpers.To_Element 3206 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Join_Node)))); 3207 end Create_Join_Node; 3208 3209 --------------------- 3210 -- Create_Lifeline -- 3211 --------------------- 3212 3213 overriding function Create_Lifeline 3214 (Self : not null access UML_Factory) 3215 return AMF.UML.Lifelines.UML_Lifeline_Access is 3216 begin 3217 return 3218 AMF.UML.Lifelines.UML_Lifeline_Access 3219 (Self.Create 3220 (AMF.CMOF.Classes.CMOF_Class_Access 3221 (AMF.Internals.Helpers.To_Element 3222 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Lifeline)))); 3223 end Create_Lifeline; 3224 3225 ----------------------------------- 3226 -- Create_Link_End_Creation_Data -- 3227 ----------------------------------- 3228 3229 overriding function Create_Link_End_Creation_Data 3230 (Self : not null access UML_Factory) 3231 return AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access is 3232 begin 3233 return 3234 AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access 3235 (Self.Create 3236 (AMF.CMOF.Classes.CMOF_Class_Access 3237 (AMF.Internals.Helpers.To_Element 3238 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Creation_Data)))); 3239 end Create_Link_End_Creation_Data; 3240 3241 -------------------------- 3242 -- Create_Link_End_Data -- 3243 -------------------------- 3244 3245 overriding function Create_Link_End_Data 3246 (Self : not null access UML_Factory) 3247 return AMF.UML.Link_End_Datas.UML_Link_End_Data_Access is 3248 begin 3249 return 3250 AMF.UML.Link_End_Datas.UML_Link_End_Data_Access 3251 (Self.Create 3252 (AMF.CMOF.Classes.CMOF_Class_Access 3253 (AMF.Internals.Helpers.To_Element 3254 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Data)))); 3255 end Create_Link_End_Data; 3256 3257 -------------------------------------- 3258 -- Create_Link_End_Destruction_Data -- 3259 -------------------------------------- 3260 3261 overriding function Create_Link_End_Destruction_Data 3262 (Self : not null access UML_Factory) 3263 return AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access is 3264 begin 3265 return 3266 AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access 3267 (Self.Create 3268 (AMF.CMOF.Classes.CMOF_Class_Access 3269 (AMF.Internals.Helpers.To_Element 3270 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Destruction_Data)))); 3271 end Create_Link_End_Destruction_Data; 3272 3273 ---------------------------- 3274 -- Create_Literal_Boolean -- 3275 ---------------------------- 3276 3277 overriding function Create_Literal_Boolean 3278 (Self : not null access UML_Factory) 3279 return AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access is 3280 begin 3281 return 3282 AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access 3283 (Self.Create 3284 (AMF.CMOF.Classes.CMOF_Class_Access 3285 (AMF.Internals.Helpers.To_Element 3286 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Boolean)))); 3287 end Create_Literal_Boolean; 3288 3289 ---------------------------- 3290 -- Create_Literal_Integer -- 3291 ---------------------------- 3292 3293 overriding function Create_Literal_Integer 3294 (Self : not null access UML_Factory) 3295 return AMF.UML.Literal_Integers.UML_Literal_Integer_Access is 3296 begin 3297 return 3298 AMF.UML.Literal_Integers.UML_Literal_Integer_Access 3299 (Self.Create 3300 (AMF.CMOF.Classes.CMOF_Class_Access 3301 (AMF.Internals.Helpers.To_Element 3302 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Integer)))); 3303 end Create_Literal_Integer; 3304 3305 ------------------------- 3306 -- Create_Literal_Null -- 3307 ------------------------- 3308 3309 overriding function Create_Literal_Null 3310 (Self : not null access UML_Factory) 3311 return AMF.UML.Literal_Nulls.UML_Literal_Null_Access is 3312 begin 3313 return 3314 AMF.UML.Literal_Nulls.UML_Literal_Null_Access 3315 (Self.Create 3316 (AMF.CMOF.Classes.CMOF_Class_Access 3317 (AMF.Internals.Helpers.To_Element 3318 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Null)))); 3319 end Create_Literal_Null; 3320 3321 ------------------------- 3322 -- Create_Literal_Real -- 3323 ------------------------- 3324 3325 overriding function Create_Literal_Real 3326 (Self : not null access UML_Factory) 3327 return AMF.UML.Literal_Reals.UML_Literal_Real_Access is 3328 begin 3329 return 3330 AMF.UML.Literal_Reals.UML_Literal_Real_Access 3331 (Self.Create 3332 (AMF.CMOF.Classes.CMOF_Class_Access 3333 (AMF.Internals.Helpers.To_Element 3334 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Real)))); 3335 end Create_Literal_Real; 3336 3337 --------------------------- 3338 -- Create_Literal_String -- 3339 --------------------------- 3340 3341 overriding function Create_Literal_String 3342 (Self : not null access UML_Factory) 3343 return AMF.UML.Literal_Strings.UML_Literal_String_Access is 3344 begin 3345 return 3346 AMF.UML.Literal_Strings.UML_Literal_String_Access 3347 (Self.Create 3348 (AMF.CMOF.Classes.CMOF_Class_Access 3349 (AMF.Internals.Helpers.To_Element 3350 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_String)))); 3351 end Create_Literal_String; 3352 3353 -------------------------------------- 3354 -- Create_Literal_Unlimited_Natural -- 3355 -------------------------------------- 3356 3357 overriding function Create_Literal_Unlimited_Natural 3358 (Self : not null access UML_Factory) 3359 return AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access is 3360 begin 3361 return 3362 AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access 3363 (Self.Create 3364 (AMF.CMOF.Classes.CMOF_Class_Access 3365 (AMF.Internals.Helpers.To_Element 3366 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Unlimited_Natural)))); 3367 end Create_Literal_Unlimited_Natural; 3368 3369 ---------------------- 3370 -- Create_Loop_Node -- 3371 ---------------------- 3372 3373 overriding function Create_Loop_Node 3374 (Self : not null access UML_Factory) 3375 return AMF.UML.Loop_Nodes.UML_Loop_Node_Access is 3376 begin 3377 return 3378 AMF.UML.Loop_Nodes.UML_Loop_Node_Access 3379 (Self.Create 3380 (AMF.CMOF.Classes.CMOF_Class_Access 3381 (AMF.Internals.Helpers.To_Element 3382 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Loop_Node)))); 3383 end Create_Loop_Node; 3384 3385 -------------------------- 3386 -- Create_Manifestation -- 3387 -------------------------- 3388 3389 overriding function Create_Manifestation 3390 (Self : not null access UML_Factory) 3391 return AMF.UML.Manifestations.UML_Manifestation_Access is 3392 begin 3393 return 3394 AMF.UML.Manifestations.UML_Manifestation_Access 3395 (Self.Create 3396 (AMF.CMOF.Classes.CMOF_Class_Access 3397 (AMF.Internals.Helpers.To_Element 3398 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Manifestation)))); 3399 end Create_Manifestation; 3400 3401 ----------------------- 3402 -- Create_Merge_Node -- 3403 ----------------------- 3404 3405 overriding function Create_Merge_Node 3406 (Self : not null access UML_Factory) 3407 return AMF.UML.Merge_Nodes.UML_Merge_Node_Access is 3408 begin 3409 return 3410 AMF.UML.Merge_Nodes.UML_Merge_Node_Access 3411 (Self.Create 3412 (AMF.CMOF.Classes.CMOF_Class_Access 3413 (AMF.Internals.Helpers.To_Element 3414 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Merge_Node)))); 3415 end Create_Merge_Node; 3416 3417 -------------------- 3418 -- Create_Message -- 3419 -------------------- 3420 3421 overriding function Create_Message 3422 (Self : not null access UML_Factory) 3423 return AMF.UML.Messages.UML_Message_Access is 3424 begin 3425 return 3426 AMF.UML.Messages.UML_Message_Access 3427 (Self.Create 3428 (AMF.CMOF.Classes.CMOF_Class_Access 3429 (AMF.Internals.Helpers.To_Element 3430 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Message)))); 3431 end Create_Message; 3432 3433 --------------------------------------------- 3434 -- Create_Message_Occurrence_Specification -- 3435 --------------------------------------------- 3436 3437 overriding function Create_Message_Occurrence_Specification 3438 (Self : not null access UML_Factory) 3439 return AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access is 3440 begin 3441 return 3442 AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access 3443 (Self.Create 3444 (AMF.CMOF.Classes.CMOF_Class_Access 3445 (AMF.Internals.Helpers.To_Element 3446 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Message_Occurrence_Specification)))); 3447 end Create_Message_Occurrence_Specification; 3448 3449 ------------------ 3450 -- Create_Model -- 3451 ------------------ 3452 3453 overriding function Create_Model 3454 (Self : not null access UML_Factory) 3455 return AMF.UML.Models.UML_Model_Access is 3456 begin 3457 return 3458 AMF.UML.Models.UML_Model_Access 3459 (Self.Create 3460 (AMF.CMOF.Classes.CMOF_Class_Access 3461 (AMF.Internals.Helpers.To_Element 3462 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Model)))); 3463 end Create_Model; 3464 3465 ----------------- 3466 -- Create_Node -- 3467 ----------------- 3468 3469 overriding function Create_Node 3470 (Self : not null access UML_Factory) 3471 return AMF.UML.Nodes.UML_Node_Access is 3472 begin 3473 return 3474 AMF.UML.Nodes.UML_Node_Access 3475 (Self.Create 3476 (AMF.CMOF.Classes.CMOF_Class_Access 3477 (AMF.Internals.Helpers.To_Element 3478 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Node)))); 3479 end Create_Node; 3480 3481 ------------------------ 3482 -- Create_Object_Flow -- 3483 ------------------------ 3484 3485 overriding function Create_Object_Flow 3486 (Self : not null access UML_Factory) 3487 return AMF.UML.Object_Flows.UML_Object_Flow_Access is 3488 begin 3489 return 3490 AMF.UML.Object_Flows.UML_Object_Flow_Access 3491 (Self.Create 3492 (AMF.CMOF.Classes.CMOF_Class_Access 3493 (AMF.Internals.Helpers.To_Element 3494 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Object_Flow)))); 3495 end Create_Object_Flow; 3496 3497 ------------------------------------- 3498 -- Create_Occurrence_Specification -- 3499 ------------------------------------- 3500 3501 overriding function Create_Occurrence_Specification 3502 (Self : not null access UML_Factory) 3503 return AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access is 3504 begin 3505 return 3506 AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access 3507 (Self.Create 3508 (AMF.CMOF.Classes.CMOF_Class_Access 3509 (AMF.Internals.Helpers.To_Element 3510 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Occurrence_Specification)))); 3511 end Create_Occurrence_Specification; 3512 3513 -------------------------- 3514 -- Create_Opaque_Action -- 3515 -------------------------- 3516 3517 overriding function Create_Opaque_Action 3518 (Self : not null access UML_Factory) 3519 return AMF.UML.Opaque_Actions.UML_Opaque_Action_Access is 3520 begin 3521 return 3522 AMF.UML.Opaque_Actions.UML_Opaque_Action_Access 3523 (Self.Create 3524 (AMF.CMOF.Classes.CMOF_Class_Access 3525 (AMF.Internals.Helpers.To_Element 3526 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Action)))); 3527 end Create_Opaque_Action; 3528 3529 ---------------------------- 3530 -- Create_Opaque_Behavior -- 3531 ---------------------------- 3532 3533 overriding function Create_Opaque_Behavior 3534 (Self : not null access UML_Factory) 3535 return AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access is 3536 begin 3537 return 3538 AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access 3539 (Self.Create 3540 (AMF.CMOF.Classes.CMOF_Class_Access 3541 (AMF.Internals.Helpers.To_Element 3542 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Behavior)))); 3543 end Create_Opaque_Behavior; 3544 3545 ------------------------------ 3546 -- Create_Opaque_Expression -- 3547 ------------------------------ 3548 3549 overriding function Create_Opaque_Expression 3550 (Self : not null access UML_Factory) 3551 return AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access is 3552 begin 3553 return 3554 AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access 3555 (Self.Create 3556 (AMF.CMOF.Classes.CMOF_Class_Access 3557 (AMF.Internals.Helpers.To_Element 3558 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Expression)))); 3559 end Create_Opaque_Expression; 3560 3561 ---------------------- 3562 -- Create_Operation -- 3563 ---------------------- 3564 3565 overriding function Create_Operation 3566 (Self : not null access UML_Factory) 3567 return AMF.UML.Operations.UML_Operation_Access is 3568 begin 3569 return 3570 AMF.UML.Operations.UML_Operation_Access 3571 (Self.Create 3572 (AMF.CMOF.Classes.CMOF_Class_Access 3573 (AMF.Internals.Helpers.To_Element 3574 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Operation)))); 3575 end Create_Operation; 3576 3577 ----------------------------------------- 3578 -- Create_Operation_Template_Parameter -- 3579 ----------------------------------------- 3580 3581 overriding function Create_Operation_Template_Parameter 3582 (Self : not null access UML_Factory) 3583 return AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access is 3584 begin 3585 return 3586 AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access 3587 (Self.Create 3588 (AMF.CMOF.Classes.CMOF_Class_Access 3589 (AMF.Internals.Helpers.To_Element 3590 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Operation_Template_Parameter)))); 3591 end Create_Operation_Template_Parameter; 3592 3593 ----------------------- 3594 -- Create_Output_Pin -- 3595 ----------------------- 3596 3597 overriding function Create_Output_Pin 3598 (Self : not null access UML_Factory) 3599 return AMF.UML.Output_Pins.UML_Output_Pin_Access is 3600 begin 3601 return 3602 AMF.UML.Output_Pins.UML_Output_Pin_Access 3603 (Self.Create 3604 (AMF.CMOF.Classes.CMOF_Class_Access 3605 (AMF.Internals.Helpers.To_Element 3606 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Output_Pin)))); 3607 end Create_Output_Pin; 3608 3609 -------------------- 3610 -- Create_Package -- 3611 -------------------- 3612 3613 overriding function Create_Package 3614 (Self : not null access UML_Factory) 3615 return AMF.UML.Packages.UML_Package_Access is 3616 begin 3617 return 3618 AMF.UML.Packages.UML_Package_Access 3619 (Self.Create 3620 (AMF.CMOF.Classes.CMOF_Class_Access 3621 (AMF.Internals.Helpers.To_Element 3622 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Package)))); 3623 end Create_Package; 3624 3625 --------------------------- 3626 -- Create_Package_Import -- 3627 --------------------------- 3628 3629 overriding function Create_Package_Import 3630 (Self : not null access UML_Factory) 3631 return AMF.UML.Package_Imports.UML_Package_Import_Access is 3632 begin 3633 return 3634 AMF.UML.Package_Imports.UML_Package_Import_Access 3635 (Self.Create 3636 (AMF.CMOF.Classes.CMOF_Class_Access 3637 (AMF.Internals.Helpers.To_Element 3638 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Package_Import)))); 3639 end Create_Package_Import; 3640 3641 -------------------------- 3642 -- Create_Package_Merge -- 3643 -------------------------- 3644 3645 overriding function Create_Package_Merge 3646 (Self : not null access UML_Factory) 3647 return AMF.UML.Package_Merges.UML_Package_Merge_Access is 3648 begin 3649 return 3650 AMF.UML.Package_Merges.UML_Package_Merge_Access 3651 (Self.Create 3652 (AMF.CMOF.Classes.CMOF_Class_Access 3653 (AMF.Internals.Helpers.To_Element 3654 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Package_Merge)))); 3655 end Create_Package_Merge; 3656 3657 ---------------------- 3658 -- Create_Parameter -- 3659 ---------------------- 3660 3661 overriding function Create_Parameter 3662 (Self : not null access UML_Factory) 3663 return AMF.UML.Parameters.UML_Parameter_Access is 3664 begin 3665 return 3666 AMF.UML.Parameters.UML_Parameter_Access 3667 (Self.Create 3668 (AMF.CMOF.Classes.CMOF_Class_Access 3669 (AMF.Internals.Helpers.To_Element 3670 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter)))); 3671 end Create_Parameter; 3672 3673 -------------------------- 3674 -- Create_Parameter_Set -- 3675 -------------------------- 3676 3677 overriding function Create_Parameter_Set 3678 (Self : not null access UML_Factory) 3679 return AMF.UML.Parameter_Sets.UML_Parameter_Set_Access is 3680 begin 3681 return 3682 AMF.UML.Parameter_Sets.UML_Parameter_Set_Access 3683 (Self.Create 3684 (AMF.CMOF.Classes.CMOF_Class_Access 3685 (AMF.Internals.Helpers.To_Element 3686 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter_Set)))); 3687 end Create_Parameter_Set; 3688 3689 ------------------------------- 3690 -- Create_Part_Decomposition -- 3691 ------------------------------- 3692 3693 overriding function Create_Part_Decomposition 3694 (Self : not null access UML_Factory) 3695 return AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access is 3696 begin 3697 return 3698 AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access 3699 (Self.Create 3700 (AMF.CMOF.Classes.CMOF_Class_Access 3701 (AMF.Internals.Helpers.To_Element 3702 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Part_Decomposition)))); 3703 end Create_Part_Decomposition; 3704 3705 ----------------- 3706 -- Create_Port -- 3707 ----------------- 3708 3709 overriding function Create_Port 3710 (Self : not null access UML_Factory) 3711 return AMF.UML.Ports.UML_Port_Access is 3712 begin 3713 return 3714 AMF.UML.Ports.UML_Port_Access 3715 (Self.Create 3716 (AMF.CMOF.Classes.CMOF_Class_Access 3717 (AMF.Internals.Helpers.To_Element 3718 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Port)))); 3719 end Create_Port; 3720 3721 --------------------------- 3722 -- Create_Primitive_Type -- 3723 --------------------------- 3724 3725 overriding function Create_Primitive_Type 3726 (Self : not null access UML_Factory) 3727 return AMF.UML.Primitive_Types.UML_Primitive_Type_Access is 3728 begin 3729 return 3730 AMF.UML.Primitive_Types.UML_Primitive_Type_Access 3731 (Self.Create 3732 (AMF.CMOF.Classes.CMOF_Class_Access 3733 (AMF.Internals.Helpers.To_Element 3734 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Primitive_Type)))); 3735 end Create_Primitive_Type; 3736 3737 -------------------- 3738 -- Create_Profile -- 3739 -------------------- 3740 3741 overriding function Create_Profile 3742 (Self : not null access UML_Factory) 3743 return AMF.UML.Profiles.UML_Profile_Access is 3744 begin 3745 return 3746 AMF.UML.Profiles.UML_Profile_Access 3747 (Self.Create 3748 (AMF.CMOF.Classes.CMOF_Class_Access 3749 (AMF.Internals.Helpers.To_Element 3750 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Profile)))); 3751 end Create_Profile; 3752 3753 -------------------------------- 3754 -- Create_Profile_Application -- 3755 -------------------------------- 3756 3757 overriding function Create_Profile_Application 3758 (Self : not null access UML_Factory) 3759 return AMF.UML.Profile_Applications.UML_Profile_Application_Access is 3760 begin 3761 return 3762 AMF.UML.Profile_Applications.UML_Profile_Application_Access 3763 (Self.Create 3764 (AMF.CMOF.Classes.CMOF_Class_Access 3765 (AMF.Internals.Helpers.To_Element 3766 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Profile_Application)))); 3767 end Create_Profile_Application; 3768 3769 --------------------- 3770 -- Create_Property -- 3771 --------------------- 3772 3773 overriding function Create_Property 3774 (Self : not null access UML_Factory) 3775 return AMF.UML.Properties.UML_Property_Access is 3776 begin 3777 return 3778 AMF.UML.Properties.UML_Property_Access 3779 (Self.Create 3780 (AMF.CMOF.Classes.CMOF_Class_Access 3781 (AMF.Internals.Helpers.To_Element 3782 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Property)))); 3783 end Create_Property; 3784 3785 --------------------------------- 3786 -- Create_Protocol_Conformance -- 3787 --------------------------------- 3788 3789 overriding function Create_Protocol_Conformance 3790 (Self : not null access UML_Factory) 3791 return AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access is 3792 begin 3793 return 3794 AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access 3795 (Self.Create 3796 (AMF.CMOF.Classes.CMOF_Class_Access 3797 (AMF.Internals.Helpers.To_Element 3798 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_Conformance)))); 3799 end Create_Protocol_Conformance; 3800 3801 ----------------------------------- 3802 -- Create_Protocol_State_Machine -- 3803 ----------------------------------- 3804 3805 overriding function Create_Protocol_State_Machine 3806 (Self : not null access UML_Factory) 3807 return AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access is 3808 begin 3809 return 3810 AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access 3811 (Self.Create 3812 (AMF.CMOF.Classes.CMOF_Class_Access 3813 (AMF.Internals.Helpers.To_Element 3814 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_State_Machine)))); 3815 end Create_Protocol_State_Machine; 3816 3817 -------------------------------- 3818 -- Create_Protocol_Transition -- 3819 -------------------------------- 3820 3821 overriding function Create_Protocol_Transition 3822 (Self : not null access UML_Factory) 3823 return AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access is 3824 begin 3825 return 3826 AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access 3827 (Self.Create 3828 (AMF.CMOF.Classes.CMOF_Class_Access 3829 (AMF.Internals.Helpers.To_Element 3830 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_Transition)))); 3831 end Create_Protocol_Transition; 3832 3833 ------------------------ 3834 -- Create_Pseudostate -- 3835 ------------------------ 3836 3837 overriding function Create_Pseudostate 3838 (Self : not null access UML_Factory) 3839 return AMF.UML.Pseudostates.UML_Pseudostate_Access is 3840 begin 3841 return 3842 AMF.UML.Pseudostates.UML_Pseudostate_Access 3843 (Self.Create 3844 (AMF.CMOF.Classes.CMOF_Class_Access 3845 (AMF.Internals.Helpers.To_Element 3846 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Pseudostate)))); 3847 end Create_Pseudostate; 3848 3849 ---------------------------- 3850 -- Create_Qualifier_Value -- 3851 ---------------------------- 3852 3853 overriding function Create_Qualifier_Value 3854 (Self : not null access UML_Factory) 3855 return AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access is 3856 begin 3857 return 3858 AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access 3859 (Self.Create 3860 (AMF.CMOF.Classes.CMOF_Class_Access 3861 (AMF.Internals.Helpers.To_Element 3862 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Qualifier_Value)))); 3863 end Create_Qualifier_Value; 3864 3865 ----------------------------------- 3866 -- Create_Raise_Exception_Action -- 3867 ----------------------------------- 3868 3869 overriding function Create_Raise_Exception_Action 3870 (Self : not null access UML_Factory) 3871 return AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access is 3872 begin 3873 return 3874 AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access 3875 (Self.Create 3876 (AMF.CMOF.Classes.CMOF_Class_Access 3877 (AMF.Internals.Helpers.To_Element 3878 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Raise_Exception_Action)))); 3879 end Create_Raise_Exception_Action; 3880 3881 ------------------------------- 3882 -- Create_Read_Extent_Action -- 3883 ------------------------------- 3884 3885 overriding function Create_Read_Extent_Action 3886 (Self : not null access UML_Factory) 3887 return AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access is 3888 begin 3889 return 3890 AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access 3891 (Self.Create 3892 (AMF.CMOF.Classes.CMOF_Class_Access 3893 (AMF.Internals.Helpers.To_Element 3894 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Extent_Action)))); 3895 end Create_Read_Extent_Action; 3896 3897 --------------------------------------------- 3898 -- Create_Read_Is_Classified_Object_Action -- 3899 --------------------------------------------- 3900 3901 overriding function Create_Read_Is_Classified_Object_Action 3902 (Self : not null access UML_Factory) 3903 return AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access is 3904 begin 3905 return 3906 AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access 3907 (Self.Create 3908 (AMF.CMOF.Classes.CMOF_Class_Access 3909 (AMF.Internals.Helpers.To_Element 3910 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Is_Classified_Object_Action)))); 3911 end Create_Read_Is_Classified_Object_Action; 3912 3913 ----------------------------- 3914 -- Create_Read_Link_Action -- 3915 ----------------------------- 3916 3917 overriding function Create_Read_Link_Action 3918 (Self : not null access UML_Factory) 3919 return AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access is 3920 begin 3921 return 3922 AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access 3923 (Self.Create 3924 (AMF.CMOF.Classes.CMOF_Class_Access 3925 (AMF.Internals.Helpers.To_Element 3926 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Action)))); 3927 end Create_Read_Link_Action; 3928 3929 ---------------------------------------- 3930 -- Create_Read_Link_Object_End_Action -- 3931 ---------------------------------------- 3932 3933 overriding function Create_Read_Link_Object_End_Action 3934 (Self : not null access UML_Factory) 3935 return AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access is 3936 begin 3937 return 3938 AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access 3939 (Self.Create 3940 (AMF.CMOF.Classes.CMOF_Class_Access 3941 (AMF.Internals.Helpers.To_Element 3942 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Object_End_Action)))); 3943 end Create_Read_Link_Object_End_Action; 3944 3945 -------------------------------------------------- 3946 -- Create_Read_Link_Object_End_Qualifier_Action -- 3947 -------------------------------------------------- 3948 3949 overriding function Create_Read_Link_Object_End_Qualifier_Action 3950 (Self : not null access UML_Factory) 3951 return AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access is 3952 begin 3953 return 3954 AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access 3955 (Self.Create 3956 (AMF.CMOF.Classes.CMOF_Class_Access 3957 (AMF.Internals.Helpers.To_Element 3958 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Object_End_Qualifier_Action)))); 3959 end Create_Read_Link_Object_End_Qualifier_Action; 3960 3961 ----------------------------- 3962 -- Create_Read_Self_Action -- 3963 ----------------------------- 3964 3965 overriding function Create_Read_Self_Action 3966 (Self : not null access UML_Factory) 3967 return AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access is 3968 begin 3969 return 3970 AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access 3971 (Self.Create 3972 (AMF.CMOF.Classes.CMOF_Class_Access 3973 (AMF.Internals.Helpers.To_Element 3974 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Self_Action)))); 3975 end Create_Read_Self_Action; 3976 3977 ------------------------------------------- 3978 -- Create_Read_Structural_Feature_Action -- 3979 ------------------------------------------- 3980 3981 overriding function Create_Read_Structural_Feature_Action 3982 (Self : not null access UML_Factory) 3983 return AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access is 3984 begin 3985 return 3986 AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access 3987 (Self.Create 3988 (AMF.CMOF.Classes.CMOF_Class_Access 3989 (AMF.Internals.Helpers.To_Element 3990 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Structural_Feature_Action)))); 3991 end Create_Read_Structural_Feature_Action; 3992 3993 --------------------------------- 3994 -- Create_Read_Variable_Action -- 3995 --------------------------------- 3996 3997 overriding function Create_Read_Variable_Action 3998 (Self : not null access UML_Factory) 3999 return AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access is 4000 begin 4001 return 4002 AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access 4003 (Self.Create 4004 (AMF.CMOF.Classes.CMOF_Class_Access 4005 (AMF.Internals.Helpers.To_Element 4006 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Variable_Action)))); 4007 end Create_Read_Variable_Action; 4008 4009 ------------------------ 4010 -- Create_Realization -- 4011 ------------------------ 4012 4013 overriding function Create_Realization 4014 (Self : not null access UML_Factory) 4015 return AMF.UML.Realizations.UML_Realization_Access is 4016 begin 4017 return 4018 AMF.UML.Realizations.UML_Realization_Access 4019 (Self.Create 4020 (AMF.CMOF.Classes.CMOF_Class_Access 4021 (AMF.Internals.Helpers.To_Element 4022 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Realization)))); 4023 end Create_Realization; 4024 4025 ---------------------- 4026 -- Create_Reception -- 4027 ---------------------- 4028 4029 overriding function Create_Reception 4030 (Self : not null access UML_Factory) 4031 return AMF.UML.Receptions.UML_Reception_Access is 4032 begin 4033 return 4034 AMF.UML.Receptions.UML_Reception_Access 4035 (Self.Create 4036 (AMF.CMOF.Classes.CMOF_Class_Access 4037 (AMF.Internals.Helpers.To_Element 4038 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Reception)))); 4039 end Create_Reception; 4040 4041 ------------------------------------- 4042 -- Create_Reclassify_Object_Action -- 4043 ------------------------------------- 4044 4045 overriding function Create_Reclassify_Object_Action 4046 (Self : not null access UML_Factory) 4047 return AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access is 4048 begin 4049 return 4050 AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access 4051 (Self.Create 4052 (AMF.CMOF.Classes.CMOF_Class_Access 4053 (AMF.Internals.Helpers.To_Element 4054 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Reclassify_Object_Action)))); 4055 end Create_Reclassify_Object_Action; 4056 4057 ------------------------------------------- 4058 -- Create_Redefinable_Template_Signature -- 4059 ------------------------------------------- 4060 4061 overriding function Create_Redefinable_Template_Signature 4062 (Self : not null access UML_Factory) 4063 return AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access is 4064 begin 4065 return 4066 AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access 4067 (Self.Create 4068 (AMF.CMOF.Classes.CMOF_Class_Access 4069 (AMF.Internals.Helpers.To_Element 4070 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Redefinable_Template_Signature)))); 4071 end Create_Redefinable_Template_Signature; 4072 4073 -------------------------- 4074 -- Create_Reduce_Action -- 4075 -------------------------- 4076 4077 overriding function Create_Reduce_Action 4078 (Self : not null access UML_Factory) 4079 return AMF.UML.Reduce_Actions.UML_Reduce_Action_Access is 4080 begin 4081 return 4082 AMF.UML.Reduce_Actions.UML_Reduce_Action_Access 4083 (Self.Create 4084 (AMF.CMOF.Classes.CMOF_Class_Access 4085 (AMF.Internals.Helpers.To_Element 4086 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Reduce_Action)))); 4087 end Create_Reduce_Action; 4088 4089 ------------------- 4090 -- Create_Region -- 4091 ------------------- 4092 4093 overriding function Create_Region 4094 (Self : not null access UML_Factory) 4095 return AMF.UML.Regions.UML_Region_Access is 4096 begin 4097 return 4098 AMF.UML.Regions.UML_Region_Access 4099 (Self.Create 4100 (AMF.CMOF.Classes.CMOF_Class_Access 4101 (AMF.Internals.Helpers.To_Element 4102 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Region)))); 4103 end Create_Region; 4104 4105 --------------------------------------------------- 4106 -- Create_Remove_Structural_Feature_Value_Action -- 4107 --------------------------------------------------- 4108 4109 overriding function Create_Remove_Structural_Feature_Value_Action 4110 (Self : not null access UML_Factory) 4111 return AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access is 4112 begin 4113 return 4114 AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access 4115 (Self.Create 4116 (AMF.CMOF.Classes.CMOF_Class_Access 4117 (AMF.Internals.Helpers.To_Element 4118 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Remove_Structural_Feature_Value_Action)))); 4119 end Create_Remove_Structural_Feature_Value_Action; 4120 4121 ----------------------------------------- 4122 -- Create_Remove_Variable_Value_Action -- 4123 ----------------------------------------- 4124 4125 overriding function Create_Remove_Variable_Value_Action 4126 (Self : not null access UML_Factory) 4127 return AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access is 4128 begin 4129 return 4130 AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access 4131 (Self.Create 4132 (AMF.CMOF.Classes.CMOF_Class_Access 4133 (AMF.Internals.Helpers.To_Element 4134 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Remove_Variable_Value_Action)))); 4135 end Create_Remove_Variable_Value_Action; 4136 4137 ------------------------- 4138 -- Create_Reply_Action -- 4139 ------------------------- 4140 4141 overriding function Create_Reply_Action 4142 (Self : not null access UML_Factory) 4143 return AMF.UML.Reply_Actions.UML_Reply_Action_Access is 4144 begin 4145 return 4146 AMF.UML.Reply_Actions.UML_Reply_Action_Access 4147 (Self.Create 4148 (AMF.CMOF.Classes.CMOF_Class_Access 4149 (AMF.Internals.Helpers.To_Element 4150 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Reply_Action)))); 4151 end Create_Reply_Action; 4152 4153 ------------------------------- 4154 -- Create_Send_Object_Action -- 4155 ------------------------------- 4156 4157 overriding function Create_Send_Object_Action 4158 (Self : not null access UML_Factory) 4159 return AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access is 4160 begin 4161 return 4162 AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access 4163 (Self.Create 4164 (AMF.CMOF.Classes.CMOF_Class_Access 4165 (AMF.Internals.Helpers.To_Element 4166 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Send_Object_Action)))); 4167 end Create_Send_Object_Action; 4168 4169 ------------------------------- 4170 -- Create_Send_Signal_Action -- 4171 ------------------------------- 4172 4173 overriding function Create_Send_Signal_Action 4174 (Self : not null access UML_Factory) 4175 return AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access is 4176 begin 4177 return 4178 AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access 4179 (Self.Create 4180 (AMF.CMOF.Classes.CMOF_Class_Access 4181 (AMF.Internals.Helpers.To_Element 4182 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Send_Signal_Action)))); 4183 end Create_Send_Signal_Action; 4184 4185 -------------------------- 4186 -- Create_Sequence_Node -- 4187 -------------------------- 4188 4189 overriding function Create_Sequence_Node 4190 (Self : not null access UML_Factory) 4191 return AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access is 4192 begin 4193 return 4194 AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access 4195 (Self.Create 4196 (AMF.CMOF.Classes.CMOF_Class_Access 4197 (AMF.Internals.Helpers.To_Element 4198 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Sequence_Node)))); 4199 end Create_Sequence_Node; 4200 4201 ------------------- 4202 -- Create_Signal -- 4203 ------------------- 4204 4205 overriding function Create_Signal 4206 (Self : not null access UML_Factory) 4207 return AMF.UML.Signals.UML_Signal_Access is 4208 begin 4209 return 4210 AMF.UML.Signals.UML_Signal_Access 4211 (Self.Create 4212 (AMF.CMOF.Classes.CMOF_Class_Access 4213 (AMF.Internals.Helpers.To_Element 4214 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Signal)))); 4215 end Create_Signal; 4216 4217 ------------------------- 4218 -- Create_Signal_Event -- 4219 ------------------------- 4220 4221 overriding function Create_Signal_Event 4222 (Self : not null access UML_Factory) 4223 return AMF.UML.Signal_Events.UML_Signal_Event_Access is 4224 begin 4225 return 4226 AMF.UML.Signal_Events.UML_Signal_Event_Access 4227 (Self.Create 4228 (AMF.CMOF.Classes.CMOF_Class_Access 4229 (AMF.Internals.Helpers.To_Element 4230 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Signal_Event)))); 4231 end Create_Signal_Event; 4232 4233 ----------------- 4234 -- Create_Slot -- 4235 ----------------- 4236 4237 overriding function Create_Slot 4238 (Self : not null access UML_Factory) 4239 return AMF.UML.Slots.UML_Slot_Access is 4240 begin 4241 return 4242 AMF.UML.Slots.UML_Slot_Access 4243 (Self.Create 4244 (AMF.CMOF.Classes.CMOF_Class_Access 4245 (AMF.Internals.Helpers.To_Element 4246 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Slot)))); 4247 end Create_Slot; 4248 4249 --------------------------------------------- 4250 -- Create_Start_Classifier_Behavior_Action -- 4251 --------------------------------------------- 4252 4253 overriding function Create_Start_Classifier_Behavior_Action 4254 (Self : not null access UML_Factory) 4255 return AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access is 4256 begin 4257 return 4258 AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access 4259 (Self.Create 4260 (AMF.CMOF.Classes.CMOF_Class_Access 4261 (AMF.Internals.Helpers.To_Element 4262 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Start_Classifier_Behavior_Action)))); 4263 end Create_Start_Classifier_Behavior_Action; 4264 4265 ----------------------------------------- 4266 -- Create_Start_Object_Behavior_Action -- 4267 ----------------------------------------- 4268 4269 overriding function Create_Start_Object_Behavior_Action 4270 (Self : not null access UML_Factory) 4271 return AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access is 4272 begin 4273 return 4274 AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access 4275 (Self.Create 4276 (AMF.CMOF.Classes.CMOF_Class_Access 4277 (AMF.Internals.Helpers.To_Element 4278 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Start_Object_Behavior_Action)))); 4279 end Create_Start_Object_Behavior_Action; 4280 4281 ------------------ 4282 -- Create_State -- 4283 ------------------ 4284 4285 overriding function Create_State 4286 (Self : not null access UML_Factory) 4287 return AMF.UML.States.UML_State_Access is 4288 begin 4289 return 4290 AMF.UML.States.UML_State_Access 4291 (Self.Create 4292 (AMF.CMOF.Classes.CMOF_Class_Access 4293 (AMF.Internals.Helpers.To_Element 4294 (AMF.Internals.Tables.UML_Metamodel.MC_UML_State)))); 4295 end Create_State; 4296 4297 ---------------------------- 4298 -- Create_State_Invariant -- 4299 ---------------------------- 4300 4301 overriding function Create_State_Invariant 4302 (Self : not null access UML_Factory) 4303 return AMF.UML.State_Invariants.UML_State_Invariant_Access is 4304 begin 4305 return 4306 AMF.UML.State_Invariants.UML_State_Invariant_Access 4307 (Self.Create 4308 (AMF.CMOF.Classes.CMOF_Class_Access 4309 (AMF.Internals.Helpers.To_Element 4310 (AMF.Internals.Tables.UML_Metamodel.MC_UML_State_Invariant)))); 4311 end Create_State_Invariant; 4312 4313 -------------------------- 4314 -- Create_State_Machine -- 4315 -------------------------- 4316 4317 overriding function Create_State_Machine 4318 (Self : not null access UML_Factory) 4319 return AMF.UML.State_Machines.UML_State_Machine_Access is 4320 begin 4321 return 4322 AMF.UML.State_Machines.UML_State_Machine_Access 4323 (Self.Create 4324 (AMF.CMOF.Classes.CMOF_Class_Access 4325 (AMF.Internals.Helpers.To_Element 4326 (AMF.Internals.Tables.UML_Metamodel.MC_UML_State_Machine)))); 4327 end Create_State_Machine; 4328 4329 ----------------------- 4330 -- Create_Stereotype -- 4331 ----------------------- 4332 4333 overriding function Create_Stereotype 4334 (Self : not null access UML_Factory) 4335 return AMF.UML.Stereotypes.UML_Stereotype_Access is 4336 begin 4337 return 4338 AMF.UML.Stereotypes.UML_Stereotype_Access 4339 (Self.Create 4340 (AMF.CMOF.Classes.CMOF_Class_Access 4341 (AMF.Internals.Helpers.To_Element 4342 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Stereotype)))); 4343 end Create_Stereotype; 4344 4345 ------------------------------ 4346 -- Create_String_Expression -- 4347 ------------------------------ 4348 4349 overriding function Create_String_Expression 4350 (Self : not null access UML_Factory) 4351 return AMF.UML.String_Expressions.UML_String_Expression_Access is 4352 begin 4353 return 4354 AMF.UML.String_Expressions.UML_String_Expression_Access 4355 (Self.Create 4356 (AMF.CMOF.Classes.CMOF_Class_Access 4357 (AMF.Internals.Helpers.To_Element 4358 (AMF.Internals.Tables.UML_Metamodel.MC_UML_String_Expression)))); 4359 end Create_String_Expression; 4360 4361 ------------------------------------- 4362 -- Create_Structured_Activity_Node -- 4363 ------------------------------------- 4364 4365 overriding function Create_Structured_Activity_Node 4366 (Self : not null access UML_Factory) 4367 return AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access is 4368 begin 4369 return 4370 AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access 4371 (Self.Create 4372 (AMF.CMOF.Classes.CMOF_Class_Access 4373 (AMF.Internals.Helpers.To_Element 4374 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Structured_Activity_Node)))); 4375 end Create_Structured_Activity_Node; 4376 4377 ------------------------- 4378 -- Create_Substitution -- 4379 ------------------------- 4380 4381 overriding function Create_Substitution 4382 (Self : not null access UML_Factory) 4383 return AMF.UML.Substitutions.UML_Substitution_Access is 4384 begin 4385 return 4386 AMF.UML.Substitutions.UML_Substitution_Access 4387 (Self.Create 4388 (AMF.CMOF.Classes.CMOF_Class_Access 4389 (AMF.Internals.Helpers.To_Element 4390 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Substitution)))); 4391 end Create_Substitution; 4392 4393 ----------------------------- 4394 -- Create_Template_Binding -- 4395 ----------------------------- 4396 4397 overriding function Create_Template_Binding 4398 (Self : not null access UML_Factory) 4399 return AMF.UML.Template_Bindings.UML_Template_Binding_Access is 4400 begin 4401 return 4402 AMF.UML.Template_Bindings.UML_Template_Binding_Access 4403 (Self.Create 4404 (AMF.CMOF.Classes.CMOF_Class_Access 4405 (AMF.Internals.Helpers.To_Element 4406 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Binding)))); 4407 end Create_Template_Binding; 4408 4409 ------------------------------- 4410 -- Create_Template_Parameter -- 4411 ------------------------------- 4412 4413 overriding function Create_Template_Parameter 4414 (Self : not null access UML_Factory) 4415 return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is 4416 begin 4417 return 4418 AMF.UML.Template_Parameters.UML_Template_Parameter_Access 4419 (Self.Create 4420 (AMF.CMOF.Classes.CMOF_Class_Access 4421 (AMF.Internals.Helpers.To_Element 4422 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Parameter)))); 4423 end Create_Template_Parameter; 4424 4425 -------------------------------------------- 4426 -- Create_Template_Parameter_Substitution -- 4427 -------------------------------------------- 4428 4429 overriding function Create_Template_Parameter_Substitution 4430 (Self : not null access UML_Factory) 4431 return AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access is 4432 begin 4433 return 4434 AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access 4435 (Self.Create 4436 (AMF.CMOF.Classes.CMOF_Class_Access 4437 (AMF.Internals.Helpers.To_Element 4438 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Parameter_Substitution)))); 4439 end Create_Template_Parameter_Substitution; 4440 4441 ------------------------------- 4442 -- Create_Template_Signature -- 4443 ------------------------------- 4444 4445 overriding function Create_Template_Signature 4446 (Self : not null access UML_Factory) 4447 return AMF.UML.Template_Signatures.UML_Template_Signature_Access is 4448 begin 4449 return 4450 AMF.UML.Template_Signatures.UML_Template_Signature_Access 4451 (Self.Create 4452 (AMF.CMOF.Classes.CMOF_Class_Access 4453 (AMF.Internals.Helpers.To_Element 4454 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Signature)))); 4455 end Create_Template_Signature; 4456 4457 --------------------------------- 4458 -- Create_Test_Identity_Action -- 4459 --------------------------------- 4460 4461 overriding function Create_Test_Identity_Action 4462 (Self : not null access UML_Factory) 4463 return AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access is 4464 begin 4465 return 4466 AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access 4467 (Self.Create 4468 (AMF.CMOF.Classes.CMOF_Class_Access 4469 (AMF.Internals.Helpers.To_Element 4470 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Test_Identity_Action)))); 4471 end Create_Test_Identity_Action; 4472 4473 ---------------------------- 4474 -- Create_Time_Constraint -- 4475 ---------------------------- 4476 4477 overriding function Create_Time_Constraint 4478 (Self : not null access UML_Factory) 4479 return AMF.UML.Time_Constraints.UML_Time_Constraint_Access is 4480 begin 4481 return 4482 AMF.UML.Time_Constraints.UML_Time_Constraint_Access 4483 (Self.Create 4484 (AMF.CMOF.Classes.CMOF_Class_Access 4485 (AMF.Internals.Helpers.To_Element 4486 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Constraint)))); 4487 end Create_Time_Constraint; 4488 4489 ----------------------- 4490 -- Create_Time_Event -- 4491 ----------------------- 4492 4493 overriding function Create_Time_Event 4494 (Self : not null access UML_Factory) 4495 return AMF.UML.Time_Events.UML_Time_Event_Access is 4496 begin 4497 return 4498 AMF.UML.Time_Events.UML_Time_Event_Access 4499 (Self.Create 4500 (AMF.CMOF.Classes.CMOF_Class_Access 4501 (AMF.Internals.Helpers.To_Element 4502 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Event)))); 4503 end Create_Time_Event; 4504 4505 ---------------------------- 4506 -- Create_Time_Expression -- 4507 ---------------------------- 4508 4509 overriding function Create_Time_Expression 4510 (Self : not null access UML_Factory) 4511 return AMF.UML.Time_Expressions.UML_Time_Expression_Access is 4512 begin 4513 return 4514 AMF.UML.Time_Expressions.UML_Time_Expression_Access 4515 (Self.Create 4516 (AMF.CMOF.Classes.CMOF_Class_Access 4517 (AMF.Internals.Helpers.To_Element 4518 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Expression)))); 4519 end Create_Time_Expression; 4520 4521 -------------------------- 4522 -- Create_Time_Interval -- 4523 -------------------------- 4524 4525 overriding function Create_Time_Interval 4526 (Self : not null access UML_Factory) 4527 return AMF.UML.Time_Intervals.UML_Time_Interval_Access is 4528 begin 4529 return 4530 AMF.UML.Time_Intervals.UML_Time_Interval_Access 4531 (Self.Create 4532 (AMF.CMOF.Classes.CMOF_Class_Access 4533 (AMF.Internals.Helpers.To_Element 4534 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Interval)))); 4535 end Create_Time_Interval; 4536 4537 ----------------------------- 4538 -- Create_Time_Observation -- 4539 ----------------------------- 4540 4541 overriding function Create_Time_Observation 4542 (Self : not null access UML_Factory) 4543 return AMF.UML.Time_Observations.UML_Time_Observation_Access is 4544 begin 4545 return 4546 AMF.UML.Time_Observations.UML_Time_Observation_Access 4547 (Self.Create 4548 (AMF.CMOF.Classes.CMOF_Class_Access 4549 (AMF.Internals.Helpers.To_Element 4550 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Observation)))); 4551 end Create_Time_Observation; 4552 4553 ----------------------- 4554 -- Create_Transition -- 4555 ----------------------- 4556 4557 overriding function Create_Transition 4558 (Self : not null access UML_Factory) 4559 return AMF.UML.Transitions.UML_Transition_Access is 4560 begin 4561 return 4562 AMF.UML.Transitions.UML_Transition_Access 4563 (Self.Create 4564 (AMF.CMOF.Classes.CMOF_Class_Access 4565 (AMF.Internals.Helpers.To_Element 4566 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Transition)))); 4567 end Create_Transition; 4568 4569 -------------------- 4570 -- Create_Trigger -- 4571 -------------------- 4572 4573 overriding function Create_Trigger 4574 (Self : not null access UML_Factory) 4575 return AMF.UML.Triggers.UML_Trigger_Access is 4576 begin 4577 return 4578 AMF.UML.Triggers.UML_Trigger_Access 4579 (Self.Create 4580 (AMF.CMOF.Classes.CMOF_Class_Access 4581 (AMF.Internals.Helpers.To_Element 4582 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Trigger)))); 4583 end Create_Trigger; 4584 4585 ------------------------------ 4586 -- Create_Unmarshall_Action -- 4587 ------------------------------ 4588 4589 overriding function Create_Unmarshall_Action 4590 (Self : not null access UML_Factory) 4591 return AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access is 4592 begin 4593 return 4594 AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access 4595 (Self.Create 4596 (AMF.CMOF.Classes.CMOF_Class_Access 4597 (AMF.Internals.Helpers.To_Element 4598 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Unmarshall_Action)))); 4599 end Create_Unmarshall_Action; 4600 4601 ------------------ 4602 -- Create_Usage -- 4603 ------------------ 4604 4605 overriding function Create_Usage 4606 (Self : not null access UML_Factory) 4607 return AMF.UML.Usages.UML_Usage_Access is 4608 begin 4609 return 4610 AMF.UML.Usages.UML_Usage_Access 4611 (Self.Create 4612 (AMF.CMOF.Classes.CMOF_Class_Access 4613 (AMF.Internals.Helpers.To_Element 4614 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Usage)))); 4615 end Create_Usage; 4616 4617 --------------------- 4618 -- Create_Use_Case -- 4619 --------------------- 4620 4621 overriding function Create_Use_Case 4622 (Self : not null access UML_Factory) 4623 return AMF.UML.Use_Cases.UML_Use_Case_Access is 4624 begin 4625 return 4626 AMF.UML.Use_Cases.UML_Use_Case_Access 4627 (Self.Create 4628 (AMF.CMOF.Classes.CMOF_Class_Access 4629 (AMF.Internals.Helpers.To_Element 4630 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Use_Case)))); 4631 end Create_Use_Case; 4632 4633 ---------------------- 4634 -- Create_Value_Pin -- 4635 ---------------------- 4636 4637 overriding function Create_Value_Pin 4638 (Self : not null access UML_Factory) 4639 return AMF.UML.Value_Pins.UML_Value_Pin_Access is 4640 begin 4641 return 4642 AMF.UML.Value_Pins.UML_Value_Pin_Access 4643 (Self.Create 4644 (AMF.CMOF.Classes.CMOF_Class_Access 4645 (AMF.Internals.Helpers.To_Element 4646 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Value_Pin)))); 4647 end Create_Value_Pin; 4648 4649 --------------------------------------- 4650 -- Create_Value_Specification_Action -- 4651 --------------------------------------- 4652 4653 overriding function Create_Value_Specification_Action 4654 (Self : not null access UML_Factory) 4655 return AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access is 4656 begin 4657 return 4658 AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access 4659 (Self.Create 4660 (AMF.CMOF.Classes.CMOF_Class_Access 4661 (AMF.Internals.Helpers.To_Element 4662 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Value_Specification_Action)))); 4663 end Create_Value_Specification_Action; 4664 4665 --------------------- 4666 -- Create_Variable -- 4667 --------------------- 4668 4669 overriding function Create_Variable 4670 (Self : not null access UML_Factory) 4671 return AMF.UML.Variables.UML_Variable_Access is 4672 begin 4673 return 4674 AMF.UML.Variables.UML_Variable_Access 4675 (Self.Create 4676 (AMF.CMOF.Classes.CMOF_Class_Access 4677 (AMF.Internals.Helpers.To_Element 4678 (AMF.Internals.Tables.UML_Metamodel.MC_UML_Variable)))); 4679 end Create_Variable; 4680 4681end AMF.Internals.Factories.UML_Factories; 4682