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: 2855 $ $Date: 2012-04-12 23:52:00 +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.Standard_Profile_L2_Metamodel; 52with AMF.Internals.Tables.UML_Constructors; 53 54package body AMF.Internals.Factories.Standard_Profile_L2_Factories is 55 56 ----------------- 57 -- Constructor -- 58 ----------------- 59 60 function Constructor 61 (Extent : AMF.Internals.AMF_Extent) 62 return not null AMF.Factories.Factory_Access is 63 begin 64 return new Standard_Profile_L2_Factory'(Extent => Extent); 65 end Constructor; 66 67 ----------------------- 68 -- Convert_To_String -- 69 ----------------------- 70 71 overriding function Convert_To_String 72 (Self : not null access Standard_Profile_L2_Factory; 73 Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class; 74 Value : League.Holders.Holder) return League.Strings.Universal_String is 75 begin 76 raise Program_Error; 77 return League.Strings.Empty_Universal_String; 78 end Convert_To_String; 79 80 ------------ 81 -- Create -- 82 ------------ 83 84 overriding function Create 85 (Self : not null access Standard_Profile_L2_Factory; 86 Meta_Class : not null access AMF.CMOF.Classes.CMOF_Class'Class) 87 return not null AMF.Elements.Element_Access 88 is 89 MC : constant AMF.Internals.CMOF_Element 90 := AMF.Internals.Elements.Element_Base'Class (Meta_Class.all).Element; 91 Element : AMF.Internals.AMF_Element; 92 93 begin 94 if MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Auxiliary then 95 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Auxiliary; 96 97 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Call then 98 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Call; 99 100 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Create then 101 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Create; 102 103 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Derive then 104 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Derive; 105 106 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Destroy then 107 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Destroy; 108 109 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Document then 110 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Document; 111 112 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Entity then 113 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Entity; 114 115 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Executable then 116 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Executable; 117 118 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Focus then 119 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Focus; 120 121 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Framework then 122 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Framework; 123 124 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implement then 125 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Implement; 126 127 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implementation_Class then 128 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Implementation_Class; 129 130 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Instantiate then 131 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Instantiate; 132 133 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Library then 134 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Library; 135 136 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Metaclass then 137 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Metaclass; 138 139 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Model_Library then 140 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Model_Library; 141 142 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Process then 143 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Process; 144 145 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Realization then 146 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Realization; 147 148 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Refine then 149 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Refine; 150 151 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Responsibility then 152 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Responsibility; 153 154 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Script then 155 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Script; 156 157 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Send then 158 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Send; 159 160 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Service then 161 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Service; 162 163 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Source then 164 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Source; 165 166 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Specification then 167 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Specification; 168 169 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Subsystem then 170 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Subsystem; 171 172 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Trace then 173 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Trace; 174 175 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Type then 176 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Type; 177 178 elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Utility then 179 Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Utility; 180 181 else 182 raise Program_Error; 183 end if; 184 185 AMF.Internals.Extents.Internal_Append (Self.Extent, Element); 186 AMF.Internals.Listener_Registry.Notify_Instance_Create 187 (AMF.Internals.Helpers.To_Element (Element)); 188 189 return AMF.Internals.Helpers.To_Element (Element); 190 end Create; 191 192 ------------------------ 193 -- Create_From_String -- 194 ------------------------ 195 196 overriding function Create_From_String 197 (Self : not null access Standard_Profile_L2_Factory; 198 Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class; 199 Image : League.Strings.Universal_String) return League.Holders.Holder is 200 begin 201 raise Program_Error; 202 return League.Holders.Empty_Holder; 203 end Create_From_String; 204 205 ----------------- 206 -- Create_Link -- 207 ----------------- 208 209 overriding function Create_Link 210 (Self : not null access Standard_Profile_L2_Factory; 211 Association : 212 not null access AMF.CMOF.Associations.CMOF_Association'Class; 213 First_Element : not null AMF.Elements.Element_Access; 214 Second_Element : not null AMF.Elements.Element_Access) 215 return not null AMF.Links.Link_Access 216 is 217 pragma Unreferenced (Self); 218 219 begin 220 return 221 AMF.Internals.Links.Proxy 222 (AMF.Internals.Links.Create_Link 223 (AMF.Internals.Elements.Element_Base'Class 224 (Association.all).Element, 225 AMF.Internals.Helpers.To_Element (First_Element), 226 AMF.Internals.Helpers.To_Element (Second_Element))); 227 end Create_Link; 228 229 ----------------- 230 -- Get_Package -- 231 ----------------- 232 233 overriding function Get_Package 234 (Self : not null access constant Standard_Profile_L2_Factory) 235 return AMF.CMOF.Packages.Collections.Set_Of_CMOF_Package 236 is 237 pragma Unreferenced (Self); 238 239 begin 240 return Result : AMF.CMOF.Packages.Collections.Set_Of_CMOF_Package do 241 Result.Add (Get_Package); 242 end return; 243 end Get_Package; 244 245 ----------------- 246 -- Get_Package -- 247 ----------------- 248 249 function Get_Package return not null AMF.CMOF.Packages.CMOF_Package_Access is 250 begin 251 return 252 AMF.CMOF.Packages.CMOF_Package_Access 253 (AMF.Internals.Helpers.To_Element 254 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MM_Standard_Profile_L2_Standard_Profile_L2)); 255 end Get_Package; 256 257 ---------------------- 258 -- Create_Auxiliary -- 259 ---------------------- 260 261 overriding function Create_Auxiliary 262 (Self : not null access Standard_Profile_L2_Factory) 263 return AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access is 264 begin 265 return 266 AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access 267 (Self.Create 268 (AMF.CMOF.Classes.CMOF_Class_Access 269 (AMF.Internals.Helpers.To_Element 270 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Auxiliary)))); 271 end Create_Auxiliary; 272 273 ----------------- 274 -- Create_Call -- 275 ----------------- 276 277 overriding function Create_Call 278 (Self : not null access Standard_Profile_L2_Factory) 279 return AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access is 280 begin 281 return 282 AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access 283 (Self.Create 284 (AMF.CMOF.Classes.CMOF_Class_Access 285 (AMF.Internals.Helpers.To_Element 286 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Call)))); 287 end Create_Call; 288 289 ------------------- 290 -- Create_Create -- 291 ------------------- 292 293 overriding function Create_Create 294 (Self : not null access Standard_Profile_L2_Factory) 295 return AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access is 296 begin 297 return 298 AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access 299 (Self.Create 300 (AMF.CMOF.Classes.CMOF_Class_Access 301 (AMF.Internals.Helpers.To_Element 302 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Create)))); 303 end Create_Create; 304 305 ------------------- 306 -- Create_Derive -- 307 ------------------- 308 309 overriding function Create_Derive 310 (Self : not null access Standard_Profile_L2_Factory) 311 return AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access is 312 begin 313 return 314 AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access 315 (Self.Create 316 (AMF.CMOF.Classes.CMOF_Class_Access 317 (AMF.Internals.Helpers.To_Element 318 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Derive)))); 319 end Create_Derive; 320 321 -------------------- 322 -- Create_Destroy -- 323 -------------------- 324 325 overriding function Create_Destroy 326 (Self : not null access Standard_Profile_L2_Factory) 327 return AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access is 328 begin 329 return 330 AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access 331 (Self.Create 332 (AMF.CMOF.Classes.CMOF_Class_Access 333 (AMF.Internals.Helpers.To_Element 334 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Destroy)))); 335 end Create_Destroy; 336 337 --------------------- 338 -- Create_Document -- 339 --------------------- 340 341 overriding function Create_Document 342 (Self : not null access Standard_Profile_L2_Factory) 343 return AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access is 344 begin 345 return 346 AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access 347 (Self.Create 348 (AMF.CMOF.Classes.CMOF_Class_Access 349 (AMF.Internals.Helpers.To_Element 350 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Document)))); 351 end Create_Document; 352 353 ------------------- 354 -- Create_Entity -- 355 ------------------- 356 357 overriding function Create_Entity 358 (Self : not null access Standard_Profile_L2_Factory) 359 return AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access is 360 begin 361 return 362 AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access 363 (Self.Create 364 (AMF.CMOF.Classes.CMOF_Class_Access 365 (AMF.Internals.Helpers.To_Element 366 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Entity)))); 367 end Create_Entity; 368 369 ----------------------- 370 -- Create_Executable -- 371 ----------------------- 372 373 overriding function Create_Executable 374 (Self : not null access Standard_Profile_L2_Factory) 375 return AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access is 376 begin 377 return 378 AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access 379 (Self.Create 380 (AMF.CMOF.Classes.CMOF_Class_Access 381 (AMF.Internals.Helpers.To_Element 382 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Executable)))); 383 end Create_Executable; 384 385 ------------------ 386 -- Create_Focus -- 387 ------------------ 388 389 overriding function Create_Focus 390 (Self : not null access Standard_Profile_L2_Factory) 391 return AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access is 392 begin 393 return 394 AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access 395 (Self.Create 396 (AMF.CMOF.Classes.CMOF_Class_Access 397 (AMF.Internals.Helpers.To_Element 398 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Focus)))); 399 end Create_Focus; 400 401 ---------------------- 402 -- Create_Framework -- 403 ---------------------- 404 405 overriding function Create_Framework 406 (Self : not null access Standard_Profile_L2_Factory) 407 return AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access is 408 begin 409 return 410 AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access 411 (Self.Create 412 (AMF.CMOF.Classes.CMOF_Class_Access 413 (AMF.Internals.Helpers.To_Element 414 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Framework)))); 415 end Create_Framework; 416 417 ---------------------- 418 -- Create_Implement -- 419 ---------------------- 420 421 overriding function Create_Implement 422 (Self : not null access Standard_Profile_L2_Factory) 423 return AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access is 424 begin 425 return 426 AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access 427 (Self.Create 428 (AMF.CMOF.Classes.CMOF_Class_Access 429 (AMF.Internals.Helpers.To_Element 430 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implement)))); 431 end Create_Implement; 432 433 --------------------------------- 434 -- Create_Implementation_Class -- 435 --------------------------------- 436 437 overriding function Create_Implementation_Class 438 (Self : not null access Standard_Profile_L2_Factory) 439 return AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access is 440 begin 441 return 442 AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access 443 (Self.Create 444 (AMF.CMOF.Classes.CMOF_Class_Access 445 (AMF.Internals.Helpers.To_Element 446 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implementation_Class)))); 447 end Create_Implementation_Class; 448 449 ------------------------ 450 -- Create_Instantiate -- 451 ------------------------ 452 453 overriding function Create_Instantiate 454 (Self : not null access Standard_Profile_L2_Factory) 455 return AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access is 456 begin 457 return 458 AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access 459 (Self.Create 460 (AMF.CMOF.Classes.CMOF_Class_Access 461 (AMF.Internals.Helpers.To_Element 462 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Instantiate)))); 463 end Create_Instantiate; 464 465 -------------------- 466 -- Create_Library -- 467 -------------------- 468 469 overriding function Create_Library 470 (Self : not null access Standard_Profile_L2_Factory) 471 return AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access is 472 begin 473 return 474 AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access 475 (Self.Create 476 (AMF.CMOF.Classes.CMOF_Class_Access 477 (AMF.Internals.Helpers.To_Element 478 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Library)))); 479 end Create_Library; 480 481 ---------------------- 482 -- Create_Metaclass -- 483 ---------------------- 484 485 overriding function Create_Metaclass 486 (Self : not null access Standard_Profile_L2_Factory) 487 return AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access is 488 begin 489 return 490 AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access 491 (Self.Create 492 (AMF.CMOF.Classes.CMOF_Class_Access 493 (AMF.Internals.Helpers.To_Element 494 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Metaclass)))); 495 end Create_Metaclass; 496 497 -------------------------- 498 -- Create_Model_Library -- 499 -------------------------- 500 501 overriding function Create_Model_Library 502 (Self : not null access Standard_Profile_L2_Factory) 503 return AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access is 504 begin 505 return 506 AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access 507 (Self.Create 508 (AMF.CMOF.Classes.CMOF_Class_Access 509 (AMF.Internals.Helpers.To_Element 510 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Model_Library)))); 511 end Create_Model_Library; 512 513 -------------------- 514 -- Create_Process -- 515 -------------------- 516 517 overriding function Create_Process 518 (Self : not null access Standard_Profile_L2_Factory) 519 return AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access is 520 begin 521 return 522 AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access 523 (Self.Create 524 (AMF.CMOF.Classes.CMOF_Class_Access 525 (AMF.Internals.Helpers.To_Element 526 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Process)))); 527 end Create_Process; 528 529 ------------------------ 530 -- Create_Realization -- 531 ------------------------ 532 533 overriding function Create_Realization 534 (Self : not null access Standard_Profile_L2_Factory) 535 return AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access is 536 begin 537 return 538 AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access 539 (Self.Create 540 (AMF.CMOF.Classes.CMOF_Class_Access 541 (AMF.Internals.Helpers.To_Element 542 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Realization)))); 543 end Create_Realization; 544 545 ------------------- 546 -- Create_Refine -- 547 ------------------- 548 549 overriding function Create_Refine 550 (Self : not null access Standard_Profile_L2_Factory) 551 return AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access is 552 begin 553 return 554 AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access 555 (Self.Create 556 (AMF.CMOF.Classes.CMOF_Class_Access 557 (AMF.Internals.Helpers.To_Element 558 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Refine)))); 559 end Create_Refine; 560 561 --------------------------- 562 -- Create_Responsibility -- 563 --------------------------- 564 565 overriding function Create_Responsibility 566 (Self : not null access Standard_Profile_L2_Factory) 567 return AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access is 568 begin 569 return 570 AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access 571 (Self.Create 572 (AMF.CMOF.Classes.CMOF_Class_Access 573 (AMF.Internals.Helpers.To_Element 574 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Responsibility)))); 575 end Create_Responsibility; 576 577 ------------------- 578 -- Create_Script -- 579 ------------------- 580 581 overriding function Create_Script 582 (Self : not null access Standard_Profile_L2_Factory) 583 return AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access is 584 begin 585 return 586 AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access 587 (Self.Create 588 (AMF.CMOF.Classes.CMOF_Class_Access 589 (AMF.Internals.Helpers.To_Element 590 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Script)))); 591 end Create_Script; 592 593 ----------------- 594 -- Create_Send -- 595 ----------------- 596 597 overriding function Create_Send 598 (Self : not null access Standard_Profile_L2_Factory) 599 return AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access is 600 begin 601 return 602 AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access 603 (Self.Create 604 (AMF.CMOF.Classes.CMOF_Class_Access 605 (AMF.Internals.Helpers.To_Element 606 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Send)))); 607 end Create_Send; 608 609 -------------------- 610 -- Create_Service -- 611 -------------------- 612 613 overriding function Create_Service 614 (Self : not null access Standard_Profile_L2_Factory) 615 return AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access is 616 begin 617 return 618 AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access 619 (Self.Create 620 (AMF.CMOF.Classes.CMOF_Class_Access 621 (AMF.Internals.Helpers.To_Element 622 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Service)))); 623 end Create_Service; 624 625 ------------------- 626 -- Create_Source -- 627 ------------------- 628 629 overriding function Create_Source 630 (Self : not null access Standard_Profile_L2_Factory) 631 return AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access is 632 begin 633 return 634 AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access 635 (Self.Create 636 (AMF.CMOF.Classes.CMOF_Class_Access 637 (AMF.Internals.Helpers.To_Element 638 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Source)))); 639 end Create_Source; 640 641 -------------------------- 642 -- Create_Specification -- 643 -------------------------- 644 645 overriding function Create_Specification 646 (Self : not null access Standard_Profile_L2_Factory) 647 return AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access is 648 begin 649 return 650 AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access 651 (Self.Create 652 (AMF.CMOF.Classes.CMOF_Class_Access 653 (AMF.Internals.Helpers.To_Element 654 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Specification)))); 655 end Create_Specification; 656 657 ---------------------- 658 -- Create_Subsystem -- 659 ---------------------- 660 661 overriding function Create_Subsystem 662 (Self : not null access Standard_Profile_L2_Factory) 663 return AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access is 664 begin 665 return 666 AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access 667 (Self.Create 668 (AMF.CMOF.Classes.CMOF_Class_Access 669 (AMF.Internals.Helpers.To_Element 670 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Subsystem)))); 671 end Create_Subsystem; 672 673 ------------------ 674 -- Create_Trace -- 675 ------------------ 676 677 overriding function Create_Trace 678 (Self : not null access Standard_Profile_L2_Factory) 679 return AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access is 680 begin 681 return 682 AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access 683 (Self.Create 684 (AMF.CMOF.Classes.CMOF_Class_Access 685 (AMF.Internals.Helpers.To_Element 686 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Trace)))); 687 end Create_Trace; 688 689 ----------------- 690 -- Create_Type -- 691 ----------------- 692 693 overriding function Create_Type 694 (Self : not null access Standard_Profile_L2_Factory) 695 return AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access is 696 begin 697 return 698 AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access 699 (Self.Create 700 (AMF.CMOF.Classes.CMOF_Class_Access 701 (AMF.Internals.Helpers.To_Element 702 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Type)))); 703 end Create_Type; 704 705 -------------------- 706 -- Create_Utility -- 707 -------------------- 708 709 overriding function Create_Utility 710 (Self : not null access Standard_Profile_L2_Factory) 711 return AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access is 712 begin 713 return 714 AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access 715 (Self.Create 716 (AMF.CMOF.Classes.CMOF_Class_Access 717 (AMF.Internals.Helpers.To_Element 718 (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Utility)))); 719 end Create_Utility; 720 721end AMF.Internals.Factories.Standard_Profile_L2_Factories; 722