DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦d45080f0a⟧ TextFile

    Length: 1767 (0x6e7)
    Types: TextFile
    Names: »B«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;