DataMuseum.dk

top - download

    Length: 2192 (0x890)
    Types: TextFile
    Names: »B«

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

TextFile

with Abstract_Tree;
package body Element is
    procedure Set_Type (E : in out Element.Object; The_Type : Type_Element) is
    begin
        E.The_Type := The_Type;
    end Set_Type;


    procedure Set_Class (E : in out Element.Object; The_Class : Class) is
    begin
        E.The_Class := The_Class;
    end Set_Class;


    procedure Set_Value (E : in out Element.Object; The_Value : Value) is
    begin
        E.The_Value := The_Value;
    end Set_Value;


    procedure Set_Table (E : in out Element.Object; The_Table : Table) is
    begin
        E.The_Table := The_Table;
    end Set_Table;


    procedure Set_Adresse (E : in out Element.Object; The_Adresse : Integer) is
    begin
        E.The_Adresse := The_Adresse;
    end Set_Adresse;

    procedure Set_Abstract_Tree
                 (E : in out Element.Object;
                  The_Abstract_Tree : Abstract_Tree.P_Instruction) is
    begin
        E.The_Abstract_Tree := The_Abstract_Tree;
    end Set_Abstract_Tree;


    function Convert_To_Class (The_String : String) return Element.Class is  
    begin
        if The_String'Length >=
           80 then                          -- a modifier 6/1/94
            return The_String (The_String'First .. The_String'First + 80 - 1);
        else
            return The_String & (1 .. 80 - The_String'Length => ' ');
        end if;
    end Convert_To_Class;

    function Get_Type (E : Element.Object) return Type_Element is
    begin
        return E.The_Type;
    end Get_Type;


    function Get_Class (E : Element.Object) return Class is
    begin
        return E.The_Class;
    end Get_Class;


    function Get_Value (E : Element.Object) return Value is
    begin
        return E.The_Value;
    end Get_Value;


    function Get_Table (E : Element.Object) return Table is
    begin
        return E.The_Table;
    end Get_Table;


    function Get_Adresse (E : Element.Object) return Integer is
    begin
        return E.The_Adresse;
    end Get_Adresse;

    function Get_Abstract_Tree (E : Element.Object)
                               return Abstract_Tree.P_Instruction is
    begin
        return E.The_Abstract_Tree;
    end Get_Abstract_Tree;


end Element;