DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦654e9ac89⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_029725

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧

E3 Source Code



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;

E3 Meta Data

    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 0x2152195bc83d36ab7bd5c 0x489e0066482863001