|
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: 1678 (0x68e)
Types: TextFile
Names: »B«
└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
└─⟦77aa8350c⟧ »DATA«
└─⟦f794ecd1d⟧
└─⟦this⟧
with Log;
with Profile;
with Simple_Status;
with Os2000_Transfer;
with Os2000_Transfer_Utilities;
with Directory_Tools;
procedure Os2000_Get (From_Remote_File : String := "";
To_Local_File : String := "";
Remote_Machine : String := "<DEFAULT>";
Remote_Directory : String := "<DEFAULT>";
Transliterate : Boolean := True;
Response : String := "<PROFILE>") is
package Util renames Os2000_Transfer_Utilities;
package Naming renames Directory_Tools.Naming;
Rspns : Profile.Response_Profile;
Status : Simple_Status.Condition;
begin
Profile.Convert (Response, Rspns, Status);
if not Simple_Status.Error (Status) then
Log.Put_Line
("[Os2000_Get (""" & To_Local_File & """, """ & From_Remote_File &
""", """ & Remote_Machine & """, """ & Remote_Directory &
""", " & Boolean'Image (Transliterate) & ", " &
Profile.Error_Reaction'Image (Profile.Reaction (Rspns)) & ");]",
Kind => Profile.Auxiliary_Msg,
Response => Rspns);
Os2000_Transfer (Local_File => To_Local_File,
Remote_File => Util.Remote_Path
(From_Remote_File,
Remote_Directory, Rspns),
Transliterate => Transliterate,
Transfer_Type => Util.Get_File,
Remote_Machine => Remote_Machine,
Response => Rspns);
else
Log.Put_Condition (Status);
end if;
end Os2000_Get;
pragma Main;