|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Mac_Remote_Exec, seg_02b2f4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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;
nblk1=5
nid=4
hdr6=4
[0x00] rec0=25 rec1=00 rec2=01 rec3=046
[0x01] rec0=10 rec1=00 rec2=05 rec3=000
[0x02] rec0=17 rec1=00 rec2=04 rec3=07a
[0x03] rec0=16 rec1=00 rec2=03 rec3=000
[0x04] rec0=c0 rec1=00 rec2=00 rec3=100
tail 0x2172437a083e97e4f8828 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 03 01 87 80 2c 20 20 52 6f 2e 44 65 6c 65 74 ┆ , Ro.Delet┆
0x3: 0000 00 02 03 fc 80 23 20 20 20 20 20 20 20 20 20 20 ┆ # ┆
0x2: 0000 00 00 03 e0 80 23 20 20 20 20 20 20 20 20 20 20 ┆ # ┆