nothing should work. just checking in.

This commit is contained in:
norayr 2016-02-23 17:57:58 +04:00
commit 4acd41201c
5 changed files with 242 additions and 0 deletions

28
netdb.Mod Normal file
View file

@ -0,0 +1,28 @@
MODULE netdb;
IMPORT SYSTEM;
TYPE
Int32* = INTEGER;
Int64* = LONGINT;
TYPE
PaddrInfo = POINTER [1] TO addrInfo;
addrInfo* = RECORD
aiFlags*: Int32;
aiFamily*:Int32;
aiSockType*: Int32;
aiProtocol*: Int32;
aiAddrLen*: Int32;
aiAddr*, aiCanonName*, aiNext*: LONGINT; (* pointers *)
END;
PROCEDURE getAddrInfo*(VAR node, service: ARRAY OF CHAR; VAR hints: addrInfo; res: LONGINT): Int32
"getaddrinfo (node, service, hints, res)";
PROCEDURE freeAddrInfo*(VAR res: addrInfo)
"freeaddrinfo(res)";
END netdb.