mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 14:32:24 +00:00
126 lines
4.8 KiB
Modula-2
126 lines
4.8 KiB
Modula-2
MODULE sockets;
|
|
|
|
IMPORT SYSTEM, oocC;
|
|
|
|
CONST
|
|
SockStream* = 1;
|
|
SockDgram* = 2;
|
|
SockRaw* = 3;
|
|
SockRdm* = 4;
|
|
SockSeqpacket* = 5;
|
|
SockDccp* = 6;
|
|
SockPacket* = 10;
|
|
|
|
AfUnscec* = 0; (* Unspecified. *)
|
|
AfLocal* = 1; (* Local to host (pipes and file-domain). *)
|
|
AfUnix* = 1; (* POSIX name for PF_LOCAL. *)
|
|
AfFile* = 1; (* Another non-standard name for PF_LOCAL. *)
|
|
AfInet* = 2; (* IP protocol family. *)
|
|
AfAx25* = 3; (* Amateur Radio AX.25. *)
|
|
AfIpx* = 4; (* Novell Internet Protocol. *)
|
|
AfAppletalk* = 5; (* Appletalk DDP. *)
|
|
AfNetrom* = 6; (* Amateur radio NetROM. *)
|
|
AfBridge* = 7; (* Multiprotocol bridge. *)
|
|
AfAtmpvc* = 8; (* ATM PVCs. *)
|
|
AfX25* = 9; (* Reserved for X.25 project. *)
|
|
AfInet6* = 10; (* IP version 6. *)
|
|
AfRose* = 11; (* Amateur Radio X.25 PLP. *)
|
|
AfDecnet* = 12; (* Reserved for DECnet project. *)
|
|
AfNetbeui* = 13; (* Reserved for 802.2LLC project. *)
|
|
AfSecurity* = 14; (* Security callback pseudo AF. *)
|
|
AfKey* = 15; (* PF_KEY key management API. *)
|
|
AfNetlink* = 16;
|
|
AfRoute* = 16; (* Alias to emulate 4.4BSD. *)
|
|
AfPacket = 17; (* Packet family. *)
|
|
AfAsh = 18; (* Ash. *)
|
|
AfEconet* = 19; (* Acorn Econet. *)
|
|
AfAtmsvc* = 20; (* ATM SVCs. *)
|
|
AfRds* = 21; (* RDS sockets. *)
|
|
AfSna = 22; (* Linux SNA Project *)
|
|
AfIrda* = 23; (* IRDA sockets. *)
|
|
AfPppox = 24; (* PPPoX sockets. *)
|
|
AfWanpipe* = 25; (* Wanpipe API sockets. *)
|
|
AfLlc* = 26; (* Linux LLC. *)
|
|
AfCan* = 29; (* Controller Area Network. *)
|
|
AfTipc* = 30; (* TIPC sockets. *)
|
|
AfBluetooth* = 31; (* Bluetooth sockets. *)
|
|
AfIucv* = 32; (* IUCV sockets. *)
|
|
AfRxrpc* = 33; (* RxRPC sockets. *)
|
|
AfIsdn* = 34; (* mISDN sockets. *)
|
|
AfPhonet* = 35; (* Phonet sockets. *)
|
|
AfIeee802154* = 36; (* IEEE 802.15.4 sockets. *)
|
|
AfCaif* = 37; (* CAIF sockets. *)
|
|
AfAlg* = 38; (* Algorithm sockets. *)
|
|
AfNfc* = 39; (* NFC sockets. *)
|
|
AfVsock* = 40; (* vSockets. *)
|
|
AfMax* = 41; (* For now.. *)
|
|
|
|
InAddrAny* = 0;
|
|
|
|
TYPE
|
|
(* /usr/include/netinet/in.h *)
|
|
InAddr* = RECORD
|
|
SAddr*: oocC.int;
|
|
END;
|
|
|
|
SockAddrIn* = RECORD
|
|
SinFamily*: oocC.shortint;
|
|
SinPort*: oocC.shortint;
|
|
SinAddr*: InAddr;
|
|
SinZero*: ARRAY 8 OF CHAR;
|
|
END;
|
|
(* /usr/include/sys/socket.h *)
|
|
|
|
SockAddr* = RECORD
|
|
SaFamily*: oocC.shortint;
|
|
SaData*: ARRAY 14 OF CHAR
|
|
END;
|
|
|
|
PROCEDURE -includesocket "#include <sys/socket.h>";
|
|
|
|
PROCEDURE -SetCShort(i: INTEGER; VAR si: oocC.shortint)
|
|
"*(short*)si = i";
|
|
|
|
PROCEDURE -SetCShortSwapped(i: INTEGER; VAR si: oocC.shortint)
|
|
"*(short*)si = ((i >> 8) & 0x00ff) | ((i << 8) & 0xff00)";
|
|
|
|
PROCEDURE SetSockAddrIn*(family, port, inaddr: INTEGER; VAR sai: SockAddrIn);
|
|
VAR i: INTEGER;
|
|
BEGIN
|
|
SetCShort(family, sai.SinFamily);
|
|
SetCShortSwapped(port, sai.SinPort);
|
|
sai.SinAddr.SAddr := inaddr;
|
|
i := 0; WHILE i < 8 DO sai.SinZero[i] := 0X; INC(i) END
|
|
END SetSockAddrIn;
|
|
|
|
PROCEDURE -socket(domain, type, protocol: LONGINT): INTEGER
|
|
"(INTEGER)socket((int)domain, (int)type, (int)protocol)";
|
|
|
|
PROCEDURE Socket*(domain, type, protocol: LONGINT): INTEGER;
|
|
BEGIN RETURN socket(domain, type, protocol)
|
|
END Socket;
|
|
|
|
PROCEDURE -bind(sockfd: LONGINT; VAR addr: SockAddr; addrlen: LONGINT): INTEGER
|
|
"(INTEGER)bind((int)sockfd, (const struct sockaddr*)addr, (int)addrlen)";
|
|
|
|
PROCEDURE Bind*(sockfd: LONGINT; VAR addr: SockAddr; addrlen: LONGINT): INTEGER;
|
|
BEGIN RETURN bind(sockfd, addr, addrlen)
|
|
END Bind;
|
|
|
|
PROCEDURE -listen(sockfd, backlog: LONGINT): INTEGER
|
|
"(INTEGER)listen((int)sockfd, (int)backlog)";
|
|
|
|
PROCEDURE Listen*(sockfd, backlog: LONGINT): INTEGER;
|
|
BEGIN RETURN listen(sockfd, backlog)
|
|
END Listen;
|
|
|
|
PROCEDURE -accept(sockfd: LONGINT; VAR addr: SockAddr; VAR addrlen: LONGINT; VAR result: INTEGER)
|
|
"int _o_al = (int)addrlen; *result = (INTEGER)accept((int)sockfd, (struct sockaddr*)addr, &_o_al); *addrlen = _o_al";
|
|
|
|
PROCEDURE Accept*(sockfd: LONGINT; VAR addr: SockAddr; VAR addrlen: LONGINT): INTEGER;
|
|
VAR result: INTEGER;
|
|
BEGIN accept(sockfd, addr, addrlen, result); RETURN result
|
|
END Accept;
|
|
|
|
|
|
END sockets.
|