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

⟦243e4a620⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body L_Plages_Horaires, seg_04cc94, seg_04cd7b

Derivation

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

E3 Source Code



with Text_Io;
with Plage;
package body L_Plages_Horaires is

    procedure Parcours (Les_P_H : Object) is
        Iterateur : Liste.Iterator;
    begin
        Liste.Init (Iterateur, Les_P_H);
        Text_Io.Put_Line ("--- Parcours de la Liste des Plages Horaires  ---");
        loop
            exit when Liste.Done (Iterateur);
            Text_Io.Put_Line (Plage_Horaire.Image (Liste.Value (Iterateur)));
            Liste.Next (Iterateur);
        end loop;

    end Parcours;


    procedure Insert_Element (Element : Plage_Horaire.Object;
                              Les_P_H : in out Object) is
    begin
        Les_P_H := Liste.Make (Element, Les_P_H);

    end Insert_Element;


    function Longueur_Liste (Les_P_H : in Object) return Natural is
    begin
        return Natural'(Liste.Length (Les_P_H));
    end Longueur_Liste;


    function Search (Les_P_H : in Object;
                     N_Zone : String;
                     Der_Car_Zone : Natural;
                     Numero_P_H : Natural) return Plage_Horaire.Object is
        Iterateur : Liste.Iterator;
        Une_Plage_Horaire : Plage_Horaire.Object;
        Number : Natural;
    begin
        Liste.Init (Iterateur, Les_P_H);
        loop
            exit when Liste.Done (Iterateur);
            Une_Plage_Horaire :=
               Plage_Horaire.Set ("", Numero_P_H,
                                  Plage.Set (Numero_P_H, Plage.Zero,
                                             Plage.Zero, Plage.Zero));
            Number := Plage_Horaire.Numero_Plage_Horaire
                         (Liste.Value (Iterateur));
            if (Number = Numero_P_H) then
                if (N_Zone (1 .. Der_Car_Zone) =
                    Plage_Horaire.Name_Zone (Liste.Value (Iterateur))) then
                    Une_Plage_Horaire := Liste.Value (Iterateur);
                    return Une_Plage_Horaire;
                end if;
            end if;
            Liste.Next (Iterateur);
        end loop;
        return Une_Plage_Horaire;

    end Search;


end L_Plages_Horaires;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=24 rec1=00 rec2=01 rec3=02a
        [0x01] rec0=15 rec1=00 rec2=02 rec3=026
        [0x02] rec0=09 rec1=00 rec2=03 rec3=000
    tail 0x217540cc2874f6e4b1f10 0x42a00088462060003