|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1010 (0x3f2)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
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;