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 - metrics - download

⟦1faea9a11⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Une_Valeur, seg_047ff4

Derivation

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

with Our_Value, Our_String, Our_List, Variables, Erreur, Les_Conditions,
     Compare_Clavier, Un_Nombre, Un_Id_Compose, Une_Valeur1,
     Une_Valeur2, Un_Terme1, Un_Nombre1, Un_Terme, Text_Io;

use Our_Value;

package body Une_Valeur is

    procedure Parse is -- (Value : in out Our_Value.Var_Value) is --
        Value : Our_Value.Var_Value; -- Pour Parse sans parametre --
        Local : Our_Value.Var_Value;
        Val_Str : Our_String.Variable_String;
    begin
        case Lex.Get_Token is
            when Et =>
                Text_Io.Putline ("Et");
                Lex.Next;
                if Lex.Get_Token = Left_Bracket then
                    Lex.Next;
                    Les_Conditions.Parse (Value);
                    Print_Value (Value);
                    if Lex.Get_Token = Coma then
                        Lex.Next;
                        Les_Conditions.Parse (Local);
                        Print_Value (Local);
                        Set_Value (Value, Value and Local);
                        if Lex.Get_Token = Right_Bracket then
                            Lex.Next;
                        else
                            Erreur.Parse ("il manque une ')'");
                        end if;
                    else
                        Erreur.Parse ("il manque une ','");
                    end if;
                else
                    Erreur.Parse ("il manque une '('");
                end if;

            when Ou =>
                Lex.Next;
                if Lex.Get_Token = Left_Bracket then
                    Lex.Next;
                    Les_Conditions.Parse (Value);
                    if Lex.Get_Token = Coma then
                        Lex.Next;
                        Les_Conditions.Parse (Local);
                        Set_Value (Value, Value or Local);
                        if Lex.Get_Token = Right_Bracket then
                            Lex.Next;
                        else
                            Erreur.Parse ("il manque une ')'");
                        end if;
                    else
                        Erreur.Parse ("il manque une ','");
                    end if;
                else
                    Erreur.Parse ("il manque une '('");
                end if;

            when Non =>
                Lex.Next;
                Les_Conditions.Parse (Value);
                Set_Value (Value, not Value);

            when Entree_Clavier =>
                Lex.Next;
                Compare_Clavier.Parse (Value);

            when Vrai =>
                Set_Value (Value, True);
                Lex.Next;

            when Faux =>
                Set_Value (Value, False);
                Lex.Next;

            when Sentence =>
                if Our_List.Get_Part_Of_The_Script = 3 then
                    Variables.Affect_Value (Lex.Get_Value);
                end if;
                Set_Value (Value, Our_String.Value (Lex.Get_Value));
                Lex.Next;

            when Number =>
                if Our_List.Get_Part_Of_The_Script = 3 then
                    Variables.Affect_Value (Lex.Get_Value);
                end if;
                Set_Value (Value, Our_String.Value (Lex.Get_Value));
                Lex.Next;
                Un_Terme1.Parse (Value);
                Un_Nombre1.Parse (Value);

            when Plus =>
                Lex.Next;
                Un_Terme.Parse (Value);
                Un_Nombre1.Parse (Value);

            when Minus =>
                Lex.Next;
                Un_Terme.Parse (Value);
                Set_Value (Value, -Value);
                Un_Nombre1.Parse (Value);

            when Left_Bracket =>
                Lex.Next;
                Un_Nombre.Parse (Value);
                Une_Valeur1.Parse (Value);

            when others =>
                Un_Id_Compose.Parse (Val_Str);
                Set_Value (Value, Val_Str);
                Une_Valeur2.Parse (Value);

        end case;
    end Parse;

end Une_Valeur;

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=1b rec1=00 rec2=01 rec3=026
        [0x01] rec0=18 rec1=00 rec2=04 rec3=014
        [0x02] rec0=03 rec1=00 rec2=06 rec3=016
        [0x03] rec0=20 rec1=00 rec2=02 rec3=01c
        [0x04] rec0=1e rec1=00 rec2=03 rec3=018
        [0x05] rec0=04 rec1=00 rec2=05 rec3=000
    tail 0x215451a54865799e98f02 0x42a00088462060003