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 - download
Index: ┃ B T ┃

⟦2b9d4c0d6⟧ TextFile

    Length: 1678 (0x68e)
    Types: TextFile
    Names: »B«

Derivation

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦this⟧

TextFile

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;