mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
28 lines
554 B
Modula-2
28 lines
554 B
Modula-2
MODULE netdb;
|
|
|
|
IMPORT SYSTEM;
|
|
|
|
TYPE
|
|
Int32* = LONGINT;
|
|
Int64* = HUGEINT;
|
|
|
|
TYPE
|
|
PaddrInfo* = POINTER [1] TO addrInfo;
|
|
|
|
addrInfo* = RECORD
|
|
aiFlags*: Int32;
|
|
aiFamily*:Int32;
|
|
aiSockType*: Int32;
|
|
aiProtocol*: Int32;
|
|
aiAddrLen*: Int32;
|
|
aiAddr*, aiCanonName*, aiNext*: SYSTEM.ADDRESS; (* pointers *)
|
|
END;
|
|
|
|
|
|
PROCEDURE -getAddrInfo*(VAR node, service: ARRAY OF CHAR; VAR hints: addrInfo; res: PaddrInfo): Int32
|
|
"getaddrinfo (node, service, hints, res)";
|
|
|
|
PROCEDURE -freeAddrInfo*(VAR res: addrInfo)
|
|
"freeaddrinfo(res)";
|
|
|
|
END netdb.
|