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: 3413 $ $Date: 2012-11-13 15:06:29 +0400 (Tue, 13 Nov 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.Holders.Elements; 47with AMF.Holders.Unlimited_Naturals; 48with AMF.Internals.Helpers; 49with AMF.Internals.Holders.UML_Holders; 50with AMF.Internals.Tables.UTP_Element_Table; 51with AMF.Internals.Tables.UTP_Types; 52with AMF.Internals.Tables.Utp_Metamodel; 53with AMF.String_Collections.Internals; 54with AMF.UML.Accept_Event_Actions; 55with AMF.UML.Behaviored_Classifiers; 56with AMF.UML.Behaviors; 57with AMF.UML.Call_Operation_Actions; 58with AMF.UML.Classifiers; 59with AMF.UML.Combined_Fragments; 60with AMF.UML.Dependencies; 61with AMF.UML.Elements; 62with AMF.UML.Invocation_Actions; 63with AMF.UML.Literal_Specifications; 64with AMF.UML.Messages; 65with AMF.UML.Namespaces; 66with AMF.UML.Opaque_Actions; 67with AMF.UML.Operations; 68with AMF.UML.Properties; 69with AMF.UML.Read_Structural_Feature_Actions; 70with AMF.UML.Send_Object_Actions; 71with AMF.UML.Structured_Classifiers; 72with AMF.UML.Time_Events; 73with AMF.UML.Value_Specifications; 74with AMF.UML.Write_Structural_Feature_Actions; 75with AMF.Utp.Coding_Rules; 76with AMF.Utp.Data_Partitions; 77with AMF.Utp.Data_Pools; 78with AMF.Utp.Data_Selectors; 79with AMF.Utp.Default_Applications; 80with AMF.Utp.Defaults; 81with AMF.Utp.Determ_Alts; 82with AMF.Utp.Finish_Actions; 83with AMF.Utp.Get_Timezone_Actions; 84with AMF.Utp.Holders.Verdicts; 85with AMF.Utp.Literal_Anies; 86with AMF.Utp.Literal_Any_Or_Nulls; 87with AMF.Utp.Log_Actions; 88with AMF.Utp.Managed_Elements; 89with AMF.Utp.Read_Timer_Actions; 90with AMF.Utp.SUTs; 91with AMF.Utp.Set_Timezone_Actions; 92with AMF.Utp.Start_Timer_Actions; 93with AMF.Utp.Stop_Timer_Actions; 94with AMF.Utp.Test_Cases.Collections; 95with AMF.Utp.Test_Components; 96with AMF.Utp.Test_Contexts; 97with AMF.Utp.Test_Log_Applications; 98with AMF.Utp.Test_Logs; 99with AMF.Utp.Test_Objectives; 100with AMF.Utp.Test_Suites; 101with AMF.Utp.Time_Out_Actions; 102with AMF.Utp.Time_Out_Messages; 103with AMF.Utp.Time_Outs; 104with AMF.Utp.Timer_Running_Actions; 105with AMF.Utp.Validation_Actions; 106with League.Holders; 107 108package body AMF.Internals.Tables.UTP_Reflection is 109 110 --------- 111 -- Get -- 112 --------- 113 114 function Get 115 (Self : AMF.Internals.AMF_Element; 116 Property : CMOF_Element) return League.Holders.Holder 117 is 118 119 function Utp_Coding_Rule_Get return League.Holders.Holder; 120 -- Returns attribute's value of instance of CodingRule class. 121 122 function Utp_Data_Partition_Get return League.Holders.Holder; 123 -- Returns attribute's value of instance of DataPartition class. 124 125 function Utp_Data_Pool_Get return League.Holders.Holder; 126 -- Returns attribute's value of instance of DataPool class. 127 128 function Utp_Data_Selector_Get return League.Holders.Holder; 129 -- Returns attribute's value of instance of DataSelector class. 130 131 function Utp_Default_Get return League.Holders.Holder; 132 -- Returns attribute's value of instance of Default class. 133 134 function Utp_Default_Application_Get return League.Holders.Holder; 135 -- Returns attribute's value of instance of DefaultApplication class. 136 137 function Utp_Determ_Alt_Get return League.Holders.Holder; 138 -- Returns attribute's value of instance of DetermAlt class. 139 140 function Utp_Finish_Action_Get return League.Holders.Holder; 141 -- Returns attribute's value of instance of FinishAction class. 142 143 function Utp_Get_Timezone_Action_Get return League.Holders.Holder; 144 -- Returns attribute's value of instance of GetTimezoneAction class. 145 146 function Utp_Literal_Any_Get return League.Holders.Holder; 147 -- Returns attribute's value of instance of LiteralAny class. 148 149 function Utp_Literal_Any_Or_Null_Get return League.Holders.Holder; 150 -- Returns attribute's value of instance of LiteralAnyOrNull class. 151 152 function Utp_Log_Action_Get return League.Holders.Holder; 153 -- Returns attribute's value of instance of LogAction class. 154 155 function Utp_Managed_Element_Get return League.Holders.Holder; 156 -- Returns attribute's value of instance of ManagedElement class. 157 158 function Utp_Read_Timer_Action_Get return League.Holders.Holder; 159 -- Returns attribute's value of instance of ReadTimerAction class. 160 161 function Utp_SUT_Get return League.Holders.Holder; 162 -- Returns attribute's value of instance of SUT class. 163 164 function Utp_Set_Timezone_Action_Get return League.Holders.Holder; 165 -- Returns attribute's value of instance of SetTimezoneAction class. 166 167 function Utp_Start_Timer_Action_Get return League.Holders.Holder; 168 -- Returns attribute's value of instance of StartTimerAction class. 169 170 function Utp_Stop_Timer_Action_Get return League.Holders.Holder; 171 -- Returns attribute's value of instance of StopTimerAction class. 172 173 function Utp_Test_Case_Get return League.Holders.Holder; 174 -- Returns attribute's value of instance of TestCase class. 175 176 function Utp_Test_Component_Get return League.Holders.Holder; 177 -- Returns attribute's value of instance of TestComponent class. 178 179 function Utp_Test_Context_Get return League.Holders.Holder; 180 -- Returns attribute's value of instance of TestContext class. 181 182 function Utp_Test_Log_Get return League.Holders.Holder; 183 -- Returns attribute's value of instance of TestLog class. 184 185 function Utp_Test_Log_Application_Get return League.Holders.Holder; 186 -- Returns attribute's value of instance of TestLogApplication class. 187 188 function Utp_Test_Objective_Get return League.Holders.Holder; 189 -- Returns attribute's value of instance of TestObjective class. 190 191 function Utp_Test_Suite_Get return League.Holders.Holder; 192 -- Returns attribute's value of instance of TestSuite class. 193 194 function Utp_Time_Out_Get return League.Holders.Holder; 195 -- Returns attribute's value of instance of TimeOut class. 196 197 function Utp_Time_Out_Action_Get return League.Holders.Holder; 198 -- Returns attribute's value of instance of TimeOutAction class. 199 200 function Utp_Time_Out_Message_Get return League.Holders.Holder; 201 -- Returns attribute's value of instance of TimeOutMessage class. 202 203 function Utp_Timer_Running_Action_Get return League.Holders.Holder; 204 -- Returns attribute's value of instance of TimerRunningAction class. 205 206 function Utp_Validation_Action_Get return League.Holders.Holder; 207 -- Returns attribute's value of instance of ValidationAction class. 208 209 ------------------------- 210 -- Utp_Coding_Rule_Get -- 211 ------------------------- 212 213 function Utp_Coding_Rule_Get return League.Holders.Holder is 214 begin 215 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Base_Namespace_A_Extension_Coding_Rule then 216 -- CodingRule::base_Namespace : Namespace 217 218 return 219 AMF.Internals.Holders.UML_Holders.To_Holder 220 (AMF.UML.Namespaces.UML_Namespace_Access' 221 (AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 222 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Namespace)); 223 224 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Base_Property_A_Extension_Coding_Rule then 225 -- CodingRule::base_Property : Property 226 227 return 228 AMF.Internals.Holders.UML_Holders.To_Holder 229 (AMF.UML.Properties.UML_Property_Access' 230 (AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 231 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Property)); 232 233 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Base_Value_Specification_A_Extension_Coding_Rule then 234 -- CodingRule::base_ValueSpecification : ValueSpecification 235 236 return 237 AMF.Internals.Holders.UML_Holders.To_Holder 238 (AMF.UML.Value_Specifications.UML_Value_Specification_Access' 239 (AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 240 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Value_Specification)); 241 242 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Coding then 243 -- CodingRule::coding : String 244 245 return 246 League.Holders.To_Holder 247 (AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 248 (AMF.Internals.Helpers.To_Element (Self)).Get_Coding); 249 250 else 251 raise Program_Error; 252 end if; 253 end Utp_Coding_Rule_Get; 254 255 ---------------------------- 256 -- Utp_Data_Partition_Get -- 257 ---------------------------- 258 259 function Utp_Data_Partition_Get return League.Holders.Holder is 260 begin 261 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Partition_Base_Classifier_A_Extension_Data_Partition then 262 -- DataPartition::base_Classifier : Classifier 263 264 return 265 AMF.Internals.Holders.UML_Holders.To_Holder 266 (AMF.UML.Classifiers.UML_Classifier_Access' 267 (AMF.Utp.Data_Partitions.Utp_Data_Partition_Access 268 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Classifier)); 269 270 else 271 raise Program_Error; 272 end if; 273 end Utp_Data_Partition_Get; 274 275 ----------------------- 276 -- Utp_Data_Pool_Get -- 277 ----------------------- 278 279 function Utp_Data_Pool_Get return League.Holders.Holder is 280 begin 281 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Pool_Base_Classifier_A_Extension_Data_Pool then 282 -- DataPool::base_Classifier : Classifier 283 284 return 285 AMF.Internals.Holders.UML_Holders.To_Holder 286 (AMF.UML.Classifiers.UML_Classifier_Access' 287 (AMF.Utp.Data_Pools.Utp_Data_Pool_Access 288 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Classifier)); 289 290 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Pool_Base_Property_A_Extension_Data_Pool then 291 -- DataPool::base_Property : Property 292 293 return 294 AMF.Internals.Holders.UML_Holders.To_Holder 295 (AMF.UML.Properties.UML_Property_Access' 296 (AMF.Utp.Data_Pools.Utp_Data_Pool_Access 297 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Property)); 298 299 else 300 raise Program_Error; 301 end if; 302 end Utp_Data_Pool_Get; 303 304 --------------------------- 305 -- Utp_Data_Selector_Get -- 306 --------------------------- 307 308 function Utp_Data_Selector_Get return League.Holders.Holder is 309 begin 310 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Selector_Base_Operation_A_Extension_Data_Selector then 311 -- DataSelector::base_Operation : Operation 312 313 return 314 AMF.Internals.Holders.UML_Holders.To_Holder 315 (AMF.UML.Operations.UML_Operation_Access' 316 (AMF.Utp.Data_Selectors.Utp_Data_Selector_Access 317 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Operation)); 318 319 else 320 raise Program_Error; 321 end if; 322 end Utp_Data_Selector_Get; 323 324 --------------------- 325 -- Utp_Default_Get -- 326 --------------------- 327 328 function Utp_Default_Get return League.Holders.Holder is 329 begin 330 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Default_Base_Behavior_A_Extension_Default then 331 -- Default::base_Behavior : Behavior 332 333 return 334 AMF.Internals.Holders.UML_Holders.To_Holder 335 (AMF.UML.Behaviors.UML_Behavior_Access' 336 (AMF.Utp.Defaults.Utp_Default_Access 337 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Behavior)); 338 339 else 340 raise Program_Error; 341 end if; 342 end Utp_Default_Get; 343 344 --------------------------------- 345 -- Utp_Default_Application_Get -- 346 --------------------------------- 347 348 function Utp_Default_Application_Get return League.Holders.Holder is 349 begin 350 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Default_Application_Base_Dependency_A_Extension_Default_Application then 351 -- DefaultApplication::base_Dependency : Dependency 352 353 return 354 AMF.Internals.Holders.UML_Holders.To_Holder 355 (AMF.UML.Dependencies.UML_Dependency_Access' 356 (AMF.Utp.Default_Applications.Utp_Default_Application_Access 357 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Dependency)); 358 359 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Default_Application_Repetition then 360 -- DefaultApplication::repetition : UnlimitedNatural 361 362 return 363 AMF.Holders.Unlimited_Naturals.To_Holder 364 (AMF.Utp.Default_Applications.Utp_Default_Application_Access 365 (AMF.Internals.Helpers.To_Element (Self)).Get_Repetition); 366 367 else 368 raise Program_Error; 369 end if; 370 end Utp_Default_Application_Get; 371 372 ------------------------ 373 -- Utp_Determ_Alt_Get -- 374 ------------------------ 375 376 function Utp_Determ_Alt_Get return League.Holders.Holder is 377 begin 378 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Determ_Alt_Base_Combined_Fragment_A_Extension_Determ_Alt then 379 -- DetermAlt::base_CombinedFragment : CombinedFragment 380 381 return 382 AMF.Internals.Holders.UML_Holders.To_Holder 383 (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access' 384 (AMF.Utp.Determ_Alts.Utp_Determ_Alt_Access 385 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Combined_Fragment)); 386 387 else 388 raise Program_Error; 389 end if; 390 end Utp_Determ_Alt_Get; 391 392 --------------------------- 393 -- Utp_Finish_Action_Get -- 394 --------------------------- 395 396 function Utp_Finish_Action_Get return League.Holders.Holder is 397 begin 398 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Finish_Action_Base_Invocation_Action_A_Extension_Finish_Action then 399 -- FinishAction::base_InvocationAction : InvocationAction 400 401 return 402 AMF.Internals.Holders.UML_Holders.To_Holder 403 (AMF.UML.Invocation_Actions.UML_Invocation_Action_Access' 404 (AMF.Utp.Finish_Actions.Utp_Finish_Action_Access 405 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Invocation_Action)); 406 407 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Finish_Action_Base_Opaque_Action_A_Extension_Finish_Action then 408 -- FinishAction::base_OpaqueAction : OpaqueAction 409 410 return 411 AMF.Internals.Holders.UML_Holders.To_Holder 412 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access' 413 (AMF.Utp.Finish_Actions.Utp_Finish_Action_Access 414 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Opaque_Action)); 415 416 else 417 raise Program_Error; 418 end if; 419 end Utp_Finish_Action_Get; 420 421 --------------------------------- 422 -- Utp_Get_Timezone_Action_Get -- 423 --------------------------------- 424 425 function Utp_Get_Timezone_Action_Get return League.Holders.Holder is 426 begin 427 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Get_Timezone_Action_Base_Read_Structural_Feature_Action_A_Extension_Get_Timezone_Action then 428 -- GetTimezoneAction::base_ReadStructuralFeatureAction : ReadStructuralFeatureAction 429 430 return 431 AMF.Internals.Holders.UML_Holders.To_Holder 432 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access' 433 (AMF.Utp.Get_Timezone_Actions.Utp_Get_Timezone_Action_Access 434 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Read_Structural_Feature_Action)); 435 436 else 437 raise Program_Error; 438 end if; 439 end Utp_Get_Timezone_Action_Get; 440 441 ------------------------- 442 -- Utp_Literal_Any_Get -- 443 ------------------------- 444 445 function Utp_Literal_Any_Get return League.Holders.Holder is 446 begin 447 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Literal_Any_Base_Literal_Specification_A_Extension_Literal_Any then 448 -- LiteralAny::base_LiteralSpecification : LiteralSpecification 449 450 return 451 AMF.Internals.Holders.UML_Holders.To_Holder 452 (AMF.UML.Literal_Specifications.UML_Literal_Specification_Access' 453 (AMF.Utp.Literal_Anies.Utp_Literal_Any_Access 454 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Literal_Specification)); 455 456 else 457 raise Program_Error; 458 end if; 459 end Utp_Literal_Any_Get; 460 461 --------------------------------- 462 -- Utp_Literal_Any_Or_Null_Get -- 463 --------------------------------- 464 465 function Utp_Literal_Any_Or_Null_Get return League.Holders.Holder is 466 begin 467 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Literal_Any_Or_Null_Base_Literal_Specification_A_Extension_Literal_Any_Or_Null then 468 -- LiteralAnyOrNull::base_LiteralSpecification : LiteralSpecification 469 470 return 471 AMF.Internals.Holders.UML_Holders.To_Holder 472 (AMF.UML.Literal_Specifications.UML_Literal_Specification_Access' 473 (AMF.Utp.Literal_Any_Or_Nulls.Utp_Literal_Any_Or_Null_Access 474 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Literal_Specification)); 475 476 else 477 raise Program_Error; 478 end if; 479 end Utp_Literal_Any_Or_Null_Get; 480 481 ------------------------ 482 -- Utp_Log_Action_Get -- 483 ------------------------ 484 485 function Utp_Log_Action_Get return League.Holders.Holder is 486 begin 487 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Log_Action_Base_Send_Object_Action_A_Extension_Log_Action then 488 -- LogAction::base_SendObjectAction : SendObjectAction 489 490 return 491 AMF.Internals.Holders.UML_Holders.To_Holder 492 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access' 493 (AMF.Utp.Log_Actions.Utp_Log_Action_Access 494 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Send_Object_Action)); 495 496 else 497 raise Program_Error; 498 end if; 499 end Utp_Log_Action_Get; 500 501 ----------------------------- 502 -- Utp_Managed_Element_Get -- 503 ----------------------------- 504 505 function Utp_Managed_Element_Get return League.Holders.Holder is 506 begin 507 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Base_Element_A_Extension_Managed_Element then 508 -- ManagedElement::base_Element : Element 509 510 return 511 AMF.Internals.Holders.UML_Holders.To_Holder 512 (AMF.UML.Elements.UML_Element_Access' 513 (AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 514 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Element)); 515 516 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Criticality then 517 -- ManagedElement::criticality : String 518 519 return 520 AMF.Holders.To_Holder 521 (AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 522 (AMF.Internals.Helpers.To_Element (Self)).Get_Criticality); 523 524 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Description then 525 -- ManagedElement::description : String 526 527 return 528 AMF.Holders.To_Holder 529 (AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 530 (AMF.Internals.Helpers.To_Element (Self)).Get_Description); 531 532 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Owner then 533 -- ManagedElement::owner : String 534 535 return 536 AMF.Holders.To_Holder 537 (AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 538 (AMF.Internals.Helpers.To_Element (Self)).Get_Owner); 539 540 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Version then 541 -- ManagedElement::version : String 542 543 return 544 AMF.Holders.To_Holder 545 (AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 546 (AMF.Internals.Helpers.To_Element (Self)).Get_Version); 547 548 else 549 raise Program_Error; 550 end if; 551 end Utp_Managed_Element_Get; 552 553 ------------------------------- 554 -- Utp_Read_Timer_Action_Get -- 555 ------------------------------- 556 557 function Utp_Read_Timer_Action_Get return League.Holders.Holder is 558 begin 559 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Read_Timer_Action_Base_Call_Operation_Action_A_Extension_Read_Timer_Action then 560 -- ReadTimerAction::base_CallOperationAction : CallOperationAction 561 562 return 563 AMF.Internals.Holders.UML_Holders.To_Holder 564 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access' 565 (AMF.Utp.Read_Timer_Actions.Utp_Read_Timer_Action_Access 566 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Call_Operation_Action)); 567 568 else 569 raise Program_Error; 570 end if; 571 end Utp_Read_Timer_Action_Get; 572 573 ----------------- 574 -- Utp_SUT_Get -- 575 ----------------- 576 577 function Utp_SUT_Get return League.Holders.Holder is 578 begin 579 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_SUT_Base_Property_A_Extension_SUT then 580 -- SUT::base_Property : Property 581 582 return 583 AMF.Internals.Holders.UML_Holders.To_Holder 584 (AMF.UML.Properties.UML_Property_Access' 585 (AMF.Utp.SUTs.Utp_SUT_Access 586 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Property)); 587 588 else 589 raise Program_Error; 590 end if; 591 end Utp_SUT_Get; 592 593 --------------------------------- 594 -- Utp_Set_Timezone_Action_Get -- 595 --------------------------------- 596 597 function Utp_Set_Timezone_Action_Get return League.Holders.Holder is 598 begin 599 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Set_Timezone_Action_Base_Write_Structural_Feature_Action_A_Extension_Set_Timezone_Action then 600 -- SetTimezoneAction::base_WriteStructuralFeatureAction : WriteStructuralFeatureAction 601 602 return 603 AMF.Internals.Holders.UML_Holders.To_Holder 604 (AMF.UML.Write_Structural_Feature_Actions.UML_Write_Structural_Feature_Action_Access' 605 (AMF.Utp.Set_Timezone_Actions.Utp_Set_Timezone_Action_Access 606 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Write_Structural_Feature_Action)); 607 608 else 609 raise Program_Error; 610 end if; 611 end Utp_Set_Timezone_Action_Get; 612 613 -------------------------------- 614 -- Utp_Start_Timer_Action_Get -- 615 -------------------------------- 616 617 function Utp_Start_Timer_Action_Get return League.Holders.Holder is 618 begin 619 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Start_Timer_Action_Base_Call_Operation_Action_A_Extension_Start_Timer_Action then 620 -- StartTimerAction::base_CallOperationAction : CallOperationAction 621 622 return 623 AMF.Internals.Holders.UML_Holders.To_Holder 624 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access' 625 (AMF.Utp.Start_Timer_Actions.Utp_Start_Timer_Action_Access 626 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Call_Operation_Action)); 627 628 else 629 raise Program_Error; 630 end if; 631 end Utp_Start_Timer_Action_Get; 632 633 ------------------------------- 634 -- Utp_Stop_Timer_Action_Get -- 635 ------------------------------- 636 637 function Utp_Stop_Timer_Action_Get return League.Holders.Holder is 638 begin 639 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Stop_Timer_Action_Base_Call_Operation_Action_A_Extension_Stop_Timer_Action then 640 -- StopTimerAction::base_CallOperationAction : CallOperationAction 641 642 return 643 AMF.Internals.Holders.UML_Holders.To_Holder 644 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access' 645 (AMF.Utp.Stop_Timer_Actions.Utp_Stop_Timer_Action_Access 646 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Call_Operation_Action)); 647 648 else 649 raise Program_Error; 650 end if; 651 end Utp_Stop_Timer_Action_Get; 652 653 ----------------------- 654 -- Utp_Test_Case_Get -- 655 ----------------------- 656 657 function Utp_Test_Case_Get return League.Holders.Holder is 658 begin 659 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Base_Behavior_A_Extension_Test_Case then 660 -- TestCase::base_Behavior : Behavior 661 662 return 663 AMF.Internals.Holders.UML_Holders.To_Holder 664 (AMF.UML.Behaviors.UML_Behavior_Access' 665 (AMF.Utp.Test_Cases.Utp_Test_Case_Access 666 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Behavior)); 667 668 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Base_Operation_A_Extension_Test_Case then 669 -- TestCase::base_Operation : Operation 670 671 return 672 AMF.Internals.Holders.UML_Holders.To_Holder 673 (AMF.UML.Operations.UML_Operation_Access' 674 (AMF.Utp.Test_Cases.Utp_Test_Case_Access 675 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Operation)); 676 677 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Compatible_SUT_Variant then 678 -- TestCase::compatibleSUTVariant : String 679 680 return 681 AMF.String_Collections.Internals.To_Holder 682 (AMF.Utp.Test_Cases.Utp_Test_Case_Access 683 (AMF.Internals.Helpers.To_Element (Self)).Get_Compatible_SUT_Variant); 684 685 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Compatible_SUT_Version then 686 -- TestCase::compatibleSUTVersion : String 687 688 return 689 AMF.String_Collections.Internals.To_Holder 690 (AMF.Utp.Test_Cases.Utp_Test_Case_Access 691 (AMF.Internals.Helpers.To_Element (Self)).Get_Compatible_SUT_Version); 692 693 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Priority then 694 -- TestCase::priority : String 695 696 return 697 AMF.Holders.To_Holder 698 (AMF.Utp.Test_Cases.Utp_Test_Case_Access 699 (AMF.Internals.Helpers.To_Element (Self)).Get_Priority); 700 701 else 702 raise Program_Error; 703 end if; 704 end Utp_Test_Case_Get; 705 706 ---------------------------- 707 -- Utp_Test_Component_Get -- 708 ---------------------------- 709 710 function Utp_Test_Component_Get return League.Holders.Holder is 711 begin 712 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Component_Base_Structured_Classifier_A_Extension_Test_Component then 713 -- TestComponent::base_StructuredClassifier : StructuredClassifier 714 715 return 716 AMF.Internals.Holders.UML_Holders.To_Holder 717 (AMF.UML.Structured_Classifiers.UML_Structured_Classifier_Access' 718 (AMF.Utp.Test_Components.Utp_Test_Component_Access 719 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Structured_Classifier)); 720 721 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Component_Compatible_SUT_Variant then 722 -- TestComponent::compatibleSUTVariant : String 723 724 return 725 AMF.String_Collections.Internals.To_Holder 726 (AMF.Utp.Test_Components.Utp_Test_Component_Access 727 (AMF.Internals.Helpers.To_Element (Self)).Get_Compatible_SUT_Variant); 728 729 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Component_Compatible_SUT_Version then 730 -- TestComponent::compatibleSUTVersion : String 731 732 return 733 AMF.String_Collections.Internals.To_Holder 734 (AMF.Utp.Test_Components.Utp_Test_Component_Access 735 (AMF.Internals.Helpers.To_Element (Self)).Get_Compatible_SUT_Version); 736 737 else 738 raise Program_Error; 739 end if; 740 end Utp_Test_Component_Get; 741 742 -------------------------- 743 -- Utp_Test_Context_Get -- 744 -------------------------- 745 746 function Utp_Test_Context_Get return League.Holders.Holder is 747 begin 748 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Base_Behaviored_Classifier_A_Extension_Test_Context then 749 -- TestContext::base_BehavioredClassifier : BehavioredClassifier 750 751 return 752 AMF.Internals.Holders.UML_Holders.To_Holder 753 (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access' 754 (AMF.Utp.Test_Contexts.Utp_Test_Context_Access 755 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Behaviored_Classifier)); 756 757 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Base_Structured_Classifier_A_Extension_Test_Context then 758 -- TestContext::base_StructuredClassifier : StructuredClassifier 759 760 return 761 AMF.Internals.Holders.UML_Holders.To_Holder 762 (AMF.UML.Structured_Classifiers.UML_Structured_Classifier_Access' 763 (AMF.Utp.Test_Contexts.Utp_Test_Context_Access 764 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Structured_Classifier)); 765 766 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Compatible_SUT_Variant then 767 -- TestContext::compatibleSUTVariant : String 768 769 return 770 AMF.String_Collections.Internals.To_Holder 771 (AMF.Utp.Test_Contexts.Utp_Test_Context_Access 772 (AMF.Internals.Helpers.To_Element (Self)).Get_Compatible_SUT_Variant); 773 774 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Compatible_SUT_Version then 775 -- TestContext::compatibleSUTVersion : String 776 777 return 778 AMF.String_Collections.Internals.To_Holder 779 (AMF.Utp.Test_Contexts.Utp_Test_Context_Access 780 (AMF.Internals.Helpers.To_Element (Self)).Get_Compatible_SUT_Version); 781 782 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Test_Level then 783 -- TestContext::testLevel : String 784 785 return 786 AMF.Holders.To_Holder 787 (AMF.Utp.Test_Contexts.Utp_Test_Context_Access 788 (AMF.Internals.Helpers.To_Element (Self)).Get_Test_Level); 789 790 else 791 raise Program_Error; 792 end if; 793 end Utp_Test_Context_Get; 794 795 ---------------------- 796 -- Utp_Test_Log_Get -- 797 ---------------------- 798 799 function Utp_Test_Log_Get return League.Holders.Holder is 800 begin 801 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Base_Behavior_A_Extension_Test_Log then 802 -- TestLog::base_Behavior : Behavior 803 804 return 805 AMF.Internals.Holders.UML_Holders.To_Holder 806 (AMF.UML.Behaviors.UML_Behavior_Access' 807 (AMF.Utp.Test_Logs.Utp_Test_Log_Access 808 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Behavior)); 809 810 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Duration then 811 -- TestLog::duration : String 812 813 return 814 AMF.Holders.To_Holder 815 (AMF.Utp.Test_Logs.Utp_Test_Log_Access 816 (AMF.Internals.Helpers.To_Element (Self)).Get_Duration); 817 818 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Executed_At then 819 -- TestLog::executedAt : String 820 821 return 822 AMF.Holders.To_Holder 823 (AMF.Utp.Test_Logs.Utp_Test_Log_Access 824 (AMF.Internals.Helpers.To_Element (Self)).Get_Executed_At); 825 826 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Sut_Version then 827 -- TestLog::sutVersion : String 828 829 return 830 AMF.Holders.To_Holder 831 (AMF.Utp.Test_Logs.Utp_Test_Log_Access 832 (AMF.Internals.Helpers.To_Element (Self)).Get_Sut_Version); 833 834 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Tester then 835 -- TestLog::tester : String 836 837 return 838 AMF.String_Collections.Internals.To_Holder 839 (AMF.Utp.Test_Logs.Utp_Test_Log_Access 840 (AMF.Internals.Helpers.To_Element (Self)).Get_Tester); 841 842 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Verdict then 843 -- TestLog::verdict : Verdict 844 845 return 846 AMF.Utp.Holders.Verdicts.To_Holder 847 (AMF.Utp.Test_Logs.Utp_Test_Log_Access 848 (AMF.Internals.Helpers.To_Element (Self)).Get_Verdict); 849 850 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Verdict_Reason then 851 -- TestLog::verdictReason : String 852 853 return 854 AMF.Holders.To_Holder 855 (AMF.Utp.Test_Logs.Utp_Test_Log_Access 856 (AMF.Internals.Helpers.To_Element (Self)).Get_Verdict_Reason); 857 858 else 859 raise Program_Error; 860 end if; 861 end Utp_Test_Log_Get; 862 863 ---------------------------------- 864 -- Utp_Test_Log_Application_Get -- 865 ---------------------------------- 866 867 function Utp_Test_Log_Application_Get return League.Holders.Holder is 868 begin 869 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Application_Base_Dependency_A_Extension_Test_Log_Application then 870 -- TestLogApplication::base_Dependency : Dependency 871 872 return 873 AMF.Internals.Holders.UML_Holders.To_Holder 874 (AMF.UML.Dependencies.UML_Dependency_Access' 875 (AMF.Utp.Test_Log_Applications.Utp_Test_Log_Application_Access 876 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Dependency)); 877 878 else 879 raise Program_Error; 880 end if; 881 end Utp_Test_Log_Application_Get; 882 883 ---------------------------- 884 -- Utp_Test_Objective_Get -- 885 ---------------------------- 886 887 function Utp_Test_Objective_Get return League.Holders.Holder is 888 begin 889 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Objective_Base_Dependency_A_Extension_Test_Objective then 890 -- TestObjective::base_Dependency : Dependency 891 892 return 893 AMF.Internals.Holders.UML_Holders.To_Holder 894 (AMF.UML.Dependencies.UML_Dependency_Access' 895 (AMF.Utp.Test_Objectives.Utp_Test_Objective_Access 896 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Dependency)); 897 898 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Objective_Priority then 899 -- TestObjective::priority : String 900 901 return 902 AMF.Holders.To_Holder 903 (AMF.Utp.Test_Objectives.Utp_Test_Objective_Access 904 (AMF.Internals.Helpers.To_Element (Self)).Get_Priority); 905 906 else 907 raise Program_Error; 908 end if; 909 end Utp_Test_Objective_Get; 910 911 ------------------------ 912 -- Utp_Test_Suite_Get -- 913 ------------------------ 914 915 function Utp_Test_Suite_Get return League.Holders.Holder is 916 begin 917 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Suite_Base_Behavior_A_Extension_Test_Suite then 918 -- TestSuite::base_Behavior : Behavior 919 920 return 921 AMF.Internals.Holders.UML_Holders.To_Holder 922 (AMF.UML.Behaviors.UML_Behavior_Access' 923 (AMF.Utp.Test_Suites.Utp_Test_Suite_Access 924 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Behavior)); 925 926 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Suite_Priority then 927 -- TestSuite::priority : String 928 929 return 930 AMF.Holders.To_Holder 931 (AMF.Utp.Test_Suites.Utp_Test_Suite_Access 932 (AMF.Internals.Helpers.To_Element (Self)).Get_Priority); 933 934 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Suite_Test_Case then 935 -- TestSuite::testCase : TestCase 936 937 return 938 AMF.Utp.Test_Cases.Collections.Utp_Test_Case_Collections.Internals.To_Holder 939 (AMF.Utp.Test_Suites.Utp_Test_Suite_Access 940 (AMF.Internals.Helpers.To_Element (Self)).Get_Test_Case); 941 942 else 943 raise Program_Error; 944 end if; 945 end Utp_Test_Suite_Get; 946 947 ---------------------- 948 -- Utp_Time_Out_Get -- 949 ---------------------- 950 951 function Utp_Time_Out_Get return League.Holders.Holder is 952 begin 953 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Time_Out_Base_Time_Event_A_Extension_Time_Out then 954 -- TimeOut::base_TimeEvent : TimeEvent 955 956 return 957 AMF.Internals.Holders.UML_Holders.To_Holder 958 (AMF.UML.Time_Events.UML_Time_Event_Access' 959 (AMF.Utp.Time_Outs.Utp_Time_Out_Access 960 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Time_Event)); 961 962 else 963 raise Program_Error; 964 end if; 965 end Utp_Time_Out_Get; 966 967 ----------------------------- 968 -- Utp_Time_Out_Action_Get -- 969 ----------------------------- 970 971 function Utp_Time_Out_Action_Get return League.Holders.Holder is 972 begin 973 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Time_Out_Action_Base_Accept_Event_Action_A_Extension_Time_Out_Action then 974 -- TimeOutAction::base_AcceptEventAction : AcceptEventAction 975 976 return 977 AMF.Internals.Holders.UML_Holders.To_Holder 978 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access' 979 (AMF.Utp.Time_Out_Actions.Utp_Time_Out_Action_Access 980 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Accept_Event_Action)); 981 982 else 983 raise Program_Error; 984 end if; 985 end Utp_Time_Out_Action_Get; 986 987 ------------------------------ 988 -- Utp_Time_Out_Message_Get -- 989 ------------------------------ 990 991 function Utp_Time_Out_Message_Get return League.Holders.Holder is 992 begin 993 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Time_Out_Message_Base_Message_A_Extension_Time_Out_Message then 994 -- TimeOutMessage::base_Message : Message 995 996 return 997 AMF.Internals.Holders.UML_Holders.To_Holder 998 (AMF.UML.Messages.UML_Message_Access' 999 (AMF.Utp.Time_Out_Messages.Utp_Time_Out_Message_Access 1000 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Message)); 1001 1002 else 1003 raise Program_Error; 1004 end if; 1005 end Utp_Time_Out_Message_Get; 1006 1007 ---------------------------------- 1008 -- Utp_Timer_Running_Action_Get -- 1009 ---------------------------------- 1010 1011 function Utp_Timer_Running_Action_Get return League.Holders.Holder is 1012 begin 1013 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Timer_Running_Action_Base_Read_Structural_Feature_Action_A_Extension_Timer_Running_Action then 1014 -- TimerRunningAction::base_ReadStructuralFeatureAction : ReadStructuralFeatureAction 1015 1016 return 1017 AMF.Internals.Holders.UML_Holders.To_Holder 1018 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access' 1019 (AMF.Utp.Timer_Running_Actions.Utp_Timer_Running_Action_Access 1020 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Read_Structural_Feature_Action)); 1021 1022 else 1023 raise Program_Error; 1024 end if; 1025 end Utp_Timer_Running_Action_Get; 1026 1027 ------------------------------- 1028 -- Utp_Validation_Action_Get -- 1029 ------------------------------- 1030 1031 function Utp_Validation_Action_Get return League.Holders.Holder is 1032 begin 1033 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Validation_Action_Base_Call_Operation_Action_A_Extension_Validation_Action then 1034 -- ValidationAction::base_CallOperationAction : CallOperationAction 1035 1036 return 1037 AMF.Internals.Holders.UML_Holders.To_Holder 1038 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access' 1039 (AMF.Utp.Validation_Actions.Utp_Validation_Action_Access 1040 (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Call_Operation_Action)); 1041 1042 else 1043 raise Program_Error; 1044 end if; 1045 end Utp_Validation_Action_Get; 1046 1047 begin 1048 case AMF.Internals.Tables.UTP_Element_Table.Table (Self).Kind is 1049 when AMF.Internals.Tables.UTP_Types.E_None => 1050 raise Program_Error; 1051 1052 when AMF.Internals.Tables.UTP_Types.E_Utp_Coding_Rule => 1053 return Utp_Coding_Rule_Get; 1054 1055 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Partition => 1056 return Utp_Data_Partition_Get; 1057 1058 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Pool => 1059 return Utp_Data_Pool_Get; 1060 1061 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Selector => 1062 return Utp_Data_Selector_Get; 1063 1064 when AMF.Internals.Tables.UTP_Types.E_Utp_Default => 1065 return Utp_Default_Get; 1066 1067 when AMF.Internals.Tables.UTP_Types.E_Utp_Default_Application => 1068 return Utp_Default_Application_Get; 1069 1070 when AMF.Internals.Tables.UTP_Types.E_Utp_Determ_Alt => 1071 return Utp_Determ_Alt_Get; 1072 1073 when AMF.Internals.Tables.UTP_Types.E_Utp_Finish_Action => 1074 return Utp_Finish_Action_Get; 1075 1076 when AMF.Internals.Tables.UTP_Types.E_Utp_Get_Timezone_Action => 1077 return Utp_Get_Timezone_Action_Get; 1078 1079 when AMF.Internals.Tables.UTP_Types.E_Utp_Literal_Any => 1080 return Utp_Literal_Any_Get; 1081 1082 when AMF.Internals.Tables.UTP_Types.E_Utp_Literal_Any_Or_Null => 1083 return Utp_Literal_Any_Or_Null_Get; 1084 1085 when AMF.Internals.Tables.UTP_Types.E_Utp_Log_Action => 1086 return Utp_Log_Action_Get; 1087 1088 when AMF.Internals.Tables.UTP_Types.E_Utp_Managed_Element => 1089 return Utp_Managed_Element_Get; 1090 1091 when AMF.Internals.Tables.UTP_Types.E_Utp_Read_Timer_Action => 1092 return Utp_Read_Timer_Action_Get; 1093 1094 when AMF.Internals.Tables.UTP_Types.E_Utp_SUT => 1095 return Utp_SUT_Get; 1096 1097 when AMF.Internals.Tables.UTP_Types.E_Utp_Set_Timezone_Action => 1098 return Utp_Set_Timezone_Action_Get; 1099 1100 when AMF.Internals.Tables.UTP_Types.E_Utp_Start_Timer_Action => 1101 return Utp_Start_Timer_Action_Get; 1102 1103 when AMF.Internals.Tables.UTP_Types.E_Utp_Stop_Timer_Action => 1104 return Utp_Stop_Timer_Action_Get; 1105 1106 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Case => 1107 return Utp_Test_Case_Get; 1108 1109 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Component => 1110 return Utp_Test_Component_Get; 1111 1112 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Context => 1113 return Utp_Test_Context_Get; 1114 1115 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Log => 1116 return Utp_Test_Log_Get; 1117 1118 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Log_Application => 1119 return Utp_Test_Log_Application_Get; 1120 1121 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Objective => 1122 return Utp_Test_Objective_Get; 1123 1124 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Suite => 1125 return Utp_Test_Suite_Get; 1126 1127 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out => 1128 return Utp_Time_Out_Get; 1129 1130 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out_Action => 1131 return Utp_Time_Out_Action_Get; 1132 1133 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out_Message => 1134 return Utp_Time_Out_Message_Get; 1135 1136 when AMF.Internals.Tables.UTP_Types.E_Utp_Timer_Running_Action => 1137 return Utp_Timer_Running_Action_Get; 1138 1139 when AMF.Internals.Tables.UTP_Types.E_Utp_Validation_Action => 1140 return Utp_Validation_Action_Get; 1141 end case; 1142 end Get; 1143 1144 -------------------- 1145 -- Get_Meta_Class -- 1146 -------------------- 1147 1148 function Get_Meta_Class 1149 (Self : AMF.Internals.AMF_Element) return CMOF_Element is 1150 begin 1151 case UTP_Element_Table.Table (Self).Kind is 1152 when AMF.Internals.Tables.UTP_Types.E_None => 1153 return 0; 1154 1155 when AMF.Internals.Tables.UTP_Types.E_Utp_Coding_Rule => 1156 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Coding_Rule; 1157 1158 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Partition => 1159 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Data_Partition; 1160 1161 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Pool => 1162 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Data_Pool; 1163 1164 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Selector => 1165 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Data_Selector; 1166 1167 when AMF.Internals.Tables.UTP_Types.E_Utp_Default => 1168 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Default; 1169 1170 when AMF.Internals.Tables.UTP_Types.E_Utp_Default_Application => 1171 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Default_Application; 1172 1173 when AMF.Internals.Tables.UTP_Types.E_Utp_Determ_Alt => 1174 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Determ_Alt; 1175 1176 when AMF.Internals.Tables.UTP_Types.E_Utp_Finish_Action => 1177 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Finish_Action; 1178 1179 when AMF.Internals.Tables.UTP_Types.E_Utp_Get_Timezone_Action => 1180 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Get_Timezone_Action; 1181 1182 when AMF.Internals.Tables.UTP_Types.E_Utp_Literal_Any => 1183 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Literal_Any; 1184 1185 when AMF.Internals.Tables.UTP_Types.E_Utp_Literal_Any_Or_Null => 1186 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Literal_Any_Or_Null; 1187 1188 when AMF.Internals.Tables.UTP_Types.E_Utp_Log_Action => 1189 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Log_Action; 1190 1191 when AMF.Internals.Tables.UTP_Types.E_Utp_Managed_Element => 1192 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Managed_Element; 1193 1194 when AMF.Internals.Tables.UTP_Types.E_Utp_Read_Timer_Action => 1195 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Read_Timer_Action; 1196 1197 when AMF.Internals.Tables.UTP_Types.E_Utp_SUT => 1198 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_SUT; 1199 1200 when AMF.Internals.Tables.UTP_Types.E_Utp_Set_Timezone_Action => 1201 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Set_Timezone_Action; 1202 1203 when AMF.Internals.Tables.UTP_Types.E_Utp_Start_Timer_Action => 1204 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Start_Timer_Action; 1205 1206 when AMF.Internals.Tables.UTP_Types.E_Utp_Stop_Timer_Action => 1207 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Stop_Timer_Action; 1208 1209 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Case => 1210 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Test_Case; 1211 1212 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Component => 1213 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Test_Component; 1214 1215 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Context => 1216 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Test_Context; 1217 1218 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Log => 1219 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Test_Log; 1220 1221 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Log_Application => 1222 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Test_Log_Application; 1223 1224 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Objective => 1225 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Test_Objective; 1226 1227 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Suite => 1228 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Test_Suite; 1229 1230 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out => 1231 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Time_Out; 1232 1233 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out_Action => 1234 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Time_Out_Action; 1235 1236 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out_Message => 1237 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Time_Out_Message; 1238 1239 when AMF.Internals.Tables.UTP_Types.E_Utp_Timer_Running_Action => 1240 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Timer_Running_Action; 1241 1242 when AMF.Internals.Tables.UTP_Types.E_Utp_Validation_Action => 1243 return AMF.Internals.Tables.Utp_Metamodel.MC_Utp_Validation_Action; 1244 end case; 1245 end Get_Meta_Class; 1246 1247 --------- 1248 -- Set -- 1249 --------- 1250 1251 procedure Set 1252 (Self : AMF.Internals.AMF_Element; 1253 Property : CMOF_Element; 1254 Value : League.Holders.Holder) 1255 is 1256 1257 procedure Utp_Coding_Rule_Set; 1258 -- Sets attribute's value of instance of CodingRule class. 1259 1260 procedure Utp_Data_Partition_Set; 1261 -- Sets attribute's value of instance of DataPartition class. 1262 1263 procedure Utp_Data_Pool_Set; 1264 -- Sets attribute's value of instance of DataPool class. 1265 1266 procedure Utp_Data_Selector_Set; 1267 -- Sets attribute's value of instance of DataSelector class. 1268 1269 procedure Utp_Default_Set; 1270 -- Sets attribute's value of instance of Default class. 1271 1272 procedure Utp_Default_Application_Set; 1273 -- Sets attribute's value of instance of DefaultApplication class. 1274 1275 procedure Utp_Determ_Alt_Set; 1276 -- Sets attribute's value of instance of DetermAlt class. 1277 1278 procedure Utp_Finish_Action_Set; 1279 -- Sets attribute's value of instance of FinishAction class. 1280 1281 procedure Utp_Get_Timezone_Action_Set; 1282 -- Sets attribute's value of instance of GetTimezoneAction class. 1283 1284 procedure Utp_Literal_Any_Set; 1285 -- Sets attribute's value of instance of LiteralAny class. 1286 1287 procedure Utp_Literal_Any_Or_Null_Set; 1288 -- Sets attribute's value of instance of LiteralAnyOrNull class. 1289 1290 procedure Utp_Log_Action_Set; 1291 -- Sets attribute's value of instance of LogAction class. 1292 1293 procedure Utp_Managed_Element_Set; 1294 -- Sets attribute's value of instance of ManagedElement class. 1295 1296 procedure Utp_Read_Timer_Action_Set; 1297 -- Sets attribute's value of instance of ReadTimerAction class. 1298 1299 procedure Utp_SUT_Set; 1300 -- Sets attribute's value of instance of SUT class. 1301 1302 procedure Utp_Set_Timezone_Action_Set; 1303 -- Sets attribute's value of instance of SetTimezoneAction class. 1304 1305 procedure Utp_Start_Timer_Action_Set; 1306 -- Sets attribute's value of instance of StartTimerAction class. 1307 1308 procedure Utp_Stop_Timer_Action_Set; 1309 -- Sets attribute's value of instance of StopTimerAction class. 1310 1311 procedure Utp_Test_Case_Set; 1312 -- Sets attribute's value of instance of TestCase class. 1313 1314 procedure Utp_Test_Component_Set; 1315 -- Sets attribute's value of instance of TestComponent class. 1316 1317 procedure Utp_Test_Context_Set; 1318 -- Sets attribute's value of instance of TestContext class. 1319 1320 procedure Utp_Test_Log_Set; 1321 -- Sets attribute's value of instance of TestLog class. 1322 1323 procedure Utp_Test_Log_Application_Set; 1324 -- Sets attribute's value of instance of TestLogApplication class. 1325 1326 procedure Utp_Test_Objective_Set; 1327 -- Sets attribute's value of instance of TestObjective class. 1328 1329 procedure Utp_Test_Suite_Set; 1330 -- Sets attribute's value of instance of TestSuite class. 1331 1332 procedure Utp_Time_Out_Set; 1333 -- Sets attribute's value of instance of TimeOut class. 1334 1335 procedure Utp_Time_Out_Action_Set; 1336 -- Sets attribute's value of instance of TimeOutAction class. 1337 1338 procedure Utp_Time_Out_Message_Set; 1339 -- Sets attribute's value of instance of TimeOutMessage class. 1340 1341 procedure Utp_Timer_Running_Action_Set; 1342 -- Sets attribute's value of instance of TimerRunningAction class. 1343 1344 procedure Utp_Validation_Action_Set; 1345 -- Sets attribute's value of instance of ValidationAction class. 1346 1347 ------------------------- 1348 -- Utp_Coding_Rule_Set -- 1349 ------------------------- 1350 1351 procedure Utp_Coding_Rule_Set is 1352 begin 1353 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Base_Namespace_A_Extension_Coding_Rule then 1354 -- CodingRule::base_Namespace : Namespace 1355 1356 AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 1357 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Namespace 1358 (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value))); 1359 1360 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Base_Property_A_Extension_Coding_Rule then 1361 -- CodingRule::base_Property : Property 1362 1363 AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 1364 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Property 1365 (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value))); 1366 1367 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Base_Value_Specification_A_Extension_Coding_Rule then 1368 -- CodingRule::base_ValueSpecification : ValueSpecification 1369 1370 AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 1371 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Value_Specification 1372 (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value))); 1373 1374 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Coding_Rule_Coding then 1375 -- CodingRule::coding : String 1376 1377 AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access 1378 (AMF.Internals.Helpers.To_Element (Self)).Set_Coding 1379 (League.Holders.Element (Value)); 1380 1381 else 1382 raise Program_Error; 1383 end if; 1384 end Utp_Coding_Rule_Set; 1385 1386 ---------------------------- 1387 -- Utp_Data_Partition_Set -- 1388 ---------------------------- 1389 1390 procedure Utp_Data_Partition_Set is 1391 begin 1392 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Partition_Base_Classifier_A_Extension_Data_Partition then 1393 -- DataPartition::base_Classifier : Classifier 1394 1395 AMF.Utp.Data_Partitions.Utp_Data_Partition_Access 1396 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Classifier 1397 (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value))); 1398 1399 else 1400 raise Program_Error; 1401 end if; 1402 end Utp_Data_Partition_Set; 1403 1404 ----------------------- 1405 -- Utp_Data_Pool_Set -- 1406 ----------------------- 1407 1408 procedure Utp_Data_Pool_Set is 1409 begin 1410 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Pool_Base_Classifier_A_Extension_Data_Pool then 1411 -- DataPool::base_Classifier : Classifier 1412 1413 AMF.Utp.Data_Pools.Utp_Data_Pool_Access 1414 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Classifier 1415 (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value))); 1416 1417 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Pool_Base_Property_A_Extension_Data_Pool then 1418 -- DataPool::base_Property : Property 1419 1420 AMF.Utp.Data_Pools.Utp_Data_Pool_Access 1421 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Property 1422 (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value))); 1423 1424 else 1425 raise Program_Error; 1426 end if; 1427 end Utp_Data_Pool_Set; 1428 1429 --------------------------- 1430 -- Utp_Data_Selector_Set -- 1431 --------------------------- 1432 1433 procedure Utp_Data_Selector_Set is 1434 begin 1435 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Data_Selector_Base_Operation_A_Extension_Data_Selector then 1436 -- DataSelector::base_Operation : Operation 1437 1438 AMF.Utp.Data_Selectors.Utp_Data_Selector_Access 1439 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Operation 1440 (AMF.UML.Operations.UML_Operation_Access (AMF.Holders.Elements.Element (Value))); 1441 1442 else 1443 raise Program_Error; 1444 end if; 1445 end Utp_Data_Selector_Set; 1446 1447 --------------------- 1448 -- Utp_Default_Set -- 1449 --------------------- 1450 1451 procedure Utp_Default_Set is 1452 begin 1453 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Default_Base_Behavior_A_Extension_Default then 1454 -- Default::base_Behavior : Behavior 1455 1456 AMF.Utp.Defaults.Utp_Default_Access 1457 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Behavior 1458 (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value))); 1459 1460 else 1461 raise Program_Error; 1462 end if; 1463 end Utp_Default_Set; 1464 1465 --------------------------------- 1466 -- Utp_Default_Application_Set -- 1467 --------------------------------- 1468 1469 procedure Utp_Default_Application_Set is 1470 begin 1471 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Default_Application_Base_Dependency_A_Extension_Default_Application then 1472 -- DefaultApplication::base_Dependency : Dependency 1473 1474 AMF.Utp.Default_Applications.Utp_Default_Application_Access 1475 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Dependency 1476 (AMF.UML.Dependencies.UML_Dependency_Access (AMF.Holders.Elements.Element (Value))); 1477 1478 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Default_Application_Repetition then 1479 -- DefaultApplication::repetition : UnlimitedNatural 1480 1481 AMF.Utp.Default_Applications.Utp_Default_Application_Access 1482 (AMF.Internals.Helpers.To_Element (Self)).Set_Repetition 1483 (AMF.Holders.Unlimited_Naturals.Element (Value)); 1484 1485 else 1486 raise Program_Error; 1487 end if; 1488 end Utp_Default_Application_Set; 1489 1490 ------------------------ 1491 -- Utp_Determ_Alt_Set -- 1492 ------------------------ 1493 1494 procedure Utp_Determ_Alt_Set is 1495 begin 1496 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Determ_Alt_Base_Combined_Fragment_A_Extension_Determ_Alt then 1497 -- DetermAlt::base_CombinedFragment : CombinedFragment 1498 1499 AMF.Utp.Determ_Alts.Utp_Determ_Alt_Access 1500 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Combined_Fragment 1501 (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access (AMF.Holders.Elements.Element (Value))); 1502 1503 else 1504 raise Program_Error; 1505 end if; 1506 end Utp_Determ_Alt_Set; 1507 1508 --------------------------- 1509 -- Utp_Finish_Action_Set -- 1510 --------------------------- 1511 1512 procedure Utp_Finish_Action_Set is 1513 begin 1514 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Finish_Action_Base_Invocation_Action_A_Extension_Finish_Action then 1515 -- FinishAction::base_InvocationAction : InvocationAction 1516 1517 AMF.Utp.Finish_Actions.Utp_Finish_Action_Access 1518 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Invocation_Action 1519 (AMF.UML.Invocation_Actions.UML_Invocation_Action_Access (AMF.Holders.Elements.Element (Value))); 1520 1521 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Finish_Action_Base_Opaque_Action_A_Extension_Finish_Action then 1522 -- FinishAction::base_OpaqueAction : OpaqueAction 1523 1524 AMF.Utp.Finish_Actions.Utp_Finish_Action_Access 1525 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Opaque_Action 1526 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access (AMF.Holders.Elements.Element (Value))); 1527 1528 else 1529 raise Program_Error; 1530 end if; 1531 end Utp_Finish_Action_Set; 1532 1533 --------------------------------- 1534 -- Utp_Get_Timezone_Action_Set -- 1535 --------------------------------- 1536 1537 procedure Utp_Get_Timezone_Action_Set is 1538 begin 1539 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Get_Timezone_Action_Base_Read_Structural_Feature_Action_A_Extension_Get_Timezone_Action then 1540 -- GetTimezoneAction::base_ReadStructuralFeatureAction : ReadStructuralFeatureAction 1541 1542 AMF.Utp.Get_Timezone_Actions.Utp_Get_Timezone_Action_Access 1543 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Read_Structural_Feature_Action 1544 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access (AMF.Holders.Elements.Element (Value))); 1545 1546 else 1547 raise Program_Error; 1548 end if; 1549 end Utp_Get_Timezone_Action_Set; 1550 1551 ------------------------- 1552 -- Utp_Literal_Any_Set -- 1553 ------------------------- 1554 1555 procedure Utp_Literal_Any_Set is 1556 begin 1557 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Literal_Any_Base_Literal_Specification_A_Extension_Literal_Any then 1558 -- LiteralAny::base_LiteralSpecification : LiteralSpecification 1559 1560 AMF.Utp.Literal_Anies.Utp_Literal_Any_Access 1561 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Literal_Specification 1562 (AMF.UML.Literal_Specifications.UML_Literal_Specification_Access (AMF.Holders.Elements.Element (Value))); 1563 1564 else 1565 raise Program_Error; 1566 end if; 1567 end Utp_Literal_Any_Set; 1568 1569 --------------------------------- 1570 -- Utp_Literal_Any_Or_Null_Set -- 1571 --------------------------------- 1572 1573 procedure Utp_Literal_Any_Or_Null_Set is 1574 begin 1575 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Literal_Any_Or_Null_Base_Literal_Specification_A_Extension_Literal_Any_Or_Null then 1576 -- LiteralAnyOrNull::base_LiteralSpecification : LiteralSpecification 1577 1578 AMF.Utp.Literal_Any_Or_Nulls.Utp_Literal_Any_Or_Null_Access 1579 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Literal_Specification 1580 (AMF.UML.Literal_Specifications.UML_Literal_Specification_Access (AMF.Holders.Elements.Element (Value))); 1581 1582 else 1583 raise Program_Error; 1584 end if; 1585 end Utp_Literal_Any_Or_Null_Set; 1586 1587 ------------------------ 1588 -- Utp_Log_Action_Set -- 1589 ------------------------ 1590 1591 procedure Utp_Log_Action_Set is 1592 begin 1593 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Log_Action_Base_Send_Object_Action_A_Extension_Log_Action then 1594 -- LogAction::base_SendObjectAction : SendObjectAction 1595 1596 AMF.Utp.Log_Actions.Utp_Log_Action_Access 1597 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Send_Object_Action 1598 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access (AMF.Holders.Elements.Element (Value))); 1599 1600 else 1601 raise Program_Error; 1602 end if; 1603 end Utp_Log_Action_Set; 1604 1605 ----------------------------- 1606 -- Utp_Managed_Element_Set -- 1607 ----------------------------- 1608 1609 procedure Utp_Managed_Element_Set is 1610 begin 1611 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Base_Element_A_Extension_Managed_Element then 1612 -- ManagedElement::base_Element : Element 1613 1614 AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 1615 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Element 1616 (AMF.UML.Elements.UML_Element_Access (AMF.Holders.Elements.Element (Value))); 1617 1618 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Criticality then 1619 -- ManagedElement::criticality : String 1620 1621 AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 1622 (AMF.Internals.Helpers.To_Element (Self)).Set_Criticality 1623 (AMF.Holders.Element (Value)); 1624 1625 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Description then 1626 -- ManagedElement::description : String 1627 1628 AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 1629 (AMF.Internals.Helpers.To_Element (Self)).Set_Description 1630 (AMF.Holders.Element (Value)); 1631 1632 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Owner then 1633 -- ManagedElement::owner : String 1634 1635 AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 1636 (AMF.Internals.Helpers.To_Element (Self)).Set_Owner 1637 (AMF.Holders.Element (Value)); 1638 1639 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Managed_Element_Version then 1640 -- ManagedElement::version : String 1641 1642 AMF.Utp.Managed_Elements.Utp_Managed_Element_Access 1643 (AMF.Internals.Helpers.To_Element (Self)).Set_Version 1644 (AMF.Holders.Element (Value)); 1645 1646 else 1647 raise Program_Error; 1648 end if; 1649 end Utp_Managed_Element_Set; 1650 1651 ------------------------------- 1652 -- Utp_Read_Timer_Action_Set -- 1653 ------------------------------- 1654 1655 procedure Utp_Read_Timer_Action_Set is 1656 begin 1657 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Read_Timer_Action_Base_Call_Operation_Action_A_Extension_Read_Timer_Action then 1658 -- ReadTimerAction::base_CallOperationAction : CallOperationAction 1659 1660 AMF.Utp.Read_Timer_Actions.Utp_Read_Timer_Action_Access 1661 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Call_Operation_Action 1662 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access (AMF.Holders.Elements.Element (Value))); 1663 1664 else 1665 raise Program_Error; 1666 end if; 1667 end Utp_Read_Timer_Action_Set; 1668 1669 ----------------- 1670 -- Utp_SUT_Set -- 1671 ----------------- 1672 1673 procedure Utp_SUT_Set is 1674 begin 1675 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_SUT_Base_Property_A_Extension_SUT then 1676 -- SUT::base_Property : Property 1677 1678 AMF.Utp.SUTs.Utp_SUT_Access 1679 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Property 1680 (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value))); 1681 1682 else 1683 raise Program_Error; 1684 end if; 1685 end Utp_SUT_Set; 1686 1687 --------------------------------- 1688 -- Utp_Set_Timezone_Action_Set -- 1689 --------------------------------- 1690 1691 procedure Utp_Set_Timezone_Action_Set is 1692 begin 1693 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Set_Timezone_Action_Base_Write_Structural_Feature_Action_A_Extension_Set_Timezone_Action then 1694 -- SetTimezoneAction::base_WriteStructuralFeatureAction : WriteStructuralFeatureAction 1695 1696 AMF.Utp.Set_Timezone_Actions.Utp_Set_Timezone_Action_Access 1697 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Write_Structural_Feature_Action 1698 (AMF.UML.Write_Structural_Feature_Actions.UML_Write_Structural_Feature_Action_Access (AMF.Holders.Elements.Element (Value))); 1699 1700 else 1701 raise Program_Error; 1702 end if; 1703 end Utp_Set_Timezone_Action_Set; 1704 1705 -------------------------------- 1706 -- Utp_Start_Timer_Action_Set -- 1707 -------------------------------- 1708 1709 procedure Utp_Start_Timer_Action_Set is 1710 begin 1711 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Start_Timer_Action_Base_Call_Operation_Action_A_Extension_Start_Timer_Action then 1712 -- StartTimerAction::base_CallOperationAction : CallOperationAction 1713 1714 AMF.Utp.Start_Timer_Actions.Utp_Start_Timer_Action_Access 1715 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Call_Operation_Action 1716 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access (AMF.Holders.Elements.Element (Value))); 1717 1718 else 1719 raise Program_Error; 1720 end if; 1721 end Utp_Start_Timer_Action_Set; 1722 1723 ------------------------------- 1724 -- Utp_Stop_Timer_Action_Set -- 1725 ------------------------------- 1726 1727 procedure Utp_Stop_Timer_Action_Set is 1728 begin 1729 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Stop_Timer_Action_Base_Call_Operation_Action_A_Extension_Stop_Timer_Action then 1730 -- StopTimerAction::base_CallOperationAction : CallOperationAction 1731 1732 AMF.Utp.Stop_Timer_Actions.Utp_Stop_Timer_Action_Access 1733 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Call_Operation_Action 1734 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access (AMF.Holders.Elements.Element (Value))); 1735 1736 else 1737 raise Program_Error; 1738 end if; 1739 end Utp_Stop_Timer_Action_Set; 1740 1741 ----------------------- 1742 -- Utp_Test_Case_Set -- 1743 ----------------------- 1744 1745 procedure Utp_Test_Case_Set is 1746 begin 1747 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Base_Behavior_A_Extension_Test_Case then 1748 -- TestCase::base_Behavior : Behavior 1749 1750 AMF.Utp.Test_Cases.Utp_Test_Case_Access 1751 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Behavior 1752 (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value))); 1753 1754 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Base_Operation_A_Extension_Test_Case then 1755 -- TestCase::base_Operation : Operation 1756 1757 AMF.Utp.Test_Cases.Utp_Test_Case_Access 1758 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Operation 1759 (AMF.UML.Operations.UML_Operation_Access (AMF.Holders.Elements.Element (Value))); 1760 1761 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Case_Priority then 1762 -- TestCase::priority : String 1763 1764 AMF.Utp.Test_Cases.Utp_Test_Case_Access 1765 (AMF.Internals.Helpers.To_Element (Self)).Set_Priority 1766 (AMF.Holders.Element (Value)); 1767 1768 else 1769 raise Program_Error; 1770 end if; 1771 end Utp_Test_Case_Set; 1772 1773 ---------------------------- 1774 -- Utp_Test_Component_Set -- 1775 ---------------------------- 1776 1777 procedure Utp_Test_Component_Set is 1778 begin 1779 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Component_Base_Structured_Classifier_A_Extension_Test_Component then 1780 -- TestComponent::base_StructuredClassifier : StructuredClassifier 1781 1782 AMF.Utp.Test_Components.Utp_Test_Component_Access 1783 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Structured_Classifier 1784 (AMF.UML.Structured_Classifiers.UML_Structured_Classifier_Access (AMF.Holders.Elements.Element (Value))); 1785 1786 else 1787 raise Program_Error; 1788 end if; 1789 end Utp_Test_Component_Set; 1790 1791 -------------------------- 1792 -- Utp_Test_Context_Set -- 1793 -------------------------- 1794 1795 procedure Utp_Test_Context_Set is 1796 begin 1797 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Base_Behaviored_Classifier_A_Extension_Test_Context then 1798 -- TestContext::base_BehavioredClassifier : BehavioredClassifier 1799 1800 AMF.Utp.Test_Contexts.Utp_Test_Context_Access 1801 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Behaviored_Classifier 1802 (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access (AMF.Holders.Elements.Element (Value))); 1803 1804 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Base_Structured_Classifier_A_Extension_Test_Context then 1805 -- TestContext::base_StructuredClassifier : StructuredClassifier 1806 1807 AMF.Utp.Test_Contexts.Utp_Test_Context_Access 1808 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Structured_Classifier 1809 (AMF.UML.Structured_Classifiers.UML_Structured_Classifier_Access (AMF.Holders.Elements.Element (Value))); 1810 1811 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Context_Test_Level then 1812 -- TestContext::testLevel : String 1813 1814 AMF.Utp.Test_Contexts.Utp_Test_Context_Access 1815 (AMF.Internals.Helpers.To_Element (Self)).Set_Test_Level 1816 (AMF.Holders.Element (Value)); 1817 1818 else 1819 raise Program_Error; 1820 end if; 1821 end Utp_Test_Context_Set; 1822 1823 ---------------------- 1824 -- Utp_Test_Log_Set -- 1825 ---------------------- 1826 1827 procedure Utp_Test_Log_Set is 1828 begin 1829 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Base_Behavior_A_Extension_Test_Log then 1830 -- TestLog::base_Behavior : Behavior 1831 1832 AMF.Utp.Test_Logs.Utp_Test_Log_Access 1833 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Behavior 1834 (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value))); 1835 1836 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Duration then 1837 -- TestLog::duration : String 1838 1839 AMF.Utp.Test_Logs.Utp_Test_Log_Access 1840 (AMF.Internals.Helpers.To_Element (Self)).Set_Duration 1841 (AMF.Holders.Element (Value)); 1842 1843 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Executed_At then 1844 -- TestLog::executedAt : String 1845 1846 AMF.Utp.Test_Logs.Utp_Test_Log_Access 1847 (AMF.Internals.Helpers.To_Element (Self)).Set_Executed_At 1848 (AMF.Holders.Element (Value)); 1849 1850 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Sut_Version then 1851 -- TestLog::sutVersion : String 1852 1853 AMF.Utp.Test_Logs.Utp_Test_Log_Access 1854 (AMF.Internals.Helpers.To_Element (Self)).Set_Sut_Version 1855 (AMF.Holders.Element (Value)); 1856 1857 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Verdict then 1858 -- TestLog::verdict : Verdict 1859 1860 AMF.Utp.Test_Logs.Utp_Test_Log_Access 1861 (AMF.Internals.Helpers.To_Element (Self)).Set_Verdict 1862 (AMF.Utp.Holders.Verdicts.Element (Value)); 1863 1864 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Verdict_Reason then 1865 -- TestLog::verdictReason : String 1866 1867 AMF.Utp.Test_Logs.Utp_Test_Log_Access 1868 (AMF.Internals.Helpers.To_Element (Self)).Set_Verdict_Reason 1869 (AMF.Holders.Element (Value)); 1870 1871 else 1872 raise Program_Error; 1873 end if; 1874 end Utp_Test_Log_Set; 1875 1876 ---------------------------------- 1877 -- Utp_Test_Log_Application_Set -- 1878 ---------------------------------- 1879 1880 procedure Utp_Test_Log_Application_Set is 1881 begin 1882 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Log_Application_Base_Dependency_A_Extension_Test_Log_Application then 1883 -- TestLogApplication::base_Dependency : Dependency 1884 1885 AMF.Utp.Test_Log_Applications.Utp_Test_Log_Application_Access 1886 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Dependency 1887 (AMF.UML.Dependencies.UML_Dependency_Access (AMF.Holders.Elements.Element (Value))); 1888 1889 else 1890 raise Program_Error; 1891 end if; 1892 end Utp_Test_Log_Application_Set; 1893 1894 ---------------------------- 1895 -- Utp_Test_Objective_Set -- 1896 ---------------------------- 1897 1898 procedure Utp_Test_Objective_Set is 1899 begin 1900 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Objective_Base_Dependency_A_Extension_Test_Objective then 1901 -- TestObjective::base_Dependency : Dependency 1902 1903 AMF.Utp.Test_Objectives.Utp_Test_Objective_Access 1904 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Dependency 1905 (AMF.UML.Dependencies.UML_Dependency_Access (AMF.Holders.Elements.Element (Value))); 1906 1907 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Objective_Priority then 1908 -- TestObjective::priority : String 1909 1910 AMF.Utp.Test_Objectives.Utp_Test_Objective_Access 1911 (AMF.Internals.Helpers.To_Element (Self)).Set_Priority 1912 (AMF.Holders.Element (Value)); 1913 1914 else 1915 raise Program_Error; 1916 end if; 1917 end Utp_Test_Objective_Set; 1918 1919 ------------------------ 1920 -- Utp_Test_Suite_Set -- 1921 ------------------------ 1922 1923 procedure Utp_Test_Suite_Set is 1924 begin 1925 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Suite_Base_Behavior_A_Extension_Test_Suite then 1926 -- TestSuite::base_Behavior : Behavior 1927 1928 AMF.Utp.Test_Suites.Utp_Test_Suite_Access 1929 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Behavior 1930 (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value))); 1931 1932 elsif Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Test_Suite_Priority then 1933 -- TestSuite::priority : String 1934 1935 AMF.Utp.Test_Suites.Utp_Test_Suite_Access 1936 (AMF.Internals.Helpers.To_Element (Self)).Set_Priority 1937 (AMF.Holders.Element (Value)); 1938 1939 else 1940 raise Program_Error; 1941 end if; 1942 end Utp_Test_Suite_Set; 1943 1944 ---------------------- 1945 -- Utp_Time_Out_Set -- 1946 ---------------------- 1947 1948 procedure Utp_Time_Out_Set is 1949 begin 1950 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Time_Out_Base_Time_Event_A_Extension_Time_Out then 1951 -- TimeOut::base_TimeEvent : TimeEvent 1952 1953 AMF.Utp.Time_Outs.Utp_Time_Out_Access 1954 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Time_Event 1955 (AMF.UML.Time_Events.UML_Time_Event_Access (AMF.Holders.Elements.Element (Value))); 1956 1957 else 1958 raise Program_Error; 1959 end if; 1960 end Utp_Time_Out_Set; 1961 1962 ----------------------------- 1963 -- Utp_Time_Out_Action_Set -- 1964 ----------------------------- 1965 1966 procedure Utp_Time_Out_Action_Set is 1967 begin 1968 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Time_Out_Action_Base_Accept_Event_Action_A_Extension_Time_Out_Action then 1969 -- TimeOutAction::base_AcceptEventAction : AcceptEventAction 1970 1971 AMF.Utp.Time_Out_Actions.Utp_Time_Out_Action_Access 1972 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Accept_Event_Action 1973 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access (AMF.Holders.Elements.Element (Value))); 1974 1975 else 1976 raise Program_Error; 1977 end if; 1978 end Utp_Time_Out_Action_Set; 1979 1980 ------------------------------ 1981 -- Utp_Time_Out_Message_Set -- 1982 ------------------------------ 1983 1984 procedure Utp_Time_Out_Message_Set is 1985 begin 1986 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Time_Out_Message_Base_Message_A_Extension_Time_Out_Message then 1987 -- TimeOutMessage::base_Message : Message 1988 1989 AMF.Utp.Time_Out_Messages.Utp_Time_Out_Message_Access 1990 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Message 1991 (AMF.UML.Messages.UML_Message_Access (AMF.Holders.Elements.Element (Value))); 1992 1993 else 1994 raise Program_Error; 1995 end if; 1996 end Utp_Time_Out_Message_Set; 1997 1998 ---------------------------------- 1999 -- Utp_Timer_Running_Action_Set -- 2000 ---------------------------------- 2001 2002 procedure Utp_Timer_Running_Action_Set is 2003 begin 2004 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Timer_Running_Action_Base_Read_Structural_Feature_Action_A_Extension_Timer_Running_Action then 2005 -- TimerRunningAction::base_ReadStructuralFeatureAction : ReadStructuralFeatureAction 2006 2007 AMF.Utp.Timer_Running_Actions.Utp_Timer_Running_Action_Access 2008 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Read_Structural_Feature_Action 2009 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access (AMF.Holders.Elements.Element (Value))); 2010 2011 else 2012 raise Program_Error; 2013 end if; 2014 end Utp_Timer_Running_Action_Set; 2015 2016 ------------------------------- 2017 -- Utp_Validation_Action_Set -- 2018 ------------------------------- 2019 2020 procedure Utp_Validation_Action_Set is 2021 begin 2022 if Property = AMF.Internals.Tables.Utp_Metamodel.MP_Utp_Validation_Action_Base_Call_Operation_Action_A_Extension_Validation_Action then 2023 -- ValidationAction::base_CallOperationAction : CallOperationAction 2024 2025 AMF.Utp.Validation_Actions.Utp_Validation_Action_Access 2026 (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Call_Operation_Action 2027 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access (AMF.Holders.Elements.Element (Value))); 2028 2029 else 2030 raise Program_Error; 2031 end if; 2032 end Utp_Validation_Action_Set; 2033 begin 2034 case UTP_Element_Table.Table (Self).Kind is 2035 when AMF.Internals.Tables.UTP_Types.E_None => 2036 raise Program_Error; 2037 2038 when AMF.Internals.Tables.UTP_Types.E_Utp_Coding_Rule => 2039 Utp_Coding_Rule_Set; 2040 2041 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Partition => 2042 Utp_Data_Partition_Set; 2043 2044 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Pool => 2045 Utp_Data_Pool_Set; 2046 2047 when AMF.Internals.Tables.UTP_Types.E_Utp_Data_Selector => 2048 Utp_Data_Selector_Set; 2049 2050 when AMF.Internals.Tables.UTP_Types.E_Utp_Default => 2051 Utp_Default_Set; 2052 2053 when AMF.Internals.Tables.UTP_Types.E_Utp_Default_Application => 2054 Utp_Default_Application_Set; 2055 2056 when AMF.Internals.Tables.UTP_Types.E_Utp_Determ_Alt => 2057 Utp_Determ_Alt_Set; 2058 2059 when AMF.Internals.Tables.UTP_Types.E_Utp_Finish_Action => 2060 Utp_Finish_Action_Set; 2061 2062 when AMF.Internals.Tables.UTP_Types.E_Utp_Get_Timezone_Action => 2063 Utp_Get_Timezone_Action_Set; 2064 2065 when AMF.Internals.Tables.UTP_Types.E_Utp_Literal_Any => 2066 Utp_Literal_Any_Set; 2067 2068 when AMF.Internals.Tables.UTP_Types.E_Utp_Literal_Any_Or_Null => 2069 Utp_Literal_Any_Or_Null_Set; 2070 2071 when AMF.Internals.Tables.UTP_Types.E_Utp_Log_Action => 2072 Utp_Log_Action_Set; 2073 2074 when AMF.Internals.Tables.UTP_Types.E_Utp_Managed_Element => 2075 Utp_Managed_Element_Set; 2076 2077 when AMF.Internals.Tables.UTP_Types.E_Utp_Read_Timer_Action => 2078 Utp_Read_Timer_Action_Set; 2079 2080 when AMF.Internals.Tables.UTP_Types.E_Utp_SUT => 2081 Utp_SUT_Set; 2082 2083 when AMF.Internals.Tables.UTP_Types.E_Utp_Set_Timezone_Action => 2084 Utp_Set_Timezone_Action_Set; 2085 2086 when AMF.Internals.Tables.UTP_Types.E_Utp_Start_Timer_Action => 2087 Utp_Start_Timer_Action_Set; 2088 2089 when AMF.Internals.Tables.UTP_Types.E_Utp_Stop_Timer_Action => 2090 Utp_Stop_Timer_Action_Set; 2091 2092 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Case => 2093 Utp_Test_Case_Set; 2094 2095 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Component => 2096 Utp_Test_Component_Set; 2097 2098 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Context => 2099 Utp_Test_Context_Set; 2100 2101 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Log => 2102 Utp_Test_Log_Set; 2103 2104 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Log_Application => 2105 Utp_Test_Log_Application_Set; 2106 2107 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Objective => 2108 Utp_Test_Objective_Set; 2109 2110 when AMF.Internals.Tables.UTP_Types.E_Utp_Test_Suite => 2111 Utp_Test_Suite_Set; 2112 2113 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out => 2114 Utp_Time_Out_Set; 2115 2116 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out_Action => 2117 Utp_Time_Out_Action_Set; 2118 2119 when AMF.Internals.Tables.UTP_Types.E_Utp_Time_Out_Message => 2120 Utp_Time_Out_Message_Set; 2121 2122 when AMF.Internals.Tables.UTP_Types.E_Utp_Timer_Running_Action => 2123 Utp_Timer_Running_Action_Set; 2124 2125 when AMF.Internals.Tables.UTP_Types.E_Utp_Validation_Action => 2126 Utp_Validation_Action_Set; 2127 end case; 2128 end Set; 2129 2130end AMF.Internals.Tables.UTP_Reflection; 2131