|
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, generic, package The_List_Generic, seg_05575f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with List_Generic; generic type Type_Element is private; package The_List_Generic is package Last_List is new List_Generic (Element => Type_Element); type The_List is private; procedure Delete (L : in out The_List; The_Element : Type_Element; Is_Ok : out Boolean); function Make (X : Type_Element; L : The_List) return The_List; function Nil return The_List; function Is_Empty (L : The_List) return Boolean; function Search (L : The_List; The_Element : Type_Element) return Boolean; procedure Free (L : in out The_List); -- make L empty function First (L : The_List) return Type_Element; function Rest (L : The_List) return The_List; procedure Set_Rest (L : The_List; To_Be : The_List); procedure Set_First (L : The_List; To_Be : Type_Element); function Length (L : The_List) return Natural; type The_Iterator is private; --type The_Iterator is new Last_List.Iterator; procedure Init (Iter : out The_Iterator; L : The_List); procedure Next (Iter : in out The_Iterator); function Value (Iter : The_Iterator) return Type_Element; function Done (Iter : The_Iterator) return Boolean; private type The_List is new Last_List.List; -- variables of type list are initialized to null type The_Iterator is new Last_List.Iterator; end The_List_Generic;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=21 rec1=00 rec2=01 rec3=000 [0x01] rec0=13 rec1=00 rec2=02 rec3=000 tail 0x20104ef0487bd6bf8b6cd 0x42a00088462065003