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 - metrics - download
Index: B T

⟦74807992a⟧ TextFile

    Length: 1010 (0x3f2)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Step;
with My_Time;
package body Role is

    procedure Put_Action (The_Role : in out Role.Object;
                          The_Time : My_Time.Object;
                          The_Action : Action.Object) is
    begin
        Step.Put_Action (The_Role.The_Steps, The_Time, The_Action);
    end Put_Action;


    procedure Get_Next_Action (The_Role : in out Role.Object;
                               The_Time : out My_Time.Object;
                               The_Action : out Action.Object) is
    begin
        The_Time := Step.Timeof (The_Role.The_Index);
        The_Action := Step.Actionof (The_Role.The_Index);
        The_Role.The_Index := Step.Nextof (The_Role.The_Index);
    end Get_Next_Action;


    function Is_At_End (The_Role : Role.Object) return Boolean is
    begin
        return Step.Is_Empty (The_Role.The_Index);
    end Is_At_End;


    procedure Prepare (The_Role : in out Role.Object) is
    begin
        The_Role.The_Index := The_Role.The_Steps;
    end Prepare;

end Role;