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 - download

⟦49f675d72⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_00b31d

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

PROCEDURE Transport_Server_Proc (Service      : IN OUT Service_Type;
                                 Connection   : IN OUT Transport.Connection_Id;
                                 Network      : Transport_Defs.Network_Name;
                                 Local_Socket : Transport_Defs.Socket_Id) IS

   Status      : Transport_Defs.Status_Code;
   Fatal_Error : EXCEPTION;

   Min_Backoff : CONSTANT Duration := 0.1;
   Max_Backoff : CONSTANT Duration := 5 * 60.0;
   Backoff     : Duration          := Min_Backoff;

   PROCEDURE Do_Backoff (Backoff : IN OUT Duration) IS
   BEGIN
      DELAY Backoff;
      Backoff := 2 * Backoff;
      IF Backoff > Max_Backoff THEN
         Backoff := Max_Backoff;
      END IF;
   END Do_Backoff;

   FUNCTION Status_Ok RETURN Boolean IS
   BEGIN
      CASE Status IS
         WHEN Transport_Defs.Ok =>
            RETURN True;
         WHEN Transport_Defs.Too_Many_Clients |
              Transport_Defs.No_Hardware | Transport_Defs.No_Such_Network |
              Transport_Defs.Socket_In_Use | Transport_Defs.Access_Denied =>
            RAISE Fatal_Error;
         WHEN OTHERS =>
            Do_Backoff (Backoff);
            RETURN False;
      END CASE;
   END Status_Ok;

BEGIN
   LOOP
      Transport.Open (Connection, Status, Network, Local_Socket);
      IF Status_Ok THEN
         Transport.Connect (Connection, Status);
         IF Status_Ok THEN
            Serve (Service, Connection);
            Backoff := Min_Backoff;
         END IF;
         Transport.Disconnect (Connection);
      END IF;
      Transport.Close (Connection);
   END LOOP;
EXCEPTION
   WHEN Fatal_Error =>
      Transport.Close (Connection);
   WHEN OTHERS =>
      Transport.Close (Connection);
      RAISE;
END Transport_Server_Proc;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1d rec1=00 rec2=01 rec3=056
        [0x01] rec0=1d rec1=00 rec2=02 rec3=000
    tail 0x215076d1c81fa63ed8cd3 0x489e0066482863c01