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

⟦73c3bd38a⟧ TextFile

    Length: 2766 (0xace)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Etape, Text_Io;
package Role is
    subtype Adresse_Peripherique is Natural;
    Adresse_Vide : constant Adresse_Peripherique := 9999;

    subtype Delai is Integer;

    type Acteur is
        record
            Peripherique : Adresse_Peripherique;
            Numero_Fonction : Natural;
        end record;

    type Descripteurderole is
        record
            Lacteur : Acteur;
            Lesetapes : Etape.Etape;
            Encours : Boolean;
            Ledebut : Etape.Temps;
            Lindex : Etape.Etape;
            Laduree : Etape.Temps;
        end record;
    type Role is access Descripteurderole;
    Role_Vide : constant Role := null;

-- creation
    function Creerunrole (A : Acteur) return Role;
    function Chargerunrole (F : in Text_Io.File_Type) return Role;
    function Chargeruntemps (F : in Text_Io.File_Type) return Etape.Temps;
    function Chargerunacteur (F : in Text_Io.File_Type) return Acteur;
    function Chargeruneaction (F : in Text_Io.File_Type) return Etape.Action;
-- acces
    function Leroleestvide (Unrole : Role) return Boolean;
    function Lacteurdurole (Unrole : Role) return Acteur;
    function Ladureedurole (Unrole : Role) return Etape.Temps;
    function Leroleestencours (Unrole : Role) return Boolean;
    function Ledebutdurole (Unrole : Role) return Etape.Temps;
    function Lesetapesdurole (Unrole : Role) return Etape.Etape;
    procedure Quelleactiondurole (Unrole : Role;
                                  Untemps : Etape.Temps;
                                  Uneaction : out Etape.Action;
                                  Existe : out Boolean);
    function Lenombredactionsdurole (Unrole : Role) return Integer;
-- modification
    procedure Caseruneactiondanslerole (Unrole : in out Role;
                                        Untemps : Etape.Temps;
                                        Uneaction : Etape.Action);
    procedure Exclureuneactiondurole
                 (Unrole : in out Role; Untemps : Etape.Temps);
    procedure Decaleruneactiondurole
                 (Unrole : in out Role; Untemps : Etape.Temps; Undelai : Delai);
    procedure Deplaceruneactiondurole (Unrole : in out Role;
                                       Ancien : Etape.Temps;
                                       Nouveau : Etape.Temps);
    procedure Decalerlerole (Unrole : in out Role; Undelai : Delai);
    procedure Viderlerole (Unrole : in out Role);
-- execution
    procedure Demarrerlerole (Unrole : in out Role);
    procedure Arreterlerole (Unrole : in out Role);
    procedure Solliciterlerole (Unrole : in out Role; Tempscourant : Integer);
-- sauvegarde
    procedure Sauvegarderlerole (Unrole : Role; Fichier : String);
-- affichage
    procedure Afficherunrole (R : Role);
end Role;