|
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 - metrics - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Enumerate, seg_048e13, seg_049241, seg_04946c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 Enumerate is
procedure Put (Item : in out Object;
An_Enumeration, A_Literal : in Identifier.Object) is
begin
Item.Enumeration := An_Enumeration;
Item.Literal := A_Literal;
end Put;
procedure Show (Item : in Object) is
begin
Text_Io.Put_Line ("Enumerate : Enumeration : " & Enumeration (Item) &
" Literal : " & Literal (Item));
end Show;
function Enumeration (Item : in Object) return String is
begin
return Identifier.Image (Item.Enumeration);
end Enumeration;
function Literal (Item : in Object) return String is
begin
return Identifier.Image (Item.Literal);
end Literal;
end Enumerate;
nblk1=4
nid=4
hdr6=2
[0x00] rec0=21 rec1=00 rec2=01 rec3=000
[0x01] rec0=16 rec1=00 rec2=04 rec3=000
[0x02] rec0=27 rec1=00 rec2=04 rec3=084
[0x03] rec0=0d rec1=00 rec2=03 rec3=000
tail 0x2174d38f6865b015b98f4 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 03 00 14 00 0e 65 6e 64 20 45 6e 75 6d 65 72 ┆ end Enumer┆
0x3: 0000 00 02 03 fc 80 26 72 6e 20 6c 69 74 65 72 61 6c ┆ &rn literal┆
0x2: 0000 00 00 00 20 80 1a 74 28 69 74 65 6d 20 3a 20 69 ┆ t(item : i┆