|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Telnet, pragma Module_Name 4 3544, pragma Subsystem Ftp_Interface, seg_00638b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with System_Utilities;
with Telnet_Profile;
package Telnet is
subtype User_Name is String;
-- As used here, a User_Name is the name of a local user
-- and session, joined by a '.', for example "CAROL.S_1".
subtype Machine_Name is String;
-- The name of a remote machine, to be used by Transport_Name_Map.
subtype Session_Number is Positive;
-- A single user may have several Telnet sessions with one remote
-- machine: they are distinguished by different Session_Numbers.
procedure Connect (Remote_Machine : Machine_Name :=
Telnet_Profile.Remote_Machine;
Session : Session_Number := 1;
Escape : String := Telnet_Profile.Escape;
Escape_On_Break : Boolean :=
Telnet_Profile.Escape_On_Break;
Terminal : System_Utilities.Port :=
System_Utilities.Terminal);
-- Start or resume a session with the specified Remote_Machine
-- and Session number. If such a session already exists, it is
-- resumed, if not, a new session is started.
-- If Escape is non-null, and the Escape string is received
-- from the terminal, then the session will be suspended
-- and the terminal will be reconnected to the Environment.
-- If Escape_On_Break is true, then a BREAK signal from the
-- terminal will likewise escape from the session.
-- Terminal specifies the local terminal from which you want
-- to interact with the Remote_Machine. The default is the
-- same terminal you're currently logged in on.
function My_User_Name return User_Name;
procedure Disconnect (Remote_Machine : Machine_Name :=
Telnet_Profile.Remote_Machine;
Session : Session_Number := 1;
User : User_Name := Telnet.My_User_Name);
-- Disconnect the Telnet session with the specified Remote_Machine
-- and Session number which was started by the specified User.
-- If no such session exists, do nothing.
procedure Show_Sessions (User : User_Name := Telnet.My_User_Name);
-- Show a table of existing sessions for the specified User.
-- If User => "?", show existing sessions for all users.
procedure Send (Data : String := Telnet_Profile.Escape;
Remote_Machine : Machine_Name :=
Telnet_Profile.Remote_Machine;
Session : Session_Number := 1);
-- If a session to the specified Remote_Machine and Session
-- exists, send the specified Data on it. To the remote
-- machine, it looks as though the data came from the terminal.
-- If no such session exists, do nothing.
procedure Send_Break (Remote_Machine : Machine_Name :=
Telnet_Profile.Remote_Machine;
Session : Session_Number := 1);
-- If a session to the specified Remote_Machine and Session
-- exists, send a break signal on it. To the remote machine,
-- it looks as though the break signal came from the terminal.
-- If no such session exists, do nothing.
pragma Subsystem (Ftp_Interface, Private_Part => Closed);
pragma Module_Name (4, 3544);
end Telnet;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=1a rec1=00 rec2=01 rec3=06a
[0x01] rec0=17 rec1=00 rec2=02 rec3=00a
[0x02] rec0=13 rec1=00 rec2=03 rec3=02e
[0x03] rec0=09 rec1=00 rec2=04 rec3=000
tail 0x21701a76881bf806fcfb9 0x42a00088462060003