vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

compiles.

Browse source
This commit is contained in:
norayr 2017-04-13 16:41:08 +04:00
parent 4acd41201c
commit 4c64d37338
5 changed files with 79 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

12
netdb.Mod
View file

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