DataMuseum.dk

top - download

    Length: 704 (0x2c0)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

package body Generic_Stack is
    procedure Push (On : in out Object; The_Element : in Element) is
    begin
        On.The_Top := On.The_Top + 1;
        On.The_Content (On.The_Top) := The_Element;
    end Push;


    procedure Pop (From : in out Object; The_Element : out Element) is
    begin
        The_Element := From.The_Content (From.The_Top);
        From.The_Top := From.The_Top - 1;
    end Pop;

    function Is_Full (The_Stack : in Object) return Boolean is
    begin
        return (The_Stack.The_Top = The_Stack.Size);
    end Is_Full;


    function Is_Empty (The_Stack : in Object) return Boolean is
    begin
        return (The_Stack.The_Top = 0);
    end Is_Empty;
end Generic_Stack;