|
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: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Po_Handle_Extension, seg_028b7c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Po_Handle; package Po_Handle_Extension is -- -- specially provided to support the iterator based external text -- conversion approach -- type Line_Iterator is private; function Init (The_Element : Po_Handle.Object) return Line_Iterator; function Done (The_Iter : Line_Iterator) return Boolean; function Value (The_Iter : Line_Iterator) return String; procedure Next (The_Iter : in out Line_Iterator); private type Line_Iterator is new Po_Handle.Object; end Po_Handle_Extension;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=18 rec1=00 rec2=01 rec3=001 tail 0x2172264da83c55e0f45a5 0x42a00044462022803