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 ┃

⟦2e801792f⟧ TextFile

    Length: 710 (0x2c6)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Action;
with Step;
with Time;
package Role is
    type Object is private;
    procedure Put_Action (The_Role : in out Role.Object;
                          The_Time : Time.Object;
                          The_Action : Action.Object);
    procedure Get_Next_Action (The_Role : in out Role.Object;
                               The_Time : out Time.Object;
                               The_Action : out Action.Object);
    function Is_At_End (The_Role : Role.Object) return Boolean;
    procedure Prepare (The_Role : in out Role.Object);
private
    type Object is
        record
            The_Index : Step.Object := Step.Empty_Step;
            The_Steps : Step.Object;
        end record;
end Role;