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

⟦81d94b8c1⟧ TextFile

    Length: 2191 (0x88f)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Os2000_Put;

procedure Move_Target_Files
             (Target_Directory : String := "/h0/tcp/server";
              Target_Machine : String := Ftp_Profile.Remote_Machine) is

    -- The calls to OS2000_Put allow the Remote_Machine parameter to
    -- default to Ftp_Profile.Remote_Machine.  Hence, this value
    -- in the switch file associated with the directory must be
    -- set correctly.
    --

begin
    -- Move the C source for the tcp/ip interface.
    Os2000_Put (From_Local_File => "Tcplib_C",
                To_Remote_File => "Tcplib.C",
                Remote_Machine => Target_Machine,
                Remote_Directory => Target_Directory,
                Transliterate => True);

    -- Move the C source for the tcp/ip error handler.
    Os2000_Put (From_Local_File => "Tcperr_C",
                To_Remote_File => "Tcperr.C",
                Remote_Machine => Target_Machine,
                Remote_Directory => Target_Directory,
                Transliterate => True);

    -- Move the C source for the server.
    Os2000_Put (From_Local_File => "Server_C",
                To_Remote_File => "Server.C",
                Remote_Machine => Target_Machine,
                Remote_Directory => Target_Directory,
                Transliterate => True);

    -- Move the make file to compile the server.
    Os2000_Put (From_Local_File => "Makefile",
                To_Remote_File => "Makefile",
                Remote_Machine => Target_Machine,
                Remote_Directory => Target_Directory,
                Transliterate => True);

    -- Move the shell script to start the server.
    Os2000_Put (From_Local_File => "Start_Server",
                To_Remote_File => "Start_Server",
                Remote_Machine => Target_Machine,
                Remote_Directory => Target_Directory,
                Transliterate => True);

    -- Move the executable for the Ax25_Server
    Os2000_Put (From_Local_File => "Ax25_Server_Os2000",
                To_Remote_File => "Ax25_Server",
                Remote_Machine => Target_Machine,
                Remote_Directory => Target_Directory,
                Transliterate => False);

    -- done
end Move_Target_Files;