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 ┃

⟦1d5c9d9d9⟧ TextFile

    Length: 725 (0x2d5)
    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 My_Time;
package Role is

    type Object is private;

    procedure Put_Action (The_Role : in out Role.Object;
                          The_Time : My_Time.Object;
                          The_Action : Action.Object);

    procedure Get_Next_Action (The_Role : in out Role.Object;
                               The_Time : out My_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;