DataMuseum.dk

top - download

    Length: 2366 (0x93e)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Class_Behavior;
with Collection;


package body Pilote is

    type Structure_Pilote is
        record
            Son_Nom    : Nom;
            Son_Age    : Age;
            Sa_Licence : Licence;  
            Traite     : Boolean;
        end record;

    package Behavior is new Class_Behavior (Structure_Pilote, "PILOTES   ");

------------------------------------------------------------------------------

    function Les_Pilotes return Collection.Object is
    begin
        return Behavior.All_Instances;

    end Les_Pilotes;


    function Le_Nom (De : Object) return Nom is
    begin
        return Behavior.Get (De).Son_Nom;
    end Le_Nom;


    function L_Age (De : Object) return Age is
    begin
        return Behavior.Get (De).Son_Age;
    end L_Age;


    function La_Licence (De : Object) return Licence is
    begin
        return Behavior.Get (De).Sa_Licence;
    end La_Licence;

    function Flag_Traite (De : Object) return Boolean is
    begin
        return Behavior.Get (De).Traite;
    end Flag_Traite;


    procedure Modifier (De : Object; Flag_Traite : Boolean) is
        A_Pilote : Structure_Pilote;
    begin  
        A_Pilote        := Behavior.Get (De);
        A_Pilote.Traite := Flag_Traite;
        Behavior.Set (De, A_Pilote);
    end Modifier;

    procedure Effacer_Faits is
    begin
        Behavior.Clear;
    end Effacer_Faits;

    procedure Creer_Faits is
    begin
        Behavior.Allocate (Structure_Pilote'
                           ("DUPOND                        ", 30,
                            "L 10001                       ", False));
        Behavior.Allocate (Structure_Pilote'
                           ("DURAND                        ", 40,
                            "L 10002                       ", False));
        Behavior.Allocate (Structure_Pilote'
                           ("TOTO                          ", 50,
                            "L 10001                       ", False));
        Behavior.Allocate (Structure_Pilote'
                           ("TITI                          ", 25,
                            "L 10002                       ", False));
        Behavior.Allocate (Structure_Pilote'
                           ("TINTIN                        ", 55,
                            "L 10003                       ", False));
    end Creer_Faits;


end Pilote;