|
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: 650 (0x28a)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Lines;
package body Line_Iterator_Operations_Solution is
procedure Total_Count (Info : Information;
Iter : in out Lines.Line_Iterator;
Total : out Integer) is
Tot : Integer := 0;
begin
while not Lines.Done (Iter) loop
Tot := Tot + Count (Info, Lines.Value (Iter));
Lines.Next (Iter);
end loop;
end Total_Count;
procedure Put_All (Iter : in out Lines.Line_Iterator) is
begin
while not Lines.Done (Iter) loop
Lines.Next (Iter);
end loop;
end Put_All;
end Line_Iterator_Operations_Solution;