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

⟦2ec116de0⟧ TextFile

    Length: 2574 (0xa0e)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Binary_Tree;
package Symbol is

    type Symbol_Type is (Binary_Actor, Discrete_Actor, Fugitive_Actor,
                         Sub_Prog, Integer_Var, Material,
                         Theatre, Time_Var, Time_Actor, No_Type);


    function Get_Actor_Value
                (Theatre_Name : String; Actor_Name : String) return Natural;
    function Get_Current_Level return Natural;
    function Get_Function_Value (Function_Name : String) return Natural;
    function Get_Start_Point (Function_Name : String) return Binary_Tree.Node;
    function Get_Theatre_Adress (Theatre_Name : String) return Natural;
    function Tmp_Var_Name return String;

    procedure Add_Actor (Actor_Name : String; T : Symbol_Type);
    procedure Add_Function (Function_Name : String);
    procedure Add_Material (Material_Name : String);  
    procedure Add_Parameter (Variable_Name : String;
                             The_Type : Symbol_Type := No_Type;
                             The_Value : Natural := 0);
    procedure Add_Theatre
                 (Theatre_Name, Material_Name : String; Adress : Natural);
    procedure Add_Variable (Variable_Name : String;
                            The_Type : Symbol_Type := No_Type;
                            The_Value : Natural := 0);
    procedure Get_Variable (Variable_Name : String;
                            The_Type : out Symbol_Type;
                            The_Value : out Natural;
                            Success : out Boolean);
    procedure Get_Variable_From_1 (Variable_Name : String;
                                   The_Type : out Symbol_Type;
                                   The_Value : out Natural;
                                   Success : out Boolean);
    procedure Get_Variable_From_2 (Variable_Name : String;
                                   The_Type : out Symbol_Type;
                                   The_Value : out Natural;
                                   Success : out Boolean);
    procedure Initialize;
    procedure Put;
    procedure Set_Current_Level (To : Natural; Function_Name : String);
    procedure Set_Function_Value
                 (Function_Name : String; The_Value : Natural := 0);
    procedure Set_Parameter_Value
                 (Parameter_Number : Natural; The_Value : Natural := 0);
    procedure Set_Start_Point (Function_Name : String;
                               The_Node : Binary_Tree.Node);
    procedure Set_Var_Type (Variable_Name : String; The_Type : Symbol_Type);
    procedure Set_Var_Value (Variable_Name : String; The_Value : Natural := 0);
end Symbol;