//
// $Copyright$
//
// $TAHI: ct/natpt/rfc2765_3.1_nextheaderfrag.def,v 1.3 2001/10/11 01:41:46 akisada Exp $
//

#include "natpt.def"

#define IPv4_protocol(_pNAME, _pID, _pPROTOCOL, _pPAYLOAD) \
FEM_hdr_ipv4_exth( \
        ipv4_ ## _pNAME, \
	_HETHER_tn2nut, \
	{ \
		_SRC(TN_LINK1_V4_ADDRESS); \
		_DST(TN_LINK0_V4_ADDRESS); \
                Identifier = _pID; \
                Protocol = _pPROTOCOL; \
	}, \
	{  \
	        header = _HDR_IPV4_ipv4_ ## _pNAME; \
		upper = _pPAYLOAD; \
	} \
)

#define IPv6_protocol(_pNAME, _pID, _pPROTOCOL, _pPAYLOAD) \
FEM_hdr_ipv6_exth( \
        ipv6_nofrag_ ## _pNAME, \
	_HETHER_nut2tn, \
        { \
		_SRC(TN_LINK1_SIIT_ADDRESS); \
		_DST(TN_LINK0_SIIT_ADDRESS); \
                NextHeader = _pPROTOCOL; \
        }, \
	{ \
	        header = _HDR_IPV6_NAME(ipv6_nofrag_ ## _pNAME); \
		upper = _pPAYLOAD; \
	} \
)

#define IPv6_fragment(_pNAME, _pID, _pPROTOCOL, _pPAYLOAD) \
FEM_fragment( \
        ipv6_ ## _pNAME, \
	_HETHER_nut2tn, \
        { \
		_SRC(TN_LINK1_SIIT_ADDRESS); \
		_DST(TN_LINK0_SIIT_ADDRESS); \
        }, \
	{  \
        	NextHeader = _pPROTOCOL; \
                Identification = _pID; \
	}, \
	{ \
        	data = right(_PACKET_IPV6_NAME(ipv6_nofrag_ ## _pNAME), 40); \
	} \
)

Payload MyPayload {
	data=repeat(0xff,64);
}
ICMPv4_EchoRequest MyEchoRequestv4 {
        Type = 8;   
	payload = MyPayload;
}
ICMPv6_EchoRequest MyEchoRequestv6 {
        Type = 128;   
	payload = MyPayload;
}
Hdr_UDP MyUDPHdr {
        SourcePort = 1234;
        DestinationPort = 5678;
}
Upp_UDP MyUDPPacket {
        header = MyUDPHdr;
	payload = MyPayload;
}
Hdr_TCP MyTCPHdr {
        SourcePort = 1234;
        DestinationPort = 5678;
}
Upp_TCP MyTCPPacket {
        header = MyTCPHdr;
        payload = MyPayload;
}

IPv4_protocol(icmp, 10000, 1, MyEchoRequestv4)
IPv6_protocol(icmp, 10000, 58, MyEchoRequestv6)
IPv6_fragment(icmp, 10000, 58, MyEchoRequestv6)

IPv4_protocol(udp, 20000, 17, MyUDPPacket)
IPv6_protocol(udp, 20000, 17, MyUDPPacket)
IPv6_fragment(udp, 20000, 17, MyUDPPacket)

IPv4_protocol(tcp, 30000, 6, MyTCPPacket)
IPv6_protocol(tcp, 30000, 6, MyTCPPacket)
IPv6_fragment(tcp, 30000, 6, MyTCPPacket)

IPv4_protocol(unknown, 40000, 255, MyPayload)
IPv6_protocol(unknown, 40000, 255, MyPayload)
IPv6_fragment(unknown, 40000, 255, MyPayload)