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: ┃ T V ┃
Length: 587 (0x24b) Types: TextFile Names: »V«
└─⟦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⟧
WITH Complex_Defs; WITH Rpc; WITH Rpc_Server; WITH Transport; WITH Transport_Defs; WITH Transport_Server; WITH Transport_Stream; PACKAGE Complex_Server IS PROCEDURE Serve (Connection : Transport.Connection_Id); PACKAGE Server IS NEW Transport_Server (Serve); Std : CONSTANT Server.Pool_Id := Server.Create (Network => Complex_Defs.Network, Local_Socket => Complex_Defs.Sparc_Socket, Max_Servers => Natural'Last); PROCEDURE Finalize (Abort_Servers : Boolean := False) RENAMES Server.Finalize; END Complex_Server;