DataMuseum.dk

top - download

    Length: 2965 (0xb95)
    Types: TextFile
    Names: »B«

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

TextFile

with Text_Io;
with Error;
with Bounded_String;
package body Table is

    procedure Insert (The_Table : in out Symbol_Kind;
                      Name : Message.Tiny_String;
                      New_Reference : Object.Reference) is
    begin
        Symbol_Map.Define (The_Map => The_Table.Map,
                           D => Bounded_String.Image (V => Name),
                           R => New_Reference,
                           Trap_Multiples => False);
    end Insert;

    procedure Find (The_Table : Symbol_Kind;
                    Name : Message.Tiny_String;
                    New_Reference : in out Object.Reference;
                    Success : out Boolean) is

    begin
        Symbol_Map.Find (The_Map => The_Table.Map,
                         D => Bounded_String.Image (Name),
                         R => New_Reference,
                         Success => Success);
    end Find;

    procedure Remove (The_Table : in out Symbol_Kind;
                      Name : Message.Tiny_String) is
    begin
        Symbol_Map.Undefine (The_Map => The_Table.Map,
                             D => Bounded_String.Image (V => Name));

    end Remove;

    function Is_Empty (The_Table : Symbol_Kind) return Boolean is
    begin
        return Symbol_Map.Is_Empty (The_Map => The_Table.Map);
    end Is_Empty;

    procedure Initialize (The_Table : in out Symbol_Kind) is
    begin  
        Symbol_Map.Initialize (The_Map => The_Table.Map);
    end Initialize;

    function Eval (The_Table : Symbol_Kind; Name : Message.Tiny_String)
                  return Object.Reference is
    begin
        return Symbol_Map.Eval (The_Map => The_Table.Map,
                                D => Bounded_String.Image (Name));

    exception
        when Symbol_Map.Undefined =>
            Tiny_Error.Undefined_Name_In_Symbol_Table;

    end Eval;


    procedure In_Text (The_Table : Symbol_Kind) is
        Iterator : Symbol_Map.Iterator;
        The_Object : Object.Reference;
    begin
        Iterator := The_Table.Iter;
        Symbol_Map.Init (Iter => Iterator, The_Map => The_Table.Map);
        Text_Io.Put_Line ("TABLE DES SYMBOLES");
        Text_Io.Put_Line ("==================");
        Text_Io.New_Line;
        while not Symbol_Map.Done (Iter => Iterator) loop  
            Text_Io.Put ("I: ");  
            Text_Io.Put (Symbol_Map.Value (Iter => Iterator));
            Text_Io.Set_Col (25);
            Text_Io.Put (" Classe : ");  
            The_Object := Symbol_Map.Eval
                             (The_Table.Map, (Symbol_Map.Value
                                                 (Iter => Iterator)));
            Text_Io.Put (Object.Classe'Image (Object.Get_Classe (The_Object)));
            Text_Io.Set_Col (50);
            Text_Io.Put (" ID_Objet :==> ");
            Text_Io.Put_Line (Integer'Image (Object.Get_Value (The_Object)));
            Symbol_Map.Next (Iter => Iterator);
        end loop;
    end In_Text;

end Table;