DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦0207a9269⟧ TextFile

    Length: 1118 (0x45e)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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⟧

TextFile

with Text_Io;  
with Log;  
with Profile;  
procedure Chop_Lines (Source_File : Text_Io.File_Type;  
                      Dest_File : Text_Io.File_Type) is  
    Buffer : String (1 .. 128);  
    Length : Natural := 0;  
    Line_Counter : Natural := 0;  
begin  
    while not Text_Io.End_Of_File (Source_File) loop  
        Line_Counter := Line_Counter + 1;  
        Text_Io.Get_Line (Source_File, Buffer, Length);  
        if Length > 80 then  
            Log.Put_Line  
               ("Error encountered processing " &  
                Text_Io.Name (Source_File),  
                Profile.Warning_Msg);  
            Log.Put_Line ("Line" & Natural'Image (Line_Counter) &  
                          " is greater than 80 characters." &  
                          "It will be split at column 80",  
                          Profile.Note_Msg);  
            Text_Io.Put_Line (Dest_File, Buffer (1 .. 80));  
            Text_Io.Put_Line (Dest_File, Buffer (81 .. Length));  
        else  
            Text_Io.Put_Line (Dest_File, Buffer (1 .. Length));  
        end if;  
    end loop;  
end Chop_Lines;