paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 11:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added some constants for getsocketoptions under a linux define.

Browse Source 
Allows server example to work ok.
This commit is contained in:
marco 2000-06-02 17:30:43 +00:00
parent 04bcb2e1c2
commit 9a4a837f04
1 changed files with 45 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
rtl/inc/socketsh.inc
View File

@ -28,6 +28,46 @@ Const
PF_UNIX = AF_UNIX; PF_UNIX = AF_UNIX;
PF_INET = AF_INET; PF_INET = AF_INET;
{$ifdef linux}
{ For setsockoptions(2) }
SOL_SOCKET = 1;
SO_DEBUG = 1;
SO_REUSEADDR= 2;
SO_TYPE = 3;
SO_ERROR = 4;
SO_DONTROUTE= 5;
SO_BROADCAST= 6;
SO_SNDBUF = 7;
SO_RCVBUF = 8;
SO_KEEPALIVE= 9;
SO_OOBINLINE= 10;
SO_NO_CHECK = 11;
SO_PRIORITY = 12;
SO_LINGER = 13;
SO_BSDCOMPAT= 14;
{ To add : SO_REUSEPORT 15 }
SO_PASSCRED= 16;
SO_PEERCRED= 17;
SO_RCVLOWAT= 18;
SO_SNDLOWAT= 19;
SO_RCVTIMEO= 20;
SO_SNDTIMEO= 21;
{ Security levels - as per NRL IPv6 - don't actually do anything }
SO_SECURITY_AUTHENTICATION = 22;
SO_SECURITY_ENCRYPTION_TRANSPORT= 23;
SO_SECURITY_ENCRYPTION_NETWORK = 24;
SO_BINDTODEVICE= 25;
{ Socket filtering }
SO_ATTACH_FILTER= 26;
SO_DETACH_FILTER= 27;
SO_PEERNAME = 28;
{$endif}
const const
{ Two constants to determine whether part of soket is for in or output } { Two constants to determine whether part of soket is for in or output }
S_IN = 0; S_IN = 0;
@ -80,7 +120,11 @@ Function Connect(Sock:longint;const addr:TInetSockAddr;var SockIn,SockOut:file):
{ {
$Log$ $Log$
Revision 1.5 2000-02-09 16:59:31 peter Revision 1.6 2000-06-02 17:30:43 marco
* added some constants for getsocketoptions under a linux define.
Allows server example to work ok.
Revision 1.5 2000/02/09 16:59:31 peter
* truncated log * truncated log
Revision 1.4 2000/01/07 16:41:36 daniel Revision 1.4 2000/01/07 16:41:36 daniel