|
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, seg_02973b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
WITH Unbounded;
PACKAGE Lines IS
-- This is the abstraction defining and manipulating lines of text.
SUBTYPE Line IS String;
-- Defines a single line of text.
TYPE Lines_Type IS PRIVATE;
-- Defines an abstraction for an ordered set of lines of text.
FUNCTION Make RETURN Lines_Type;
-- Returns an empty set of lines.
PROCEDURE Add (New_Line : Line; To : IN OUT Lines_Type);
-- Adds a new line to the end of the indicated lines.
TYPE Line_Iterator IS PRIVATE;
-- For iterating over each line in a set of lines (in order).
FUNCTION Initialize (Lines : Lines_Type) RETURN Line_Iterator;
FUNCTION Value (Iterator : Line_Iterator) RETURN Line;
PROCEDURE Next (Iterator : IN OUT Line_Iterator);
FUNCTION Is_Done (Iterator : Line_Iterator) RETURN Boolean;
PRIVATE
TYPE Lines_Record;
TYPE Lines_Type IS ACCESS Lines_Record;
TYPE Lines_Record IS
RECORD
My_Line : Unbounded.Variable_String;
Next : Lines_Type;
END RECORD;
TYPE Line_Iterator IS NEW Lines_Type;
END Lines;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=25 rec1=00 rec2=01 rec3=008
[0x01] rec0=05 rec1=00 rec2=02 rec3=000
tail 0x21521961683d36ac7e634 0x489e0066482863001