DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦58fb9303a⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_04aba2

Derivation

└─⟦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┆