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

⟦850e7ccdc⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body P_Acces, seg_04ccb4, seg_04cd92

Derivation

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

package body P_Acces is
    function Set (Nom_Z : String;
                  Nom_G : String;
                  Der_Car_G : Natural;
                  Der_Car_Z : Natural;
                  Numero_De_Plage : Natural) return Object is
        Un_Acces : Object;
    begin
        Un_Acces.Nom_Zone (1 .. Der_Car_Z) := Nom_Z (1 .. Der_Car_Z);
        Un_Acces.Nom_Groupe (1 .. Der_Car_G) := Nom_G (1 .. Der_Car_G);
        Un_Acces.Der_Car_Z := Der_Car_Z;
        Un_Acces.Der_Car_G := Der_Car_G;  
        Un_Acces.Numero_De_Plage := Numero_De_Plage;  
        return Un_Acces;
    end Set;


    function Image (Un_Acces : in Object) return String is
    begin
        return String'("Nom Zone : " &
                       Un_Acces.Nom_Zone (1 .. Un_Acces.Der_Car_Z) &
                       " Nom Groupe : " &
                       Un_Acces.Nom_Groupe (1 .. Un_Acces.Der_Car_G) &
                       " Numero Plage : " &
                       Natural'Image (Un_Acces.Numero_De_Plage));
    end Image;


    function Get_Nom_Groupe (Un_Acces : in Object) return String is
    begin
        return String'(Un_Acces.Nom_Groupe (1 .. Un_Acces.Der_Car_G));
    end Get_Nom_Groupe;


    function Get_Nom_Zone (Un_Acces : in Object) return String is
    begin
        return String'(Un_Acces.Nom_Zone (1 .. Un_Acces.Der_Car_Z));
    end Get_Nom_Zone;


    function Get_Num_Plage (Un_Acces : in Object) return Natural is
    begin
        return Un_Acces.Numero_De_Plage;
    end Get_Num_Plage;


    function Get_Nom_Plage (Un_Acces : in Object) return String is
    begin
        return String'(Un_Acces.Nom_Groupe (1 .. Un_Acces.Der_Car_G));
    end Get_Nom_Plage;


    function Get_Der_Car_Z (Un_Acces : in Object) return Natural is
    begin
        return Un_Acces.Der_Car_Z;
    end Get_Der_Car_Z;


    function Get_Der_Car_G (Un_Acces : in Object) return Natural is
    begin
        return Un_Acces.Der_Car_G;
    end Get_Der_Car_G;
end P_Acces;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=054
        [0x01] rec0=24 rec1=00 rec2=02 rec3=036
        [0x02] rec0=03 rec1=00 rec2=03 rec3=000
    tail 0x217540d1e874f6e892b66 0x42a00088462060003