DataMuseum.dk

top - download

    Length: 604 (0x25c)
    Types: TextFile
    Names: »B«

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

TextFile

package body Stack is
    procedure Push (On : in out Object; The_Element : in Integer) is
    begin
        On.Top := On.Top + 1;
        On.Content (On.Top) := The_Element;
    end Push;


    procedure Pop (From : in out Object; The_Element : out Integer) is
    begin
        The_Element := From.Content (From.Top);
        From.Top := From.Top - 1;
    end Pop;


    function Full (On : in Object) return Boolean is
    begin
        return (On.Top = Taille_Max);
    end Full;


    function Empty (On : in Object) return Boolean is
    begin
        return (On.Top = 0);
    end Empty;
end Stack;