|
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 - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Script_Construction_Control, seg_028b82
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Execution_Result;
with Parallel_Termination_Control;
with Executable_Code;
with System;
with Access_String;
with Po_Handle;
with Po_Access_Modes;
with Po_Conditions;
package Script_Construction_Control is
type Object is private;
type Predefined_Halt_Condition is
(None, Elapsed_Time, Cpu_Time, Number_Of_Failures,
Unhandled_Exception, Interactive);
type Condition_Set is array (Predefined_Halt_Condition) of Boolean;
type Test_Status_Set is array (Execution_Result.Object) of Boolean;
--[ where do warnings,etc fit into this - is there a pass with warning]
type Executable_Elements is (Ex_User_Script_Prolog,
Ex_User_Script_Epilog, Ex_Version_Save);
type Executable_Control_Info is
record
The_Handle : Executable_Code.Object;
The_Params : Executable_Code.Parameters;
end record;
type Executable_Info is array (Executable_Elements) of
Executable_Control_Info;
type Xobject is
record
Halt_Conditions : Condition_Set := (others => False);
Failure_Status_Set : Test_Status_Set :=
(Execution_Result.Unknown | Execution_Result.Pass => False,
Execution_Result.Fail .. Execution_Result.Timeout => True);
The_Executables : Executable_Info;
Termination_Control : Parallel_Termination_Control.Object :=
Parallel_Termination_Control.No_Control;
Rci_Test_Script : Boolean := False;
Is_Default_Obj : Boolean := False;
end record;
function Xobject_Of (The_Obj : Object) return Xobject;
function Constructor (Heap : System.Segment)
return Script_Construction_Control.Object;
procedure Destructor (The_Obj : in out Script_Construction_Control.Object);
package Persistent_Operations is
procedure Get_Condition (Obj : in Script_Construction_Control.Object;
Into : in out Po_Conditions.Condition);
procedure Open (The_Obj : in out Script_Construction_Control.Object;
Mode : in Po_Access_Modes.Modes;
Handle : in Po_Handle.Object);
function Name (For_Obj : Script_Construction_Control.Object) return String;
procedure Close (The_Obj : in out Script_Construction_Control.Object;
Abandon : Boolean := False);
end Persistent_Operations;
end Script_Construction_Control;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=24 rec1=00 rec2=01 rec3=026
[0x01] rec0=1a rec1=00 rec2=02 rec3=024
[0x02] rec0=11 rec1=00 rec2=03 rec3=000
tail 0x2172264e683c55e1886a1 0x42a00044462022803