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

⟦b85d12f18⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Variables, seg_048614, seg_048c50, seg_048cbf, seg_048dfe

Derivation

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

package body Variables is
    function Get_Index (P : Nos_Chaines.String_Text) return T_Generic is
    begin
        return T_Generic'Value (Nos_Chaines.Infinite_String.Image (P));
    end Get_Index;

    function Is_Generic (P : Nos_Chaines.String_Text) return Boolean is
        Tmp : T_Generic;
    begin
        Tmp := T_Generic'Value (Nos_Chaines.Infinite_String.Image (P));
        return True;
    exception
        when Constraint_Error =>
            return False;
    end Is_Generic;

    function Is_The_Var_Sortie (P : Nos_Chaines.String_Text) return Boolean is
    begin
        return Nos_Chaines.Equal (P,
                                  Nos_Chaines.Infinite_String.Value ("sortie"));
    end Is_The_Var_Sortie;

    function Is_The_Var_Joueur (P : Nos_Chaines.String_Text) return Boolean is
    begin
        return Nos_Chaines.Equal (P,
                                  Nos_Chaines.Infinite_String.Value ("joueur"));
    end Is_The_Var_Joueur;

    function Is_The_Var_Position_Courante
                (P : Nos_Chaines.String_Text) return Boolean is
    begin
        return Nos_Chaines.Equal
                  (P, Nos_Chaines.Infinite_String.Value ("positioncourante"));
    end Is_The_Var_Position_Courante;


    function Get_Value (P : Nos_Chaines.String_Text)
                       return Nos_Chaines.String_Text is
    begin
        if Is_Generic (P) then
            return Var_Generic (Get_Index (P));
        elsif Is_The_Var_Sortie (P) then
            return Var_Sortie;
        elsif Is_The_Var_Joueur (P) then
            return Var_Joueur;
        elsif Is_The_Var_Position_Courante (P) then
            return Var_Position_Courante;
        else
            return P;
        end if;
    end Get_Value;

end Variables;

    nblk1=3
    nid=3
    hdr6=4
        [0x00] rec0=1c rec1=00 rec2=01 rec3=032
        [0x01] rec0=1b rec1=00 rec2=02 rec3=000
        [0x02] rec0=05 rec1=00 rec2=03 rec3=000
    tail 0x2174c87f8865974e77777 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 66 80 1a 54 5f 47 65 6e 65 72 69 63 5f  ┆   f  T_Generic_┆