[go: up one dir, main page]
Menu ▾ ▴

[r19]: / source / ogposix.pas  Maximize  Restore  History

Download this file

38 lines (28 with data), 838 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
{$I onguard.inc}



unit ogposix;



interface



uses SysUtils

{$IFDEF DELPHI19UP}{$IFDEF POSIX}, Posix.Base, Posix.SysSocket, Posix.NetIf, Posix.NetinetIn, Posix.ArpaInet{$ENDIF}{$ENDIF}

;



type

  u_char = UInt8;

  u_short = UInt16;

  sockaddr_dl = record

    sdl_len : u_char;

    sal_family : u_char;

    sdl_index : u_short;

    sdl_type : u_char;

    sdl_nlen : u_char;

    sdl_alen : u_char;

    sdl_slen : u_char;

    sdl_data : array[0..11] of AnsiChar;

  end;

  psockaddr_dl = ^sockaddr_dl;



const

  IFT_ETHER = $6;



function getifaddrs(var ifap: Pifaddrs):Integer; cdecl; external libc name _PU + 'getifaddrs';

{$EXTERNALSYM getifaddrs}



function freeifaddrs(var ifap: Posix.NetIf.Pifaddrs):Integer; cdecl; external libc name _PU + 'freeifaddrs';

{$EXTERNALSYM freeifaddrs}



implementation



end.