DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦d2bb08306⟧ TextFile

    Length: 1366 (0x556)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Lex, Error, Debug, Symbol;

package body Value is

    procedure Parse (N : in out Binary_Tree.Node; Success : in out Boolean) is  
        N1 : Binary_Tree.Node;
    begin  
        Success := True;
        N1 := new Binary_Tree.Node_Structure;
        N1.The_Type := Binary_Tree.Valeur_Type;
        case Lex.Get is
            when Lex.Identifier =>
                Debug.Put (320);  
                N1.S := new String'(Lex.Image);
                Lex.Next;
            when Lex.Int =>
                Debug.Put (321);
                N1.S := new String'(Symbol.Tmp_Var_Name);
                Symbol.Add_Variable (N1.S.all, Symbol.Integer_Var, Lex.Value);
                Lex.Next;
            when Lex.Hour =>
                Debug.Put (322);  
                N1.S := new String'(Symbol.Tmp_Var_Name);
                Symbol.Add_Variable (N1.S.all, Symbol.Time_Var, Lex.Value);
                Lex.Next;
            when others =>
                Error.Append (1);  
                Success := False;
        end case;
        N := N1;
    end Parse;


    procedure Generate (N : in Binary_Tree.Node; The_Value : out Natural) is
        The_Type : Symbol.Symbol_Type;
        Value1 : Natural;
        Ok : Boolean := True;
    begin
        Symbol.Get_Variable (N.S.all, The_Type, Value1, Ok);
        The_Value := Value1;
    end Generate;

end Value;