|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1077 (0x435)
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⟧
package body Pile is
procedure Empiler (Stac : in out Object; E : in Item) is
begin
if Stac.Head >= Stac.Place'Last then
raise Pile_Pleine;
end if;
Stac.Head := Stac.Head + 1;
Stac.Place (Stac.Head) := E;
end Empiler;
procedure Depiler (Stac : in out Object; E : out Item) is
begin
if Stac.Head = 0 then
raise Pile_Vide;
end if;
E := Stac.Place (Stac.Head);
Stac.Head := Stac.Head - 1;
end Depiler;
procedure Iterateur_A_Position (Stac : in out Object; Posi : Natural) is
begin
Stac.Iterateur := Posi;
end Iterateur_A_Position;
procedure Lire_Posi_Iterateur (Stac : in out Object; Posi : out Natural) is
begin
Posi := Stac.Iterateur;
end Lire_Posi_Iterateur;
procedure Lire (Stac : in out Object; E : out Item) is
begin
E := Stac.Place (Stac.Iterateur);
end Lire;
procedure Avance (Stac : in out Object) is
begin
Stac.Iterateur := Stac.Iterateur + 1;
end Avance;
end Pile;