fpc/packages/base/libc/nif_etherh.inc
2003-06-26 08:31:12 +00:00

22 lines
654 B
PHP

type
Pether_arp = ^ether_arp;
ether_arp = record
ea_hdr : arphdr;
arp_sha : array[0..(ETH_ALEN)-1] of u_int8_t;
arp_spa : array[0..3] of u_int8_t;
arp_tha : array[0..(ETH_ALEN)-1] of u_int8_t;
arp_tpa : array[0..3] of u_int8_t;
end;
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
type
TEthernetAddress = packed array[0..ETH_ALEN-1] of u_char;
PEthernetAddress = ^TEthernetAddress;
procedure ETHER_MAP_IP_MULTICAST(const ipaddr: in_addr; enaddr: PEthernetAddress);