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: T V

⟦a4fa8f95f⟧ TextFile

    Length: 1772 (0x6ec)
    Types: TextFile
    Names: »V«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

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;