|
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 Memory_2, seg_04b6eb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Document; with Message_Transport; with Identifier; with Bounded_String_Generic; with Max; use Identifier; package Memory_2 is Request_Exception : exception; package Bs is new Bounded_String_Generic (Size => 10); type Descriptor is record Host : Bs.Variable_String; Socket : Message_Transport.Socket := 0; Stream : Message_Transport.Stream_Id; end record; type Vector is array (Natural range <>) of Descriptor; -- type Vector is array (Natural range <>) of Identifier.Descriptor; type File is record Value : Vector (1 .. Max.Get_Max); end record; procedure Init (T : in out File); procedure Add (T : in out File; Where : Natural; Descriptor : Identifier.Descriptor); procedure Delete (T : in out File; Where : Natural; Descriptor : Identifier.Descriptor); function Search (T : File; Where : Natural) return Identifier.Descriptor; end Memory_2;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=28 rec1=00 rec2=01 rec3=030 [0x01] rec0=07 rec1=00 rec2=02 rec3=001 tail 0x215488bb28682611e14bb 0x42a00088462060003