|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
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⟧
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;