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: T V

⟦dbffab896⟧ TextFile

    Length: 3137 (0xc41)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Abstract_Tree;
with Element;
with Search_Tree;
with Station_Identifier;  
with Table;
package Symbol_Table is

    procedure Insert (The_Name : in String; Ok : out Boolean);

    procedure Set_Val (The_Name : in String;
                       The_Value : Element.Value;
                       Ok : out Boolean);

    procedure Set_Type (The_Name : in String;
                        The_Type : Element.Element_Type;
                        Ok : out Boolean);

    procedure Get_Val (The_Name : in String;
                       The_Value : out Element.Value;
                       Ok : out Boolean);

    procedure Get_Type (The_Name : in String;
                        The_Type : out Element.Element_Type;
                        Ok : out Boolean);

    procedure Get_Class (The_Name : in String;
                         The_Class : out Element.Class;
                         Ok : out Boolean);

    procedure Set_Class (The_Name : in String;
                         The_Class : in Element.Class;
                         Ok : out Boolean);

    procedure Set_Table (The_Name : in String; Ok : out Boolean);

    procedure Get_Adress (The_Name : in String;
                          The_Adress : out Element.Adress;
                          Ok : out Boolean);

    procedure Set_Adress (The_Name : in String;
                          The_Adress : Element.Adress;
                          Ok : out Boolean);

    procedure Set_Num_Acteur
                 (The_Name : in String; The_Num : Natural; Ok : out Boolean);

    procedure Get_Num_Acteur (The_Name : in String;
                              The_Num : out Natural;
                              Ok : out Boolean);

    procedure Set_Num_Station (The_Name : in String;
                               The_Num_Station : Station_Identifier.Object;
                               Ok : out Boolean);

    procedure Get_Num_Station (The_Name : in String;
                               The_Num_Station : out Station_Identifier.Object;
                               Ok : out Boolean);

    procedure Get_Instr_List (The_Name : in String;
                              The_Instr : out Abstract_Tree.P_Instruction_List;
                              Ok : out Boolean);

    procedure Set_Instr_List (The_Name : in String;
                              The_Instr : Abstract_Tree.P_Instruction_List;
                              Ok : out Boolean);

    function Is_Visible (The_Name : in String) return Boolean;

    function Is_Visible_Local (The_Name : in String) return Boolean;

    procedure Change_Current_Table (The_Name : in String; Ok : out Boolean);

    procedure Leave_Table (Ok : out Boolean); -- sous reserves

    Table_Non_Disponible : exception;

private

    Current_Table : Table.Object := Table.Globale;  
    Current_Top_Table : Table.Object := Table.Globale;

    package Tree is new Search_Tree (Element => Element.Object);

    type A_Tree is
        record
            The_Tree : Tree.Object;
            Imbrication : Table.Object := Table.Globale;
        end record;  
    The_Trees : array (Table.Globale .. Table.Max) of A_Tree;

end Symbol_Table;