DataMuseum.dk

top - download

    Length: 735 (0x2df)
    Types: TextFile
    Names: »B«

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

TextFile

package body Object is

    function Void_Reference return Reference is
        Result : Reference;  
    begin
        return Result;
    end Void_Reference;


    function Create (The_Class : Class; Ident : Integer := 0)
                    return Reference is
        The_Reference : Reference;
    begin
        The_Reference.The_Class := The_Class;
        The_Reference.Ident := Ident;
        return The_Reference;
    end Create;

    function Identificator (The_Reference : Reference) return Integer is
    begin
        return The_Reference.Ident;
    end Identificator;

    function The_Class (The_Reference : Reference) return Class is  
    begin
        return The_Reference.The_Class;
    end The_Class;

end Object;