DataMuseum.dk

top - metrics - download

    Length: 2136 (0x858)
    Types: TextFile
    Names: »B«

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

separate (Symbol)
package body Symbol_Tree is

    The_Node : Object;


    function Find (The_Object : Object; S : Bounded_String.Variable_String)
                  return Object is
        [declaration]
    begin
        if The_Object.The_Symbol.The_Name = S then
            return The_Object;
        else
            if The_Object.The_Symbol.The_Name < S then
                if The_Object.Left_Son = null then
                    return The_Object.Left_Son;
                else
                    return Find (The_Object.Left_Son, S);
                end if;
            elsif The_Object.The_Symbol.The_Name > S then
                if The_Object.Right_Son = null then
                    return The_Object.Right_Son;
                else
                    return Find (The_Object.Left_Son, S);
                end if;
            end if;
        end if;
    end Find;

    function Name_Exist
                (In_The_Object : Object;
                 The_Name : Bounded_String.Variable_String) return Boolean is
    begin
        [statement]
    end Name_Exist;


    function Get_Value (Of_The_Var : Bounded_String.Variable_String;
                        In_The_Object : Object) return Naural is
    begin
        [statement]
    end Get_Value;


    function Get_Type (Of_The_Var : Bounded_String.Variable_String;
                       In_The_Object : Object) return Symbol_Type is
    begin
        [statement]
    end Get_Type;



    procedure Add (To : in out Object;
                   S : Bounded_String.Variable_String;
                   Of_Type : Symbol_Type) is  
        Tmp_Object : Object;
        Tmp_Symbol : Attributes (Of_Type);
    begin
        if To = null then
            To := new Object (Tmp_Symbol, null, null);
            To.The_Symbol.The_Name := S;
            To.The_Symbol.The_Type := Of_Type;

        else
            [statement]
        end if;

    end Add;


    procedure Set_Value (Of_The_Var : Bounded_String.Variable_String;
                         In_The_Object : Object;
                         To : Natural) is
    begin
        [statement]
    end Set_Value;
end Symbol_Tree;