/*
 * This file and its contents are supplied under the terms of the
 * Common Development and Distribution License ("CDDL"), version 1.0.
 * You may only use this file in accordance with the terms of version
 * 1.0 of the CDDL.
 *
 * A full copy of the text of the CDDL should have accompanied this
 * source.  A copy of the CDDL is also available via the Internet at
 * http://www.illumos.org/license/CDDL.
 */

/*
 * Copyright (c) 2017, Joyent, Inc.
 */

/*
 * Print and tests SFF Wavelength values. Note that in both SFF 8472 and SFF
 * 8636 the wavelength values also double for various copper complaince values.
 * We check both forms here. Note that the copper compliance in SFF 8472 is
 * currently tested in libsff_compliance.c. SFF 8636's Copper Attenuation values
 * are tested here.
 */

#include <stdio.h>
#include <errno.h>
#include <strings.h>
#include <err.h>
#include <libsff.h>

/*
 * Pick up private sff header file with offsets from lib/libsff.
 */
#include "sff.h"

int
main(void)
{
	int ret, i;
	uint8_t buf[256];
	nvlist_t *nvl;
	char *val;
	char *attenuate[] = { LIBSFF_KEY_ATTENUATE_2G, LIBSFF_KEY_ATTENUATE_5G,
	    LIBSFF_KEY_ATTENUATE_7G, LIBSFF_KEY_ATTENUATE_12G, NULL };
	char *wave[] = { LIBSFF_KEY_WAVELENGTH, LIBSFF_KEY_WAVE_TOLERANCE,
	    NULL };

	bzero(buf, sizeof (buf));
	buf[SFF_8472_WAVELENGTH_HI] = 0x12;
	buf[SFF_8472_WAVELENGTH_LOW] = 0x34;

	if ((ret = libsff_parse(buf, sizeof (buf), 0xa0, &nvl)) != 0) {
		errc(1, ret, "TEST FAILED: failed to parse SFP wavelength "
		    "values");
	}

	if ((ret = nvlist_lookup_string(nvl, LIBSFF_KEY_WAVELENGTH, &val)) !=
	    0) {
		errc(1, ret, "TEST FAILED: failed to find %s",
		    LIBSFF_KEY_WAVELENGTH);
	}
	(void) printf("%s: %s\n", LIBSFF_KEY_WAVELENGTH, val);
	nvlist_free(nvl);

	/*
	 * Make sure wavelength is missing if we specify a copper compliance.
	 */
	bzero(buf, sizeof (buf));
	buf[SFF_8472_COMPLIANCE_SFP] = 0x08;
	buf[SFF_8472_WAVELENGTH_HI] = 0x12;
	buf[SFF_8472_WAVELENGTH_LOW] = 0x34;

	if ((ret = libsff_parse(buf, sizeof (buf), 0xa0, &nvl)) != 0) {
		errc(1, ret, "TEST FAILED: failed to parse SFP wavelength "
		    "values");
	}

	if ((ret = nvlist_lookup_string(nvl, LIBSFF_KEY_WAVELENGTH, &val)) !=
	    ENOENT) {
		errx(1, "TEST FALIED: found unexpected return value for key "
		    "%s: %d", LIBSFF_KEY_WAVELENGTH, ret);
	}

	nvlist_free(nvl);

	bzero(buf, sizeof (buf));
	buf[SFF_8472_COMPLIANCE_SFP] = 0x04;
	buf[SFF_8472_WAVELENGTH_HI] = 0x12;
	buf[SFF_8472_WAVELENGTH_LOW] = 0x34;

	if ((ret = libsff_parse(buf, sizeof (buf), 0xa0, &nvl)) != 0) {
		errc(1, ret, "TEST FAILED: failed to parse SFP wavelength "
		    "values");
	}

	if ((ret = nvlist_lookup_string(nvl, LIBSFF_KEY_WAVELENGTH, &val)) !=
	    ENOENT) {
		errx(1, "TEST FALIED: found unexpected return value for key "
		    "%s: %d", LIBSFF_KEY_WAVELENGTH, ret);
	}

	nvlist_free(nvl);

	/*
	 * Now for QSFP+
	 */
	(void) puts("\n\nQSFP\n");

	/* First copper */
	bzero(buf, sizeof (buf));
	buf[SFF_8472_IDENTIFIER] = SFF_8024_ID_QSFP;
	buf[SFF_8636_DEVICE_TECH] = 0xa0;

	buf[SFF_8636_ATTENUATE_2G] = 0x42;
	buf[SFF_8636_ATTENUATE_5G] = 0x43;
	buf[SFF_8636_ATTENUATE_7G] = 0x44;
	buf[SFF_8636_ATTENUATE_12G] = 0x45;

	if ((ret = libsff_parse(buf, sizeof (buf), 0xa0, &nvl)) != 0) {
		errc(1, ret, "TEST FAILED: failed to parse QSFP BR "
		    "values");
	}

	for (i = 0; attenuate[i] != NULL; i++) {
		if ((ret = nvlist_lookup_string(nvl, attenuate[i], &val)) !=
		    0) {
			errc(1, ret, "TEST FAILED: failed to find %s",
			    attenuate[i]);
		}
		(void) printf("%s: %s\n", attenuate[i], val);
	}

	for (i = 0; wave[i] != NULL; i++) {
		if ((ret = nvlist_lookup_string(nvl, wave[i], &val)) !=
		    ENOENT) {
			errx(1, "TEST FAILED: found unexpected return value "
			    "for key %s: %d", attenuate[i], ret);
		}

	}
	nvlist_free(nvl);

	/* Now normal wavelengths */
	bzero(buf, sizeof (buf));
	buf[SFF_8472_IDENTIFIER] = SFF_8024_ID_QSFP;

	buf[SFF_8636_WAVELENGTH_NOMINAL_HI] = 0x12;
	buf[SFF_8636_WAVELENGTH_NOMINAL_LOW] = 0x34;
	buf[SFF_8636_WAVELENGTH_TOLERANCE_HI] = 0x56;
	buf[SFF_8636_WAVELENGTH_TOLERANCE_LOW] = 0x78;

	if ((ret = libsff_parse(buf, sizeof (buf), 0xa0, &nvl)) != 0) {
		errc(1, ret, "TEST FAILED: failed to parse QSFP Wavelength "
		    "values");
	}

	for (i = 0; wave[i] != NULL; i++) {
		if ((ret = nvlist_lookup_string(nvl, wave[i], &val)) != 0) {
			errc(1, ret, "TEST FAILED: failed to find %s", wave[i]);
		}
		(void) printf("%s: %s\n", wave[i], val);
	}

	for (i = 0; attenuate[i] != NULL; i++) {
		if ((ret = nvlist_lookup_string(nvl, attenuate[i], &val)) !=
		    ENOENT) {
			errx(1, "TEST FALIED: found unexpected return value "
			    "for key %s: %d", attenuate[i], ret);
		}

	}
	nvlist_free(nvl);

	return (0);
}