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 - download
Index: ┃ T V

⟦6587d7650⟧ TextFile

    Length: 1172 (0x494)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Group_Tree;

package Tad_Local is

    type Object is private;
    type Var_Type is (Notype, Temp, Num, Groupe);
    type Pvar_Type is access Var_Type;
    type Pnatural is access Natural;

    procedure Create_New_Local_Var (The_Object : out Object; The_Name : String);
    procedure Set_Type (The_Object : in out Object; The_Type : Var_Type);
    procedure Set_Value (The_Object : in out Object; The_Value : Natural);
    procedure Set_Members (The_Object : in out Object;
                           The_Members : Group_Tree.Object);
    function Get_Type (The_Object : Object) return Var_Type;
    function Get_Value (The_Object : Object) return Natural;
    function Get_Members (The_Object : Object) return Group_Tree.Object;

    function Compare_Name (Object1, Object2 : Object) return Integer;

    function Export_Value_Pointer (The_Object : Object) return Pnatural;
    function Export_Type_Pointer (The_Object : Object) return Pvar_Type;

private
    type Object is
        record
            Name : String (1 .. 20);
            The_Type : Var_Type;
            Value : Natural;
            Members : Group_Tree.Object;
        end record;

end Tad_Local;