DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦734b83d77⟧ TextFile

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

Derivation

└─⟦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;