|
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 - metrics - download
Length: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Telnet_Characteristics, pragma Module_Name 4 4145, pragma Segmented_Heap Object, pragma Segmented_Heap Pattern_Item, pragma Segmented_Heap Pattern_List_Ptr, pragma Segmented_Heap String_Ptr, seg_00acdc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Simple_Status;
package Telnet_Characteristics is
type Pattern_Item is private;
type Pattern_List is array (Natural range <>) of Pattern_Item;
-- Error or warning patterns type
type Object is private;
-- Type of the telnet characteristics object
Null_Object : constant Object;
-- Exceptions
Target_Is_Registered : exception;
Target_Not_Initialized : exception;
Invalid_Access : exception;
-- Raised if a Get is attempted on an object that was never built
function Build (Pattern_String : String := ""; For_Target : String)
return Pattern_Item;
function Build (Username_Prompt : String := "";
Username_Failure : String := "";
-- Telnet remote username prompt and username
-- failure string
Password_Prompt : String := "";
Password_Failure : String := "";
-- Remote password prompt and password
-- failure string
Command_Prompt : String := "";
-- Remote command prompt
Prompt1 : String := "";
Prompt2 : String := "";
Prompt3 : String := "";
Prompt4 : String := "";
-- Extra prompts . Can be used incase
-- remote compilers have prompts that
-- need to be responded to.
Check_Status_Of_Commands : Boolean := True;
-- This flag determines how we check the
-- status of a remote command. If this flag
-- is true we issue a status command to
-- check status of previous command
Status_Command : String := "";
Status_Code_Offset : Integer := 1;
Status_Code_Length : Integer := 1;
-- The status commnand specifies the
-- remote command to echo status
-- Offset and length determine how
-- to extract the status code from
-- the output of the status comamnd
Dir_Command : String := "";
-- The remote directory command
Initial_Command : String := "";
-- This command is issued immediately after
-- logging in to the remote machine.
Transmit_Before_Login : String := "";
-- Stream of characters to be transmitted
-- after connecting to a remote machine
-- (typically CRs)
Transmit_After_Login : String := "";
-- Stream of characters to be transmitted
-- after connecting to a remote machine
-- (typically CRs)
Error_Pattern_List : Pattern_List;
-- List of patterns that are to be matched
-- against a remote command's output to determine
-- if it has produced errors
Warning_Pattern_List : Pattern_List;
-- List of patterns that are to be matched against
-- a remote command's output to determine if it has
-- produced warnings.
For_Target : String) return Object;
procedure Check (The_Object : Object;
Status : in out Simple_Status.Condition);
procedure Display (The_Object : Object);
-- Prompts
function Get_User_Name_Prompt (The_Object : Object) return String;
function Get_Password_Prompt (The_Object : Object) return String;
function Get_Command_Prompt (The_Object : Object) return String;
function Get_Password_Failure (The_Object : Object) return String;
-- Patterns
function Get_Error_Patterns (The_Object : Object) return Pattern_List;
function Get_Error_Patterns_Count (The_Object : Object) return Integer;
function Get_Warning_Patterns (The_Object : Object) return Pattern_List;
function Get_Warning_Patterns_Count (The_Object : Object) return Integer;
-- Commands
function Get_Status_Command (The_Object : Object) return String;
function Get_Status_Code_Start (The_Object : Object) return Integer;
function Get_Status_Code_Length (The_Object : Object) return Integer;
function Get_Dir_Command (The_Object : Object) return String;
function Initial_Command_Specified (The_Object : Object) return Boolean;
function Get_Initial_Command (The_Object : Object) return String;
function Check_Command_Status (The_Object : Object) return Boolean;
function Get_Transmit_Before_Login (The_Object : Object) return String;
function Get_Transmit_After_Login (The_Object : Object) return String;
function Get_Pattern (Item : Pattern_Item) return String;
pragma Module_Name (4, 4145);
pragma Bias_Key (32);
private
type String_Ptr is access String;
pragma Segmented_Heap (String_Ptr);
type Pattern_Rec (Length : Integer) is
record
Pattern : String (1 .. Length);
end record;
type Pattern_Item is access Pattern_Rec;
pragma Segmented_Heap (Pattern_Item);
Null_Pattern_Item : Pattern_Item := null;
type Pattern_List_Ptr is access Pattern_List;
pragma Segmented_Heap (Pattern_List_Ptr);
Null_Pattern_List : Pattern_List_Ptr := null;
type Object_Rec is
record
Username_Prompt : String_Ptr;
Username_Failure : String_Ptr;
Password_Prompt : String_Ptr;
Password_Failure : String_Ptr;
Command_Prompt : String_Ptr;
Prompt1 : String_Ptr;
Prompt2 : String_Ptr;
Prompt3 : String_Ptr;
Prompt4 : String_Ptr;
Check_Status_Of_Commands : Boolean;
Status_Command : String_Ptr;
Status_Code_Offset : Integer;
Status_Code_Length : Integer;
Dir_Command : String_Ptr;
Initial_Command : String_Ptr;
Transmit_Before_Login : String_Ptr;
Transmit_After_Login : String_Ptr;
Error_Pattern_List : Pattern_List_Ptr;
Warning_Pattern_List : Pattern_List_Ptr;
end record;
type Object is access Object_Rec;
pragma Segmented_Heap (Object);
Null_Object : constant Object := null;
end Telnet_Characteristics;
nblk1=7
nid=0
hdr6=e
[0x00] rec0=1f rec1=00 rec2=01 rec3=01e
[0x01] rec0=16 rec1=00 rec2=02 rec3=04c
[0x02] rec0=16 rec1=00 rec2=03 rec3=00a
[0x03] rec0=18 rec1=00 rec2=04 rec3=024
[0x04] rec0=14 rec1=00 rec2=05 rec3=008
[0x05] rec0=24 rec1=00 rec2=06 rec3=008
[0x06] rec0=18 rec1=00 rec2=07 rec3=000
tail 0x215073e7e81f9487ba64d 0x42a00088462060003