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

⟦23af0da9e⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Parametre_68, seg_051627

Derivation

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

with Util_String;

package body Parametre_68 is

    package Us renames Util_String;

    procedure Create (O : in out Object;
                      Tempo : T_Tempo;
                      Apb : T_Apb;
                      Veille : T_Veille;
                      Entree_Tor : T_Entree_Tor;
                      Evenement : T_Evenement) is
    begin
        Set_Tempo (O, Tempo);
        Set_Apb (O, Apb);
        Set_Veille (O, Veille);
        Set_Entree_Tor (O, Entree_Tor);
        Set_Evenement (O, Evenement);
    end Create;


    procedure Set_Tempo (O : in out Object; Tempo : T_Tempo) is
    begin
        O.Tempo := Tempo;
    end Set_Tempo;


    procedure Set_Apb (O : in out Object; Apb : T_Apb) is
    begin
        O.Apb := Apb;
    end Set_Apb;


    procedure Set_Veille (O : in out Object; Veille : T_Veille) is
    begin
        O.Veille := Veille;
    end Set_Veille;


    procedure Set_Entree_Tor (O : in out Object; Entree_Tor : T_Entree_Tor) is
    begin
        O.Entree_Tor := Entree_Tor;
    end Set_Entree_Tor;


    procedure Set_Evenement (O : in out Object; Evenement : T_Evenement) is
    begin
        O.Evenement := Evenement;
    end Set_Evenement;


    function Get_Tempo (O : Object) return T_Tempo is
    begin
        return O.Tempo;
    end Get_Tempo;


    function Get_Apb (O : Object) return T_Apb is
    begin
        return O.Apb;
    end Get_Apb;


    function Get_Veille (O : Object) return T_Veille is
    begin
        return O.Veille;
    end Get_Veille;


    function Get_Entree_Tor (O : Object) return T_Entree_Tor is
    begin
        return O.Entree_Tor;
    end Get_Entree_Tor;


    function Get_Evenement (O : Object) return T_Evenement is
    begin
        return O.Evenement;
    end Get_Evenement;


    function Image (O : Object) return String is
    begin
        return (Debut_Parametre & Natural'Image (Get_Tempo (O)) &
                Sep_Parametre & T_Apb'Image (Get_Apb (O)) &
                Sep_Parametre & T_Veille'Image (Get_Veille (O)) &
                Sep_Parametre & T_Entree_Tor'Image (Get_Entree_Tor (O)) &
                Sep_Parametre & T_Evenement'Image (Get_Evenement (O)) &
                Sep_Parametre & Fin_Parametre);
    end Image;


    function Value (S : String) return Object is
        O : Object;
        Der_Car : Natural;
    begin
        Value (S, O, Der_Car);
        return O;
    end Value;


    procedure Value (S : String; O : in out Object; Der_Car : in out Natural) is
        P1, P2, P3, P4, P5, P6, P7 : Natural;
    begin
        Us.String_Contient (S, Debut_Parametre, P1);
        Us.Position (S (P1 + 1 .. S'Last), Sep_Parametre, P2); -- tempo
        Us.Position (S (P2 + 1 .. S'Last), Sep_Parametre, P3); -- Apb
        Us.Position (S (P3 + 1 .. S'Last), Sep_Parametre, P4); -- Veille
        Us.Position (S (P4 + 1 .. S'Last), Sep_Parametre, P5); -- Entree_Tor
        Us.Position (S (P5 + 1 .. S'Last), Sep_Parametre, P6); -- Evenememt
        Us.String_Contient (S (P6 + 1 .. S'Last), Fin_Parametre, P7);

        Create (O, Natural'Value (S (P1 + 1 .. P2 - 1)),
                T_Apb'Value (S (P2 + 1 .. P3 - 1)),
                T_Veille'Value (S (P3 + 1 .. P4 - 1)),
                T_Entree_Tor'Value (S (P4 + 1 .. P5 - 1)),
                T_Evenement'Value (S (P5 + 1 .. P6 - 1)));

        Der_Car := P7;

    end Value;

end Parametre_68;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=29 rec1=00 rec2=01 rec3=058
        [0x01] rec0=00 rec1=00 rec2=05 rec3=006
        [0x02] rec0=2c rec1=00 rec2=02 rec3=058
        [0x03] rec0=19 rec1=00 rec2=03 rec3=03e
        [0x04] rec0=0f rec1=00 rec2=04 rec3=000
    tail 0x21758d46a879a5bbea731 0x42a00088462060003