|
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: ┃ T V ┃
Length: 1772 (0x6ec)
Types: TextFile
Names: »V«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Motor_Etape;
with Motor_File;
use Motor_File;
use Motor_Etape;
with Text_Io;
use Text_Io;
package Motor_Role is
subtype F is File_Type;
subtype Actor is Integer;
subtype Delai is Integer;
type Cell_Role;
type Role is access Cell_Role;
type Cell_Role is
record
In_Process : Boolean;
The_Begining : Time;
The_Actor : Actor;
The_Step : P_Step;
The_Time : Time;
The_Index : P_Step;
end record;
Role_Is_Empty : constant Role := null;
function Create_A_Role (An_Actor : Actor) return Role;
function Read_A_Role (F : File_Type) return Role;
function Number_Of_Actions_Of_Role (R : Role) return Integer;
function Role_Empty (R : Role) return Boolean;
function Time_Of_Role (R : Role) return Time;
function Actor_Of_Role (R : Role) return Actor;
function Role_In_Process (R : Role) return Boolean;
function Step_Of_Role (The_Role : Role) return P_Step;
procedure Witch_Action_In_Role
(R : Role; T : Time; A : in out Action; Existe : out Boolean);
procedure Put_Action_In_Role (R : in out Role; T : Time; A : Action);
procedure Extract_Action_Of_Role (R : in out Role; T : Time);
procedure Delay_Action_Of_Role (R : in out Role; T : Time; D : Delai);
procedure Move_Action_Of_Role
(R : in out Role; Old_Time : Time; New_Time : Time);
procedure Delay_Role (R : in out Role; D : Delai);
procedure Empty_Role (R : in out Role);
procedure Run_Role (R : in out Role);
procedure Stop_Role (R : in out Role);
procedure Sollicit_Role (R : in out Role);
procedure Play_Role (R : in out Role);
procedure Save_Role (R : Role; F : File_Type);
end Motor_Role;