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 ┃

⟦2815b0a53⟧ TextFile

    Length: 1218 (0x4c2)
    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 Sauver_Rev1 (Quoi : String :=
                          "!Users.Courtin.Tiny_Talk.Rev1_Working.Units") is

    package Su renames System_Utilities;

    Directory : constant String := "!machine.temporary." & Su.User_Name;
begin
    Archive.Save (Objects => Quoi,
                  Options => "R1000",
                  Device => Directory,
                  Response => "<PROFILE>");

    Ftp.Put (From_Local_File => Directory & ".data",
             To_Remote_File => "/home/aconit/bouteleu/a_sauver/data_rev1",
             Remote_Machine => "aconit",
             Username => "courtin",
             Password => "clement",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Response => Profile.Get);

    Ftp.Put (From_Local_File => Directory & ".index",
             To_Remote_File => "/home/aconit/courtin/a_sauver/index_rev1",
             Remote_Machine => "aconit",
             Username => "courtin",
             Password => "clement",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Response => Profile.Get);
end Sauver_Rev1;