|
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 - downloadIndex: ┃ B T ┃
Length: 1349 (0x545)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Ftp;
with Ftp_Defs;
with Ftp_Profile;
with Io;
with Profile;
with Remote_Operations;
with System_Utilities;
with Time_Utilities;
package body Mac_Remote_Exec is
package Ro renames Remote_Operations;
package Su renames System_Utilities;
package Tu renames Time_Utilities;
Printer_User : constant String := "r1000";
Printer_User_Password : constant String := "Rational";
Macintosh : constant String := "192.5.60.145";
The_Context : Ro.Context;
The_Status : Ro.Error_Status;
procedure Initialize is
begin
Ro.Acquire (A_Context => The_Context,
Status => The_Status,
Machine => Macintosh,
User => "Phil",
Password => "",
Session => "",
Instance => "");
end Initialize;
procedure Execute (Command : String := "") is
begin
Ro.Execute (Command => Command,
In_Context => The_Context,
Status => The_Status,
Timeout => Remote_Operations.Wait_Forever);
end Execute;
procedure Finalize is
begin
Ro.Release (A_Context => The_Context,
Status => The_Status,
Idle_Timeout => Remote_Operations.Default);
end Finalize;
end Mac_Remote_Exec;