source: trunk/Sibyl/RTL/SOCKAPI.PAS

Last change on this file was 8, checked in by RBRi, 19 years ago

+ rest of sibyl stuff
  • Property svn:eol-style set to native
File size: 8.0 KB
RevLine 
[8]1UNIT SockApi;
2
3INTERFACE
4
5CONST
6 SOCK_STREAM =1; /* stream socket */
7 SOCK_DGRAM =2; /* datagram socket */
8 SOCK_RAW =3; /* raw-protocol interface */
9 SOCK_RDM =4; /* reliably-delivered message */
10 SOCK_SEQPACKET =5; /* sequenced packet stream */
11
12/*
13 * Option flags per-socket.
14 */
15 SO_DEBUG =$0001; /* turn on debugging info recording */
16 SO_ACCEPTCONN =$0002; /* socket has had listen() */
17 SO_REUSEADDR =$0004; /* allow local address reuse */
18 SO_KEEPALIVE =$0008; /* keep connections alive */
19 SO_DONTROUTE =$0010; /* just use interface addresses */
20 SO_BROADCAST =$0020; /* permit sending of broadcast msgs */
21 SO_USELOOPBACK =$0040; /* bypass hardware when possible */
22 SO_LINGER =$0080; /* linger on close if data present */
23 SO_OOBINLINE =$0100; /* leave received OOB data in line */
24
25/*
26 * Additional options, not kept in so_options.
27 */
28 SO_SNDBUF =$1001; /* send buffer size */
29 SO_RCVBUF =$1002; /* receive buffer size */
30 SO_SNDLOWAT =$1003; /* send low-water mark */
31 SO_RCVLOWAT =$1004; /* receive low-water mark */
32 SO_SNDTIMEO =$1005; /* send timeout */
33 SO_RCVTIMEO =$1006; /* receive timeout */
34 SO_ERROR =$1007; /* get error status and clear */
35 SO_TYPE =$1008; /* get socket type */
36
37/*
38 * Structure used for manipulating linger option.
39 */
40TYPE
41 linger=RECORD
42 l_onoff:LONGINT; /* option on/off */
43 l_linger:LONGINT; /* linger time */
44 END;
45
46/*
47 * Level number for (get/set)sockopt() to apply to socket itself.
48 */
49CONST
50 SOL_SOCKET =$ffff; /* options for socket level */
51
52/*
53 * Address families.
54 */
55CONST
56 AF_UNSPEC =0; /* unspecified */
57 AF_UNIX =1; /* local to host (pipes, portals) */
58 AF_INET =2; /* internetwork: UDP, TCP, etc. */
59 AF_IMPLINK =3; /* arpanet imp addresses */
60 AF_PUP =4; /* pup protocols: e.g. BSP */
61 AF_CHAOS =5; /* mit CHAOS protocols */
62 AF_NS =6; /* XEROX NS protocols */
63 AF_NBS =7; /* nbs protocols */
64 AF_ECMA =8; /* european computer manufacturers */
65 AF_DATAKIT =9; /* datakit protocols */
66 AF_CCITT =10; /* CCITT protocols, X.25 etc */
67 AF_SNA =11; /* IBM SNA */
68 AF_DECnet =12; /* DECnet */
69 AF_DLI =13; /* Direct data link interface */
70 AF_LAT =14; /* LAT */
71 AF_HYLINK =15; /* NSC Hyperchannel */
72 AF_APPLETALK =16; /* Apple Talk */
73
74 AF_MAX =17;
75
76/*
77 * Structure used by kernel to store most
78 * addresses.
79 */
80TYPE
81 sockaddr=RECORD
82 sa_family:WORD; /* address family */
83 sa_data:CSTRING[13]; /* up to 14 bytes of direct address */
84 END;
85
86/*
87 * Structure used by kernel to pass protocol
88 * information in raw sockets.
89 */
90 sockproto=RECORD
91 sp_family:WORD; /* address family */
92 sp_protocol:WORD; /* protocol */
93 END;
94
95/*
96 * Protocol families, same as address families for now.
97 */
98CONST
99 PF_UNSPEC =AF_UNSPEC;
100 PF_UNIX =AF_UNIX;
101 PF_INET =AF_INET;
102 PF_IMPLINK =AF_IMPLINK;
103 PF_PUP =AF_PUP;
104 PF_CHAOS =AF_CHAOS;
105 PF_NS =AF_NS;
106 PF_NBS =AF_NBS;
107 PF_ECMA =AF_ECMA;
108 PF_DATAKIT =AF_DATAKIT;
109 PF_CCITT =AF_CCITT;
110 PF_SNA =AF_SNA;
111 PF_DECnet =AF_DECnet;
112 PF_DLI =AF_DLI;
113 PF_LAT =AF_LAT;
114 PF_HYLINK =AF_HYLINK;
115 PF_APPLETALK =AF_APPLETALK;
116
117 PF_MAX =AF_MAX;
118
119/*
120 * Maximum queue length specifiable by listen.
121 */
122 SOMAXCONN =5;
123
124/*
125 * Message header for recvmsg and sendmsg calls.
126 */
127TYPE
128 iovec=RECORD
129 iov_base:PChar;
130 iov_len:LONGINT;
131 END;
132
133 uio=RECORD
134 uio_iov:^iovec;
135 uio_iovcnt:LONGINT;
136 uio_offset:LONGINT;
137 uio_segflg:LONGINT;
138 uio_resid:LONGINT;
139 END;
140
141 uio_rw =(UIO_READ, UIO_WRITE );
142
143 msghdr=RECORD
144 msg_name:PChar; /* optional address */
145 msg_namelen:LONGINT; /* size of address */
146 msg_iov:^iovec; /* scatter/gather array */
147 msg_iovlen:LONGINT; /* # elements in msg_iov */
148 msg_accrights:PChar; /* access rights sent/received */
149 msg_accrightslen:LONGINT;
150 END;
151
152CONST
153 FREAD =1;
154 FWRITE =2;
155
156 MSG_OOB =$1; /* process out-of-band data */
157 MSG_PEEK =$2; /* peek at incoming message */
158 MSG_DONTROUTE =$4; /* send without using routing tables */
159
160 MSG_MAXIOVLEN =16;
161
162IMPORTS
163
164FUNCTION accept( p1:LONGINT;VAR sa:sockaddr;var p2:LONGINT):LONGINT;
165 APIENTRY; 'SO32DLL' index 1;
166FUNCTION bind( p1:LONGINT;VAR sa:sockaddr;p2:LONGINT):LONGINT;
167 APIENTRY; 'SO32DLL' index 2;
168FUNCTION connect( p1:LONGINT;VAR sa:sockaddr;p2:LONGINT ):LONGINT;
169 APIENTRY; 'SO32DLL' index 3;
170FUNCTION gethostid:LONGINT;
171 APIENTRY; 'SO32DLL' index 4;
172FUNCTION getpeername(p1:LONGINT;VAR sa:sockaddr;VAR p2:LONGINT):LONGINT;
173 APIENTRY; 'SO32DLL' index 5;
174FUNCTION getsockname(p1:LONGINT;VAR sa:sockaddr;VAR p2:LONGINT):LONGINT;
175 APIENTRY; 'SO32DLL' index 6;
176FUNCTION getsockopt(p1,p2,p3:LONGINT;VAR c:CSTRING;VAR p4:LONGINT):LONGINT;
177 APIENTRY; 'SO32DLL' index 7;
178FUNCTION ioctl(p1,p2:LONGINT;VAR c:CSTRING;p3:LONGINT):LONGINT;
179 APIENTRY; 'SO32DLL' index 8;
180FUNCTION listen(p1,p2:LONGINT):LONGINT;
181 APIENTRY; 'SO32DLL' index 9;
182FUNCTION recvmsg(p1:LONGINT;VAR mh:msghdr;p2:LONGINT):LONGINT;
183 APIENTRY; 'SO32DLL' index 21;
184FUNCTION recv( p1:LONGINT;VAR c:CSTRING;p2,p3:LONGINT ):LONGINT;
185 APIENTRY; 'SO32DLL' index 10;
186FUNCTION recvfrom(p1:LONGINT;VAR c:CSTRING;p2,p3:LONGINT;VAR sa:sockaddr;VAR p4:LONGINT):LONGINT;
187 APIENTRY; 'SO32DLL' index 11;
188FUNCTION select(VAR p1:LONGINT;p2,p3,p4,p5:LONGINT):LONGINT;
189 APIENTRY; 'SO32DLL' index 12;
190FUNCTION send(p1:LONGINT;VAR c:CSTRING;p2,p3:LONGINT):LONGINT;
191 APIENTRY; 'SO32DLL' index 13;
192FUNCTION sendmsg(p1:LONGINT;VAR mh:msghdr;p2:LONGINT):LONGINT;
193 APIENTRY; 'SO32DLL' index 22;
194FUNCTION sendto(p1:LONGINT;VAR c:CSTRING;p2,p3:LONGINT;VAR sa:sockaddr;p4:LONGINT):LONGINT;
195 APIENTRY; 'SO32DLL' index 14;
196FUNCTION setsockopt(p1,p2,p3:LONGINT;VAR c:CSTRING;p4:LONGINT):LONGINT;
197 APIENTRY; 'SO32DLL' index 15;
198FUNCTION sock_init:LONGINT;
199 APIENTRY; 'SO32DLL' index 26;
200FUNCTION sock_errno:LONGINT;
201 APIENTRY; 'SO32DLL' index 20;
202FUNCTION psock_errno(CONST c:CSTRING):LONGINT;
203 APIENTRY; 'SO32DLL' index 30;
204FUNCTION socket(p1,p2,p3:LONGINT):LONGINT;
205 APIENTRY; 'SO32DLL' index 16;
206FUNCTION soclose( p1:LONGINT ):LONGINT;
207 APIENTRY; 'SO32DLL' index 17;
208FUNCTION soabort(p1:LONGINT):LONGINT;
209 APIENTRY; 'SO32DLL' index 19;
210FUNCTION so_cancel(p1:LONGINT):LONGINT;
211 APIENTRY; 'SO32DLL' index 18;
212FUNCTION readv(p1:LONGINT;VAR io:iovec;p2:LONGINT):LONGINT;
213 APIENTRY; 'SO32DLL' index 23;
214FUNCTION writev(p1:LONGINT;VAR io:iovec;p2:LONGINT):LONGINT;
215 APIENTRY; 'SO32DLL' index 24;
216FUNCTION shutdown(p1,p2:LONGINT):LONGINT;
217 APIENTRY; 'SO32DLL' index 25;
218FUNCTION getinetversion(VAR c:CSTRING):LONGINT;
219 APIENTRY; 'SO32DLL' index 31;
220END;
221
222IMPLEMENTATION
223
224BEGIN
225END.
Note: See TracBrowser for help on using the repository browser.