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 ┃

⟦98036d919⟧ TextFile

    Length: 1214 (0x4be)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Archive;
with Ftp;
with Ftp_Defs;
with Profile;
with System_Utilities;

procedure Save (Directory_Name : String :=
                   "!Users.Brenet.Tiny_Talk.rev1_Working.units") is

    package Su renames System_Utilities;

    Directory : constant String := "!machine.temporary." & Su.User_Name;

begin
    Archive.Save (Objects => Directory_Name,
                  Options => "R1000",
                  Device => Directory,
                  Response => "<PROFILE>");

    Ftp.Put (From_Local_File => Directory & ".data",
             To_Remote_File => "/home/aconit/brenet/save_tiny_talk/data",
             Remote_Machine => "aconit",
             Username => "brenet",
             Password => "gilbert",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Response => Profile.Get);

    Ftp.Put (From_Local_File => Directory & ".index",
             To_Remote_File => "/home/aconit/brenet/save_tiny_talk/index",
             Remote_Machine => "aconit",
             Username => "brenet",
             Password => "gilbert",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Response => Profile.Get);
end Save;