fpc/packages/base/libc/netherneth.inc
2005-02-14 17:13:06 +00:00

47 lines
1.1 KiB
PHP

type
Pether_addr = ^ether_addr;
ether_addr = record
ether_addr_octet : array[0..(ETH_ALEN)-1] of u_int8_t;
end;
Pether_header = ^ether_header;
ether_header = record
ether_dhost : array[0..(ETH_ALEN)-1] of u_int8_t;
ether_shost : array[0..(ETH_ALEN)-1] of u_int8_t;
ether_type : u_int16_t;
end;
const
ETHERTYPE_PUP = $0200;
ETHERTYPE_IP = $0800;
ETHERTYPE_ARP = $0806;
ETHERTYPE_REVARP = $8035;
ETHER_ADDR_LEN = ETH_ALEN;
ETHER_TYPE_LEN = 2;
ETHER_CRC_LEN = 4;
ETHER_HDR_LEN = ETH_HLEN;
ETHER_MIN_LEN = ETH_ZLEN + ETHER_CRC_LEN;
ETHER_MAX_LEN = ETH_FRAME_LEN + ETHER_CRC_LEN;
function ETHER_IS_VALID_LEN(foo : cardinal) : boolean;
const
ETHERTYPE_TRAIL = $1000;
ETHERTYPE_NTRAILER = 16;
ETHERMTU = ETH_DATA_LEN;
ETHERMIN = (ETHER_MIN_LEN - ETHER_HDR_LEN) - ETHER_CRC_LEN;
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
Type
TEtherAddr = ether_addr;
PEtherAddr = ^TEtherAddr;