|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Enumerate, seg_03fe0e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package body Enumerate is
procedure Initialize (Item : in out Object; Name : in String) is
begin
Item.Name := new String'(Name);
end Initialize;
function Name (Item : in Object) return String is
begin
if Item.Name = null then
return "";
else
return Item.Name.all;
end if;
end Name;
function Belong (Item : in Object; Literal : in String) return Boolean is
Index : Literal_Index := 1;
Found : Boolean := False;
begin
if Item.Length /= 0 then
while Index in Item.The_Array.Inner'Range and then
Item.The_Array.Inner (Index).all /= [expression] loop
[statement]
end loop;
end if;
return Found;
end Belong;
function Number_Of (Item : in Object) return Literal_Inde is
begin
return Item.Length;
end Number_Of;
procedure Add_Literal (Item : in out Object;
Literal : in String;
Found : in Boolean) is
Temporary_Array : Literal_Array (1 .. Item.The_Array.Inner'Last + 1);
begin
[statement]
end Add_Literal;
end Enumerate;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=27 rec1=00 rec2=01 rec3=024
[0x01] rec0=0d rec1=00 rec2=02 rec3=001
tail 0x2173fe0dc860c598aa0b8 0x42a00088462060003