|
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 - downloadIndex: ┃ B T ┃
Length: 650 (0x28a)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦a7d6dfecb⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦a7d6dfecb⟧
└─⟦this⟧
with Catenate_Files;
with Library;
with Rs6000_Remote_Exec;
with System_Utilities;
with Time_Utilities;
procedure Print (File : String := "<IMAGE>") is
Temp_Name : constant String :=
"!local.tmp." & System_Utilities.User_Name &
Time_Utilities.Image (Date => Time_Utilities.Get_Time,
Date_Style => Time_Utilities.Expanded,
Time_Style => Time_Utilities.Ada,
Contents => Time_Utilities.Time_Only);
begin
Catenate_Files (File, Temp_Name);
Rs6000_Remote_Exec.Spool (File => Temp_Name);
Library.Delete (Temp_Name);
end Print;