DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦cf03910bc⟧ TextFile

    Length: 2170 (0x87a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Action;
with Calendar;
with Hierarchy;
with Requirements;
pragma Private_Eyes_Only;
with Cmvc_Implementation;
with State_Operations;
package Gateways is

    type Cmvc_Control_Kind is (Not_Controlled,  
                               Controlled_Checked_In,  
                               Controlled_Checked_Out);

    function Cmvc_Control (Gateway_Name : in String) return Cmvc_Control_Kind;


    type State is private;

    procedure Initialize (The_State : out State;
                          Action_Id : in Action.Id;  
                          Work_Order : in String);

    procedure Finalize (The_State : in out State);

    procedure Augment (For_Module : in Hierarchy.Module;  
                       In_Library : in String;
                       Host : in String;
                       Model : in String;
                       Update_Time : in Calendar.Time;
                       Comments : in String;
                       The_State : in out State);

    procedure Create (For_Module : in Hierarchy.Module;  
                      In_Library : in String;
                      Host : in String;
                      Model : in String;
                      Update_Time : in Calendar.Time;
                      Comments : in String;
                      The_State : in out State);

    procedure Create (In_Gateway : in String;
                      Requirement_Name : in String;
                      Requirement_Kind : in Requirements.Non_Functional;
                      Requirement_Text : in String;
                      Comments : in String;
                      The_State : in out State);

    procedure Destroy (Gateway_Name : in String;
                       Comments : in String;
                       The_State : in out State);

    procedure Reduce (Gateway_Name : in String;
                      Candidate_Modules : in out Hierarchy.Module_Iterator;
                      Comments : in String;
                      The_State : in out State);

private
    type State is
        record
            Cmvc : State_Operations.State;
            Configuration : Cmvc_Implementation.Configuration;
        end record;
end Gateways;