|
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: 1694 (0x69e)
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⟧
SEPARATE (Socket_System_Interface)
FUNCTION Bind (S : IN Unix_Base_Types.Int;
Addr : IN Sockaddr_In_Ptr;
Addrlen : IN Unix_Base_Types.Int) RETURN Unix_Base_Types.Int IS
Return_Value : Unix_Base_Types.Int;
BEGIN
Return_Value :=
Resolve_Overloading.Bind (S => S, Addr => Addr, Addrlen => Addrlen);
DECLARE
Allow_Reuse : CONSTANT Unix_Base_Types.Int_Ptr :=
NEW Unix_Base_Types.Int'(1);
BEGIN
IF Return_Value /= System_Error THEN
Return_Value :=
Setsockopt (S => S,
Level => Sol_Socket,
Optname => So_Linger,
Optval => Linger_Struct_To_Char_Ptr (No_Linger),
Optlen => No_Linger.ALL'Size / System.Storage_Unit);
END IF;
IF Return_Value /= System_Error THEN
Return_Value :=
Setsockopt (S => S,
Level => Sol_Socket,
Optname => So_Reuseaddr,
Optval => Int_Ptr_To_Char_Ptr (Allow_Reuse),
Optlen => Allow_Reuse.ALL'Size / System.Storage_Unit);
END IF;
-- IF Return_Value /= System_Error THEN
-- Return_Value :=
-- Resolve_Overloading.Getsockopt (S => S,
-- Level => Sol_Socket,
-- Optname => So_@,
-- Optval => [CHAR_PTR-expression],
-- Optlen => [INT_PTR-expression]);
-- END IF;
--
END;
RETURN Return_Value;
END Bind;