DataMuseum.dk

top - download

    Length: 929 (0x3a1)
    Types: TextFile
    Names: »V«

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

TextFile

package Tad_Actor is

    type Object is private;
    type Type_Actor is (No_Type, Fugitif, Binaire, Discret, Temporel);
    type Pnatural is access Natural;

    procedure Create_New_Actor (The_Object : out Object;
                                The_Name : String;
                                The_Address : Natural := 0);
    procedure Add_Type (The_Object : in out Object; The_Type : Type_Actor);

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

    function What_Name (The_Object : Object) return String;
    function What_Type (The_Object : Object) return Type_Actor;
    function What_Address (The_Object : Object) return Natural;

    function Export_Address_Pointer (The_Object : Object) return Pnatural;

private
    type Object is
        record
            Name : String (1 .. 20);
            Actor_Type : Type_Actor;
            Actor_Address : Natural;
        end record;

end Tad_Actor;