DataMuseum.dk

top - download

    Length: 2428 (0x97c)
    Types: TextFile
    Names: »V«

└─⟦db1c56801⟧ Bits:30000748 8mm tape, Rational 1000, TESTMATE 2_2_0
    └─ ⟦866d14df1⟧ »DATA« 
        └─⟦97c804b2f⟧ 
            └─⟦this⟧ 

TextFile

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;