DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a617edaff⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gateways, seg_01076a

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



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;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=20 rec1=00 rec2=01 rec3=038
        [0x01] rec0=17 rec1=00 rec2=02 rec3=03a
        [0x02] rec0=0a rec1=00 rec2=03 rec3=000
    tail 0x2150c06ec823076ef0b9a 0x42a00088462060003