/*
 * Copyright (c) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
 *	1997, 2000, 2011, 2012
 *	The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that: (1) source code distributions
 * retain the above copyright notice and this paragraph in its entirety, (2)
 * distributions including binary code include the above copyright notice and
 * this paragraph in its entirety in the documentation or other materials
 * provided with the distribution, and (3) all advertising materials mentioning
 * features or use of this software display the following acknowledgement:
 * ``This product includes software developed by the University of California,
 * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
 * the University nor the names of its contributors may be used to endorse
 * or promote products derived from this software without specific prior
 * written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */
/*
 * Copyright (c) 2011, 2016, Oracle and/or its affiliates. All rights reserved.
 */

/* \summary: IP-over-InfiniBand (IPoIB) printer */

#include <config.h>

#include "netdissect-stdinc.h"

#include "netdissect.h"
#include "extract.h"
#include "addrtoname.h"


extern const struct tok ethertype_values[];

#define	IPOIB_HDRLEN	44

static inline void
ipoib_hdr_print(netdissect_options *ndo, const u_char *bp, u_int length)
{
	uint16_t ether_type;

	ether_type = GET_BE_U_2(bp + 40);
	if (!ndo->ndo_qflag) {
		ND_PRINT(", ethertype %s (0x%04x)",
			     tok2str(ethertype_values,"Unknown", ether_type),
			     ether_type);
	} else {
		ND_PRINT(", ethertype %s",
			     tok2str(ethertype_values,"Unknown", ether_type));
	}

	ND_PRINT(", length %u: ", length);
}

/*
 * Print an InfiniBand frame.
 * This might be encapsulated within another frame; we might be passed
 * a pointer to a function that can print header information for that
 * frame's protocol, and an argument to pass to that function.
 */
static void
ipoib_print(netdissect_options *ndo, const u_char *p, u_int length, u_int caplen,
    void (*print_encap_header)(const u_char *), const u_char *encap_header_arg)
{
	const u_char *orig_hdr = p;
	u_int orig_length;
	u_short ether_type;

	if (caplen < IPOIB_HDRLEN) {
		nd_print_trunc(ndo);
		ndo->ndo_ll_hdr_len += caplen;
		return;
	}

	if (length < IPOIB_HDRLEN) {
		nd_print_trunc(ndo);
		ndo->ndo_ll_hdr_len += length;
		return;
	}

	if (ndo->ndo_eflag) {
		nd_print_protocol_caps(ndo);
		if (print_encap_header != NULL)
			(*print_encap_header)(encap_header_arg);
		ipoib_hdr_print(ndo, p, length);
	}
	orig_length = length;

	ndo->ndo_ll_hdr_len += IPOIB_HDRLEN;
	length -= IPOIB_HDRLEN;
	caplen -= IPOIB_HDRLEN;
	ether_type = GET_BE_U_2(p + 40);
	p += IPOIB_HDRLEN;

	if (ethertype_print(ndo, ether_type, p, length, caplen, NULL, NULL) == 0) {
		/* ether_type not known, print raw packet */
		if (!ndo->ndo_eflag) {
			if (print_encap_header != NULL)
				(*print_encap_header)(encap_header_arg);
			ipoib_hdr_print(ndo, orig_hdr , orig_length);
		}

		if (!ndo->ndo_suppress_default_print)
			ND_DEFAULTPRINT(p, caplen);
	}
}

/*
 * This is the top level routine of the printer.  'p' points
 * to the ether header of the packet, 'h->ts' is the timestamp,
 * 'h->len' is the length of the packet off the wire, and 'h->caplen'
 * is the number of bytes actually captured.
 */
void
ipoib_if_print(netdissect_options *ndo, const struct pcap_pkthdr *h, const u_char *p)
{
	ndo->ndo_protocol = "ipoib";
	ipoib_print(ndo, p, h->len, h->caplen, NULL, NULL);
}