|
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: 1663 (0x67f)
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 Log;
with Tape_Tools;
with Tape_Utils;
with Directory_Tools;
procedure Tape_Write (Files : String := "$@";
Volume : String := "";
Format : String := "Vax/VMS";
Record_Format : Tape_Tools.Record_Format :=
Tape_Tools.Fixed_Length;
Record_Length : Natural := 80;
Block_Length : Natural := 2000) is
package Naming renames Directory_Tools.Naming;
package Object renames Directory_Tools.Object;
Tape : Tape_Utils.Device;
List : Object.Iterator;
File : Object.Handle;
begin
List := Naming.Resolution (Files);
if Object.Done (List) then
Log.Put_Line ("No files processed");
else
Tape := Tape_Utils.Obtain
(Mode => Tape_Utils.To_Tape,
Format => Format,
Volume => Volume,
To_Operator => "Thank you",
Record_Format => Record_Format,
Record_Length => Record_Length,
Block_Length => Block_Length);
while not Object.Done (List) loop
File := Object.Value (List);
Tape_Utils.Write
(Tape => Tape,
Host_Name => Naming.Unique_Full_Name (File),
Tape_Name => Convert_Name (Naming.Simple_Name (File)),
Record_Format => Record_Format,
Record_Length => Record_Length);
Object.Next (List);
end loop;
Tape_Utils.Release (Tape => Tape);
end if;
end Tape_Write;