DataMuseum.dk

top - download

    Length: 697 (0x2b9)
    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 Create (Class : E_Class; Object : Index) return Reference is
    begin
        return Reference'(Id_Class => Class, Id_Object => Object);
    end Create;

    function Get (Class_From : Reference) return E_Class is
    begin
        return Class_From.Id_Class;
    end Get;

    function Get (Index_From : Reference) return Index is
    begin
        return Index_From.Id_Object;
    end Get;

    procedure Put (This_Class : E_Class; Into : out Reference) is
    begin
        Into.Id_Class := This_Class;
    end Put;

    procedure Put (This_Index : Index; Into : out Reference) is
    begin
        Into.Id_Object := This_Index;
    end Put;


end Object;