|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Po_Tools, seg_028bd3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Directory_Tools;
with Job_Segment;
with Po_Handle;
with Po_Access_Modes;
with System;
with Script_Construction_Control;
with Test_Case;
with Test_Case_Data;
with Test_Context;
with Test_Script_Control;
with Test_Set;
with Test_Set_Element;
package Po_Tools is
type Status is (Success, Inappropriate_Object_Class,
Unresolvable_Name, Unidentified_Failure);
Gen_Heap : System.Segment := Job_Segment.Get;
type Test_Case_Component_Params is (Executable_Test_Code_Params,
Evaluation_Action_Params,
Coverage_Analyzer_Params,
Pre_Condition_Params,
Prolog_Params,
Epilog_Params);
-- Implementation is dependent on Test_Case_Data Handle_Element to
-- Test_Case_Component_Params mapping. If new Handle_Elements are
-- added or Handle_Element names change for handles that have
-- parameters associated with them, Associated_Handle must be
-- updated to accommodate any new/modified Handle_Element.
--
function Associated_Handle (For_Param : Test_Case_Component_Params)
return Test_Case.Handle_Elements;
-- Constructs a Test Case and a handle for the Test Case.
--
procedure Construct_Test_Case (Name : in String;
Using_Heap : in out System.Segment;
The_Test_Case : in out Test_Case.Object;
Test_Case_Handle : in out Po_Handle.Object);
-- Destroys the test case and its handle.
--
procedure Destroy_Test_Case
(The_Test_Case : in out Test_Case.Object;
The_Test_Case_Handle : in out Po_Handle.Object);
-- Opens the Test Case, gets and checks the condition of the open
-- operation. The Result is Success if the Open succeeded. If the
-- Open fails, either an Inappropriate_Object_Class or
-- Unidentified_Failure Result is returned.
--
procedure Open_Test_Case (The_Test_Case : in out Test_Case.Object;
Test_Case_Handle : in out Po_Handle.Object;
Access_Mode : in Po_Access_Modes.Modes :=
Po_Access_Modes.Read_Only;
Result : out Status);
-- Assumes From_Test_Case has been constructed and opened. Creates
-- a copy of the From test case by constructing the New_Test_Case
-- and saving the contents of the From_Test_Case test case into the
-- New_Test_Case. New_Test_Case is closed at end of the operation.
--
procedure Copy_Test_Case (From_Test_Case : in out Test_Case.Object;
New_Test_Case : in out Test_Case.Object;
New_Test_Case_Name : String;
New_Test_Case_Handle : in out Po_Handle.Object;
Using_Heap : System.Segment);
-- Constructs a Test Set and a handle for the Test Set.
--
procedure Construct_Test_Set (Name : in String;
Using_Heap : in out System.Segment;
The_Test_Set : in out Test_Set.Object;
Test_Set_Handle : in out Po_Handle.Object);
-- Destroys the Test Set and its handle.
--
procedure Destroy_Test_Set (The_Test_Set : in out Test_Set.Object;
The_Test_Set_Handle : in out Po_Handle.Object);
-- Opens the Test Set, gets and checks the condition of the open
-- operation. The Result is Success if the Open succeeded. If the
-- Open fails, either an Inappropriate_Object_Class or
-- Unidentified_Failure Result is returned.
--
procedure Open_Test_Set (The_Test_Set : in out Test_Set.Object;
Test_Set_Handle : in out Po_Handle.Object;
Access_Mode : in Po_Access_Modes.Modes :=
Po_Access_Modes.Read_Only;
Result : out Status);
-- Constructs a Test Context and a handle for the Test Context.
--
procedure Construct_Test_Context
(Name : in String;
Using_Heap : in out System.Segment;
The_Test_Context : in out Test_Context.Object;
Test_Context_Handle : in out Po_Handle.Object);
-- Destroys the Test Context and its handle.
--
procedure Destroy_Test_Context
(The_Test_Context : in out Test_Context.Object;
The_Test_Context_Handle : in out Po_Handle.Object);
-- Opens the Test Context, gets and checks the condition of the open
-- operation. The Result is Success if the Open succeeded. If the
-- Open fails, either an Inappropriate_Object_Class or
-- Unidentified_Failure Result is returned.
--
procedure Open_Test_Context (The_Test_Context : in out Test_Context.Object;
Test_Context_Handle : in out Po_Handle.Object;
Access_Mode : in Po_Access_Modes.Modes :=
Po_Access_Modes.Read_Only;
Result : out Status);
-- Constructs a Script Construction Control object and a handle for
-- the Script Construction Control Object.
--
procedure Construct_Scc
(Name : in String;
Using_Heap : in out System.Segment;
The_Scc : in out Script_Construction_Control.Object;
Scc_Handle : in out Po_Handle.Object);
-- Destroys the Script Construction Control Object and its handle.
--
procedure Destroy_Scc (The_Scc : in out Script_Construction_Control.Object;
The_Scc_Handle : in out Po_Handle.Object);
-- Opens the Script Construction Control Object, gets and checks the
-- condition of the open operation. The Result is Success if the
-- Open succeeded. If the Open fails, either an
-- Inappropriate_Object_Class or Unidentified_Failure Result is
-- returned.
--
procedure Open_Scc (The_Scc : in out Script_Construction_Control.Object;
Scc_Handle : in out Po_Handle.Object;
Access_Mode : in Po_Access_Modes.Modes :=
Po_Access_Modes.Read_Only;
Result : out Status);
-- Constructs a Script Execution Control object and a handle for the
-- Script Execution Control Object.
--
procedure Construct_Sec (Name : in String;
Using_Heap : in out System.Segment;
The_Sec : in out Test_Script_Control.Object;
Sec_Handle : in out Po_Handle.Object);
-- Destroys the Script Execution Control Object and its handle.
--
procedure Destroy_Sec (The_Sec : in out Test_Script_Control.Object;
The_Sec_Handle : in out Po_Handle.Object);
-- Opens the Script Execution Control Object, gets and checks the
-- condition of the open operation. The Result is Success if the
-- Open succeeded. If the Open fails, either an
-- Inappropriate_Object_Class or Unidentified_Failure Result is
-- returned.
--
procedure Open_Sec (The_Sec : in out Test_Script_Control.Object;
Sec_Handle : in out Po_Handle.Object;
Access_Mode : in Po_Access_Modes.Modes := Po_Access_Modes.Read_Only;
Result : out Status);
function Is_Context_File (The_Object : String) return Boolean;
function Is_Sec_File (The_Object : String) return Boolean;
function Is_Scc_File (The_Object : String) return Boolean;
function Is_Test_Case_File (The_Object : String) return Boolean;
function Is_Test_Run_Group_File (The_Object : String) return Boolean;
function Is_Test_Run_File (The_Object : String) return Boolean;
function Is_Test_Set_File (The_Object : String) return Boolean;
function Is_Coverage_Run_File (The_Object : String) return Boolean;
end Po_Tools;
nblk1=9
nid=0
hdr6=12
[0x00] rec0=1f rec1=00 rec2=01 rec3=076
[0x01] rec0=16 rec1=00 rec2=02 rec3=054
[0x02] rec0=11 rec1=00 rec2=03 rec3=066
[0x03] rec0=14 rec1=00 rec2=04 rec3=086
[0x04] rec0=17 rec1=00 rec2=05 rec3=036
[0x05] rec0=14 rec1=00 rec2=06 rec3=004
[0x06] rec0=14 rec1=00 rec2=07 rec3=010
[0x07] rec0=13 rec1=00 rec2=08 rec3=002
[0x08] rec0=14 rec1=00 rec2=09 rec3=000
tail 0x21521356e83c55e686662 0x42a00088462060003