|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_04aba2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
WITH Transport;
WITH Date_Defs;
WITH Interchange;
WITH Net_Info;
WITH Rpc;
WITH Rpc_Client;
WITH Rpc_Server;
WITH Transport_Date;
WITH Transport_Defs;
WITH Transport_Interchange;
WITH Transport_Stream;
WITH Text_Io;
PACKAGE BODY Date_Broker IS
Remote_Host : CONSTANT Transport_Defs.Host_Id := Net_Info.Sparc_Address;
Remote_Socket : CONSTANT Transport_Defs.Socket_Id := Net_Info.Sparc_Socket;
PROCEDURE Start_Request IS
NEW Rpc_Client.Start_Request_Generic
(Default_Network => Date_Defs.Network,
Default_Host => Remote_Host,
Default_Socket => Remote_Socket,
Default_Program => Date_Defs.Program,
Default_Version => Date_Defs.Version);
PROCEDURE Process_Call (Stream : Transport_Stream.Stream_Id;
Id : Rpc.Transaction_Id;
Version : Rpc.Version_Number;
Proc : Rpc.Procedure_Number) IS
BEGIN
CASE Proc IS
WHEN Date_Defs.Proc_Number.Date =>
DECLARE
Answer : String (1 .. 28);
Date : CONSTANT String := "date";
Stream : Transport_Stream.Stream_Id;
BEGIN
Text_Io.Put_Line ("!!!!!!!!!!!!!");
Start_Request (Stream => Stream,
Proc => Date_Defs.Proc_Number.Date);
Text_Io.Put_Line ("@@@@@@@@@@@@@@");
Transport_Date.Put (Stream, "date");
Text_Io.Put_Line ("##############");
Rpc_Client.End_Request (Stream);
Text_Io.Put_Line ("$$$$$$$$$$$$$$");
Transport_Date.Get (Stream, Answer);
Text_Io.Put_Line (Answer);
Rpc_Client.End_Response (Stream);
Text_Io.Put_Line ("%%%%%%%%%%%%%%%");
-- Rpc_Server.Begin_Response (Stream, Id);
-- Text_Io.Put_Line ("##############");
-- Transport_Date.Put (Stream, Answer);
-- Text_Io.Put_Line ("$$$$$$$$$$$$$$");
END;
WHEN OTHERS =>
RAISE Rpc.No_Such_Procedure;
END CASE;
END Process_Call;
PROCEDURE Serve_Gets IS NEW Rpc_Server.Serve
(Program => Date_Defs.Program,
Supported => (0, Rpc.Version_Number'Last),
Process_Call => Process_Call);
PROCEDURE Serve (Connection : Transport.Connection_Id) IS
BEGIN
Serve_Gets (Connection);
END Serve;
-- FUNCTION Date RETURN String IS
-- Stream : Transport_Stream.Stream_Id;
-- Answer : String (1 .. 28);
-- Ans : String (1 .. 4);
-- BEGIN
-- Text_Io.Put_Line ("11");
-- Transport_Date.Get (Stream, Ans);
-- Text_Io.Put_Line ("22");
-- IF Ans = "date" THEN
-- Text_Io.Put_Line ("33");
-- Start_Request
-- (Stream => Stream,
-- Proc => Date_Defs.Proc_Number.Date);
-- Text_Io.Put_Line ("44");
-- Transport_Date.Put (Stream, "date");
-- Text_Io.Put_Line ("55");
-- Rpc_Client.End_Request (Stream);
-- Text_Io.Put_Line ("66");
-- Transport_Date.Get (Stream, Answer);
-- Text_Io.Put_Line ("77");
-- Rpc_Client.End_Response (Stream);
-- Text_Io.Put_Line ("88");
-- Transport_Date.Put (Stream, Answer);
-- Text_Io.Put_Line ("99");
-- RETURN Answer;
-- END IF;
-- END Date;
END Date_Broker;
nblk1=6
nid=2
hdr6=8
[0x00] rec0=22 rec1=00 rec2=01 rec3=04e
[0x01] rec0=18 rec1=00 rec2=05 rec3=00a
[0x02] rec0=1e rec1=00 rec2=06 rec3=026
[0x03] rec0=16 rec1=00 rec2=04 rec3=000
[0x04] rec0=18 rec1=00 rec2=04 rec3=000
[0x05] rec0=07 rec1=00 rec2=06 rec3=000
tail 0x21547e3ee86753e9f4686 0x489e0066482863c01
Free Block Chain:
0x2: 0000 00 03 02 cb 80 1b 20 20 20 54 65 78 74 5f 49 6f ┆ Text_Io┆
0x3: 0000 00 00 00 0f 80 0c 20 4e 75 6d 62 65 72 29 20 52 ┆ Number) R┆