|
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: 872 (0x368)
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 Io;
with Make_Mvs_Tape;
with Directory_Tools;
package body Ibm_Tape_Utility is
function Get_Name (R1000_Name : String) return String is
begin
Io.Put_Line (Directory_Tools.Naming.Part_Attribute (R1000_Name));
return Directory_Tools.Naming.Simple_Name (R1000_Name);-- & Suffix;
end Get_Name;
procedure Truncate (Source, Dest : String) is
Ada_File, Temp_File : Io.File_Type;
Buffer : String (1 .. 80);
Length : Natural := 0;
begin
Io.Open (Ada_File, Io.In_File, Source);
Io.Create (Temp_File, Io.Out_File, Dest);
while not Io.End_Of_File (Ada_File) loop
Io.Get_Line (Ada_File, Buffer, Length);
Io.Put_Line (Temp_File, Buffer (1 .. Length));
end loop;
Io.Close (Ada_File);
Io.Close (Temp_File);
end Truncate;
end Ibm_Tape_Utility;