|
|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 1098 (0x44a)
Types: TextFile
Names: »V«
└─⟦db1c56801⟧ Bits:30000748 8mm tape, Rational 1000, TESTMATE 2_2_0
└─⟦866d14df1⟧ »DATA«
└─⟦97c804b2f⟧
└─⟦this⟧
with Access_String;
with Ada_Program;
with Po_Handle;
with System;
package Coverage_Element_With_Test_Case_Set is
type Object is private;
subtype Element_Representation is
Ada_Program.Conversion.Element_Permanent_Representation;
subtype Test_Case_Handle is Po_Handle.Object;
function Constructor (The_Segment : System.Segment) return Object;
procedure Destructor (The_Obj : in out Object);
function Equal (L, R : Object) return Boolean;
function Is_Segment (The_Obj : Object) return Boolean;
function Is_Decision (The_Obj : Object) return Boolean;
function Ada_Element (Of_Obj : Object) return Element_Representation;
function Is_Empty (The_Obj : Object) return Boolean;
function Is_Member
(The_Obj : Object; Test_Case : Test_Case_Handle) return Boolean;
type Iterator is private;
procedure Init (Iter : out Iterator; From_Obj : Object);
procedure Next (Iter : in out Iterator);
function Value (Iter : Iterator) return Test_Case_Handle;
function Done (Iter : Iterator) return Boolean;
end Coverage_Element_With_Test_Case_Set;