DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦cd221253d⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Pilote, seg_010435

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

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;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=2c rec1=00 rec2=01 rec3=02a
        [0x01] rec0=00 rec1=00 rec2=04 rec3=01a
        [0x02] rec0=1d rec1=00 rec2=02 rec3=00a
        [0x03] rec0=0b rec1=00 rec2=03 rec3=000
    tail 0x2170bc224822b3d69f46c 0x42a00088462063c03