|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Stack, seg_02ee8d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io;
package body Stack is
Freecell : Pcell;
procedure Create (F : in out Object) is
begin
F := Empty_Stack;
Text_Io.Put_Line ("pile creee");
end Create;
function Newcell (E : in Integer) return Pcell is
Result : Pcell;
begin
if Freecell /= null then
Result := Freecell;
Freecell := Freecell.Suc;
Result.all := Cell'(E, null);
return Result;
else
return new Cell'(E, null);
end if;
end Newcell;
procedure Oldcell (O : Pcell) is
begin
O.Suc := Freecell;
Freecell := O;
end Oldcell;
procedure Enqueue (F : in out Object; E : in Integer) is
Cellwork, Temp : Pcell;
begin
Text_Io.Put_Line ("element empile : " & Integer'Image (E));
if F = Empty_Stack then
Cellwork := Newcell (E);
F.Head := Cellwork;
else
Cellwork := Newcell (E);
Temp := F.Head;
F.Head := Cellwork;
F.Head.Suc := Temp;
end if;
end Enqueue;
procedure Dequeue (F : in out Object; E : in out Integer) is
Cellwork : Pcell;
begin
if F = Empty_Stack then
raise Empty;
else
E := F.Head.Val;
Cellwork := F.Head;
F.Head := F.Head.Suc;
Oldcell (Cellwork);
Text_Io.Put_Line ("valeur depilee : " & Integer'Image (E));
end if;
end Dequeue;
begin
for I in 1 .. 50 loop
Freecell := new Cell'(0, Freecell);
end loop;
end Stack;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=28 rec1=00 rec2=01 rec3=03e
[0x01] rec0=21 rec1=00 rec2=02 rec3=001
tail 0x21727b4788489665ccd8f 0x42a00088462060003