|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1763 (0x6e3)
Types: TextFile
Names: »B«
└─⟦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⟧
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;