paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-01 07:33:40 +02:00
Code Issues Packages Projects Releases Wiki Activity
ad0ac6ef1f
fpc/packages/base/libc/netdbh.inc
peter e417e34496 * truncate log
2005-02-14 17:13:06 +00:00

200 lines
9.3 KiB
PHP
Raw Blame History

const
_PATH_HEQUIV = '/etc/hosts.equiv';
_PATH_HOSTS = '/etc/hosts';
_PATH_NETWORKS = '/etc/networks';
_PATH_NSSWITCH_CONF = '/etc/nsswitch.conf';
_PATH_PROTOCOLS = '/etc/protocols';
_PATH_SERVICES = '/etc/services';
var
h_errno : longint;cvar;external;
function __h_errno_location:Plongint;cdecl;external clib name '__h_errno_location';
const
NETDB_INTERNAL = -(1);
NETDB_SUCCESS = 0;
HOST_NOT_FOUND = 1;
TRY_AGAIN = 2;
NO_RECOVERY = 3;
NO_DATA = 4;
NO_ADDRESS = NO_DATA;
SCOPE_DELIMITER = '%';
procedure herror(__str:Pchar);cdecl;external clib name 'herror';
function hstrerror(__err_num:longint):Pchar;cdecl;external clib name 'hstrerror';
type
Phostent = ^hostent;
hostent = record
h_name: PChar;
h_aliases: PPChar;
h_addrtype: Integer;
h_length: socklen_t;
case Byte of
0: (h_addr_list: PPChar);
1: (h_addr: PPChar);
end;
PPhostent = ^Phostent;
procedure sethostent(__stay_open:longint);cdecl;external clib name 'sethostent';
procedure endhostent;cdecl;external clib name 'endhostent';
function gethostent:Phostent;cdecl;external clib name 'gethostent';
function gethostbyaddr(__addr:pointer; __len:__socklen_t; __type:longint):Phostent;cdecl;external clib name 'gethostbyaddr';
function gethostbyname(__name:Pchar):Phostent;cdecl;external clib name 'gethostbyname';
function gethostbyname2(__name:Pchar; __af:longint):Phostent;cdecl;external clib name 'gethostbyname2';
function gethostent_r(__result_buf:Phostent; __buf:Pchar; __buflen:size_t; __result:PPhostent; __h_errnop:Plongint):longint;cdecl;external clib name 'gethostent_r';
function gethostbyaddr_r(__addr:pointer; __len:__socklen_t; __type:longint; __result_buf:Phostent; __buf:Pchar;
__buflen:size_t; __result:PPhostent; __h_errnop:Plongint):longint;cdecl;external clib name 'gethostbyaddr_r';
function gethostbyname_r(__name:Pchar; __result_buf:Phostent; __buf:Pchar; __buflen:size_t; __result:PPhostent;
__h_errnop:Plongint):longint;cdecl;external clib name 'gethostbyname_r';
function gethostbyname2_r(__name:Pchar; __af:longint; __result_buf:Phostent; __buf:Pchar; __buflen:size_t;
__result:PPhostent; __h_errnop:Plongint):longint;cdecl;external clib name 'gethostbyname2_r';
procedure setnetent(__stay_open:longint);cdecl;external clib name 'setnetent';
procedure endnetent;cdecl;external clib name 'endnetent';
function getnetent:Pnetent;cdecl;external clib name 'getnetent';
function getnetbyaddr(__net:uint32_t; __type:longint):Pnetent;cdecl;external clib name 'getnetbyaddr';
function getnetbyname(__name:Pchar):Pnetent;cdecl;external clib name 'getnetbyname';
function getnetent_r(__result_buf:Pnetent; __buf:Pchar; __buflen:size_t; __result:PPnetent; __h_errnop:Plongint):longint;cdecl;external clib name 'getnetent_r';
function getnetbyaddr_r(__net:uint32_t; __type:longint; __result_buf:Pnetent; __buf:Pchar; __buflen:size_t;
__result:PPnetent; __h_errnop:Plongint):longint;cdecl;external clib name 'getnetbyaddr_r';
function getnetbyname_r(__name:Pchar; __result_buf:Pnetent; __buf:Pchar; __buflen:size_t; __result:PPnetent;
__h_errnop:Plongint):longint;cdecl;external clib name 'getnetbyname_r';
type
Pservent = ^servent;
servent = record
s_name : Pchar;
s_aliases : ^Pchar;
s_port : longint;
s_proto : Pchar;
end;
PPservent = ^Pservent;
procedure setservent(__stay_open:longint);cdecl;external clib name 'setservent';
procedure endservent;cdecl;external clib name 'endservent';
function getservent:Pservent;cdecl;external clib name 'getservent';
function getservbyname(__name:Pchar; __proto:Pchar):Pservent;cdecl;external clib name 'getservbyname';
function getservbyport(__port:longint; __proto:Pchar):Pservent;cdecl;external clib name 'getservbyport';
function getservent_r(__result_buf:Pservent; __buf:Pchar; __buflen:size_t; __result:PPservent):longint;cdecl;external clib name 'getservent_r';
function getservbyname_r(__name:Pchar; __proto:Pchar; __result_buf:Pservent; __buf:Pchar; __buflen:size_t;
__result:PPservent):longint;cdecl;external clib name 'getservbyname_r';
function getservbyport_r(__port:longint; __proto:Pchar; __result_buf:Pservent; __buf:Pchar; __buflen:size_t;
__result:PPservent):longint;cdecl;external clib name 'getservbyport_r';
type
Pprotoent = ^protoent;
protoent = record
p_name : Pchar;
p_aliases : ^Pchar;
p_proto : longint;
end;
PPprotoent = ^Pprotoent;
procedure setprotoent(__stay_open:longint);cdecl;external clib name 'setprotoent';
procedure endprotoent;cdecl;external clib name 'endprotoent';
function getprotoent:Pprotoent;cdecl;external clib name 'getprotoent';
function getprotobyname(__name:Pchar):Pprotoent;cdecl;external clib name 'getprotobyname';
function getprotobynumber(__proto:longint):Pprotoent;cdecl;external clib name 'getprotobynumber';
function getprotoent_r(__result_buf:Pprotoent; __buf:Pchar; __buflen:size_t; __result:PPprotoent):longint;cdecl;external clib name 'getprotoent_r';
function getprotobyname_r(__name:Pchar; __result_buf:Pprotoent; __buf:Pchar; __buflen:size_t; __result:PPprotoent):longint;cdecl;external clib name 'getprotobyname_r';
function getprotobynumber_r(__proto:longint; __result_buf:Pprotoent; __buf:Pchar; __buflen:size_t; __result:PPprotoent):longint;cdecl;external clib name 'getprotobynumber_r';
function setnetgrent(__netgroup:Pchar):longint;cdecl;external clib name 'setnetgrent';
procedure endnetgrent;cdecl;external clib name 'endnetgrent';
function getnetgrent(__hostp:PPchar; __userp:PPchar; __domainp:PPchar):longint;cdecl;external clib name 'getnetgrent';
function innetgr(__netgroup:Pchar; __host:Pchar; __user:Pchar; domain:Pchar):longint;cdecl;external clib name 'innetgr';
function getnetgrent_r(__hostp:PPchar; __userp:PPchar; __domainp:PPchar; __buffer:Pchar; __buflen:size_t):longint;cdecl;external clib name 'getnetgrent_r';
function rcmd(__ahost:PPchar; __rport:word; __locuser:Pchar; __remuser:Pchar; __cmd:Pchar;
__fd2p:Plongint):longint;cdecl;external clib name 'rcmd';
function rcmd_af(__ahost:PPchar; __rport:word; __locuser:Pchar; __remuser:Pchar; __cmd:Pchar;
__fd2p:Plongint; __af:sa_family_t):longint;cdecl;external clib name 'rcmd_af';
function rexec(__ahost:PPchar; __rport:longint; __name:Pchar; __pass:Pchar; __cmd:Pchar;
__fd2p:Plongint):longint;cdecl;external clib name 'rexec';
function rexec_af(__ahost:PPchar; __rport:longint; __name:Pchar; __pass:Pchar; __cmd:Pchar;
__fd2p:Plongint; __af:sa_family_t):longint;cdecl;external clib name 'rexec_af';
function ruserok(__rhost:Pchar; __suser:longint; __remuser:Pchar; __locuser:Pchar):longint;cdecl;external clib name 'ruserok';
function ruserok_af(__rhost:Pchar; __suser:longint; __remuser:Pchar; __locuser:Pchar; __af:sa_family_t):longint;cdecl;external clib name 'ruserok_af';
function rresvport(__alport:Plongint):longint;cdecl;external clib name 'rresvport';
function rresvport_af(__alport:Plongint; __af:sa_family_t):longint;cdecl;external clib name 'rresvport_af';
type
Paddrinfo = ^addrinfo;
addrinfo = record
ai_flags : longint;
ai_family : longint;
ai_socktype : longint;
ai_protocol : longint;
ai_addrlen : socklen_t;
ai_addr : Psockaddr;
ai_canonname : Pchar;
ai_next : Paddrinfo;
end;
PPaddrinfo = ^Paddrinfo;
Pgaicb = ^gaicb;
gaicb = record
ar_name : Pchar;
ar_service : Pchar;
ar_request : Paddrinfo;
ar_result : Paddrinfo;
__return : longint;
__unused : array[0..4] of longint;
end;
PPgaicb = ^Pgaicb;
const
GAI_WAIT = 0;
GAI_NOWAIT = 1;
AI_PASSIVE = $0001;
AI_CANONNAME = $0002;
AI_NUMERICHOST = $0004;
EAI_BADFLAGS = -(1);
EAI_NONAME = -(2);
EAI_AGAIN = -(3);
EAI_FAIL = -(4);
EAI_NODATA = -(5);
EAI_FAMILY = -(6);
EAI_SOCKTYPE = -(7);
EAI_SERVICE = -(8);
EAI_ADDRFAMILY = -(9);
EAI_MEMORY = -(10);
EAI_SYSTEM = -(11);
EAI_INPROGRESS = -(100);
EAI_CANCELED = -(101);
EAI_NOTCANCELED = -(102);
EAI_ALLDONE = -(103);
EAI_INTR = -(104);
NI_MAXHOST = 1025;
NI_MAXSERV = 32;
NI_NUMERICHOST = 1;
NI_NUMERICSERV = 2;
NI_NOFQDN = 4;
NI_NAMEREQD = 8;
NI_DGRAM = 16;
function getaddrinfo(__name:Pchar; __service:Pchar; __req:Paddrinfo; __pai:PPaddrinfo):longint;cdecl;external clib name 'getaddrinfo';
procedure freeaddrinfo(__ai:Paddrinfo);cdecl;external clib name 'freeaddrinfo';
function gai_strerror(__ecode:longint):Pchar;cdecl;external clib name 'gai_strerror';
function getnameinfo(__sa:Psockaddr; __salen:socklen_t; __host:Pchar; __hostlen:socklen_t; __serv:Pchar;
__servlen:socklen_t; __flags:dword):longint;cdecl;external clib name 'getnameinfo';
function getaddrinfo_a(__mode:longint; __list: PPgaicb; __ent:longint; __sig:Psigevent):longint;cdecl;external clib name 'getaddrinfo_a';
function gai_suspend(__list:array of Pgaicb; __ent:longint; __timeout:Ptimespec):longint;cdecl;external clib name 'gai_suspend';
function gai_error(__req:Pgaicb):longint;cdecl;external clib name 'gai_error';
function gai_cancel(__gaicbp:Pgaicb):longint;cdecl;external clib name 'gai_cancel';
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
Type
THostEnt = hostent;
TServEnt = servent;
TProtoEnt = protoent;
TAddressInfo = addrinfo;
Reference in New Issue View Git Blame Copy Permalink