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 - metrics - download
Index: B T

⟦af2715b30⟧ TextFile

    Length: 955 (0x3bb)
    Types: TextFile
    Names: »B«

Derivation

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

with Text_Io;
package body Stack_Generic is

    procedure Push (On : in out Object; The_Element : in Item) is
    begin
        begin
            On.Content (On.Top + 1) := The_Element;
            On.Top                  := On.Top + 1;
        exception
            when Constraint_Error =>
                Text_Io.Put_Line ("Stack overflow !!!!!!");
        end;
    end Push;


    procedure Pop (From : in out Object; The_Element : out Item) is
    begin  
        begin
            The_Element := From.Content (From.Top);
            From.Top    := From.Top - 1;
        exception
            when Constraint_Error =>
                Text_Io.Put_Line ("the stack is empty !!!!!!");
        end;
    end Pop;


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


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