DataMuseum.dk

top - download

    Length: 1186 (0x4a2)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

WITH Unbounded;
PACKAGE BODY Lines IS

   FUNCTION Make RETURN Lines_Type IS
   BEGIN
      RETURN NULL;
   END Make;


   PROCEDURE Add (New_Line : Line; To : IN OUT Lines_Type) IS
   BEGIN
      IF To = NULL THEN
         To := NEW Lines_Record'(Unbounded.Value (New_Line), NULL);
      ELSE
         DECLARE
            Temp  : Lines_Type :=
               NEW Lines_Record'(Unbounded.Value (New_Line), NULL);
            Temp2 : Lines_Type := To;
         BEGIN
            WHILE Temp2.ALL.Next /= NULL LOOP
               Temp2 := Temp2.ALL.Next;
            END LOOP;
            Temp2.ALL.Next := Temp;
         END;
      END IF;
   END Add;


   FUNCTION Initialize (Lines : Lines_Type) RETURN Line_Iterator IS
   BEGIN
      RETURN Line_Iterator (Lines);
   END Initialize;


   FUNCTION Value (Iterator : Line_Iterator) RETURN Line IS
   BEGIN
      RETURN Unbounded.Image (Iterator.ALL.My_Line);
   END Value;


   PROCEDURE Next (Iterator : IN OUT Line_Iterator) IS
   BEGIN
      Iterator := Line_Iterator (Iterator.ALL.Next);
   END Next;


   FUNCTION Is_Done (Iterator : Line_Iterator) RETURN Boolean IS
   BEGIN
      RETURN Iterator = NULL;
   END Is_Done;
END Lines;