DataMuseum.dk

top - download

    Length: 3043 (0xbe3)
    Types: TextFile
    Names: »V«

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

TextFile

-- fichier : Role
-- Specifications du package Role
-- Auteur : Sebastien BROCHET
-- Date   : 29 Novembre 1993
-- Etat   : En cours

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;

-- gestion du temps
    procedure Startchrono;
    function Tempschrono return Natural;
    procedure Avancerchrono;

-- 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 Jouerlerole (Unrole : in out Role);
    procedure Solliciterlerole (Unrole : in out Role);
-- sauvegarde
    procedure Sauvegarderlerole (Unrole : Role; Fichier : String);
-- affichage
    procedure Afficherunrole (R : Role);
end Role;