/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2008 NetXen, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include "unm_nic.h"

static char transfer_speed_propname[] = "transfer-speed";
static char speed_propname[] = "speed";
static char duplex_propname[] = "full-duplex";

/*
 * Notes:
 *	The first character of the <name> field encodes the read/write
 *	status of the parameter:
 *		'-' => read-only,
 *		'+' => read/write,
 *		'!' => invisible!
 *
 *	For writable parameters, we check for a driver property with the
 *	same name; if found, and its value is in range, we initialise
 *	the parameter from the property, overriding the default in the
 *	table below.
 *
 *	A NULL in the <name> field terminates the array.
 *
 *	The <info> field is used here to provide the index of the
 *	parameter to be initialised; thus it doesn't matter whether
 *	this table is kept ordered or not.
 *
 *	The <info> field in the per-instance copy, on the other hand,
 *	is used to count assignments so that we can tell when a magic
 *	parameter has been set via ndd (see unm_param_set()).
 */
static const nd_param_t nd_template_10000[] = {
/*	info		min	max	init	r/w+name		*/

/* Our hardware capabilities */
{ PARAM_AUTONEG_CAP,	    0,	  1,	1,	"-autoneg_cap"		},
{ PARAM_PAUSE_CAP,	    0,	  1,	1,	"-pause_cap"		},
{ PARAM_ASYM_PAUSE_CAP,	    0,	  1,	1,	"-asym_pause_cap"	},
{ PARAM_10000FDX_CAP,	    0,	  1,	1,	"-10000fdx_cap"		},
{ PARAM_1000FDX_CAP,	    0,	  1,	0,	"-1000fdx_cap"		},
{ PARAM_1000HDX_CAP,	    0,	  1,	0,	"-1000hdx_cap"		},
{ PARAM_100T4_CAP,	    0,	  1,	0,	"-100T4_cap"		},
{ PARAM_100FDX_CAP,	    0,	  1,	0,	"-100fdx_cap"		},
{ PARAM_100HDX_CAP,	    0,	  1,	0,	"-100hdx_cap"		},
{ PARAM_10FDX_CAP,	    0,	  1,	0,	"-10fdx_cap"		},
{ PARAM_10HDX_CAP,	    0,	  1,	0,	"-10hdx_cap"		},

/* Our advertised capabilities */
{ PARAM_ADV_AUTONEG_CAP,    0,	  1,	1,	"-adv_autoneg_cap"	},
{ PARAM_ADV_PAUSE_CAP,	    0,	  1,	1,	"+adv_pause_cap"	},
{ PARAM_ADV_ASYM_PAUSE_CAP, 0,	  1,	1,	"+adv_asym_pause_cap"	},
{ PARAM_ADV_10000FDX_CAP,   0,	  1,	1,	"+adv_10000fdx_cap"	},
{ PARAM_ADV_1000FDX_CAP,    0,	  1,	0,	"+adv_1000fdx_cap"	},
{ PARAM_ADV_1000HDX_CAP,    0,	  1,	0,	"-adv_1000hdx_cap"	},
{ PARAM_ADV_100T4_CAP,	    0,	  1,	0,	"-adv_100T4_cap"	},
{ PARAM_ADV_100FDX_CAP,	    0,	  1,	0,	"+adv_100fdx_cap"	},
{ PARAM_ADV_100HDX_CAP,	    0,	  1,	0,	"+adv_100hdx_cap"	},
{ PARAM_ADV_10FDX_CAP,	    0,	  1,	0,	"+adv_10fdx_cap"	},
{ PARAM_ADV_10HDX_CAP,	    0,	  1,	0,	"+adv_10hdx_cap"	},

/* Current operating modes */
{ PARAM_LINK_STATUS,	    0,	  1,	0,	"-link_status"		},
{ PARAM_LINK_SPEED,	    0,    10000, 0,	"-link_speed"		},
{ PARAM_LINK_DUPLEX,	    0,	  2,	0,	"-link_duplex"		},

/* Loopback status */
{ PARAM_LOOP_MODE,	    0,	  2,	0,	"-loop_mode"		},

/* Terminator */
{ PARAM_COUNT,		    0,	  0,	0,	NULL			}
};

static const nd_param_t nd_template_1000[] = {
/*	info		min	max	init	r/w+name		*/

/* Our hardware capabilities */
{ PARAM_AUTONEG_CAP,	    0,	  1,	1,	"-autoneg_cap"		},
{ PARAM_PAUSE_CAP,	    0,	  1,	1,	"-pause_cap"		},
{ PARAM_ASYM_PAUSE_CAP,	    0,	  1,	1,	"-asym_pause_cap"	},
{ PARAM_1000FDX_CAP,	    0,	  1,	1,	"-1000fdx_cap"		},
{ PARAM_1000HDX_CAP,	    0,	  1,	0,	"-1000hdx_cap"		},
{ PARAM_100T4_CAP,	    0,	  1,	0,	"-100T4_cap"		},
{ PARAM_100FDX_CAP,	    0,	  1,	0,	"-100fdx_cap"		},
{ PARAM_100HDX_CAP,	    0,	  1,	0,	"-100hdx_cap"		},
{ PARAM_10FDX_CAP,	    0,	  1,	0,	"-10fdx_cap"		},
{ PARAM_10HDX_CAP,	    0,	  1,	0,	"-10hdx_cap"		},

/* Our advertised capabilities */
{ PARAM_ADV_AUTONEG_CAP,    0,	  1,	1,	"-adv_autoneg_cap"	},
{ PARAM_ADV_PAUSE_CAP,	    0,	  1,	1,	"+adv_pause_cap"	},
{ PARAM_ADV_ASYM_PAUSE_CAP, 0,	  1,	1,	"+adv_asym_pause_cap"	},
{ PARAM_ADV_1000FDX_CAP,    0,	  1,	1,	"+adv_1000fdx_cap"	},
{ PARAM_ADV_1000HDX_CAP,    0,	  1,	0,	"-adv_1000hdx_cap"	},
{ PARAM_ADV_100T4_CAP,	    0,	  1,	0,	"-adv_100T4_cap"	},
{ PARAM_ADV_100FDX_CAP,	    0,	  1,	0,	"+adv_100fdx_cap"	},
{ PARAM_ADV_100HDX_CAP,	    0,	  1,	0,	"+adv_100hdx_cap"	},
{ PARAM_ADV_10FDX_CAP,	    0,	  1,	0,	"+adv_10fdx_cap"	},
{ PARAM_ADV_10HDX_CAP,	    0,	  1,	0,	"+adv_10hdx_cap"	},

/* Current operating modes */
{ PARAM_LINK_STATUS,	    0,	  1,	0,	"-link_status"		},
{ PARAM_LINK_SPEED,	    0,    1000,	0,	"-link_speed"		},
{ PARAM_LINK_DUPLEX,	    0,	  2,	0,	"-link_duplex"		},

/* Loopback status */
{ PARAM_LOOP_MODE,	    0,	  2,	0,	"-loop_mode"		},

/* Terminator */
{ PARAM_COUNT,		    0,	  0,	0,	NULL			}
};

/*  ============== NDD Support Functions ===============  */

/*
 * Extracts the value from the unm parameter array and prints
 * the parameter value. cp points to the required parameter.
 */
/* ARGSUSED */
static int
unm_param_get(queue_t *q, mblk_t *mp, caddr_t cp, cred_t *credp)
{
	nd_param_t *ndp;

	ndp = (nd_param_t *)(uintptr_t)cp;
	(void) mi_mpprintf(mp, "%d", ndp->ndp_val);

	return (0);
}

/*
 * Validates the request to set a UNM parameter to a specific value.
 * If the request is OK, the parameter is set.  Also the <info> field
 * is incremented to show that the parameter was touched, even though
 * it may have been set to the same value it already had.
 */
/* ARGSUSED */
static int
unm_param_set(queue_t *q, mblk_t *mp, char *value, caddr_t cp, cred_t *credp)
{
	nd_param_t *ndp;
	int new_value;
	char *end;

	ndp = (nd_param_t *)(uintptr_t)cp;
	new_value = mi_strtol(value, &end, 10);
	if (end == value)
		return (EINVAL);
	if (new_value < ndp->ndp_min || new_value > ndp->ndp_max)
		return (EINVAL);

	ndp->ndp_val = new_value;
	ndp->ndp_info += 1;
	return (0);
}

/*
 * Initialise the per-instance parameter array from the global prototype,
 * and register each element with the named dispatch handler using nd_load()
 */
static int
unm_param_register(unm_adapter *adapter)
{
	const nd_param_t *tmplp;
	dev_info_t *dip;
	nd_param_t *ndp;
	caddr_t *nddpp;
	pfi_t setfn;
	char *nm;
	int pval;

	dip = adapter->dip;
	nddpp = &adapter->nd_data_p;
	ASSERT(*nddpp == NULL);

	if (adapter->ahw.board_type == UNM_NIC_XGBE)
		tmplp = nd_template_10000;
	else
		tmplp = nd_template_1000;

	for (; tmplp->ndp_name != NULL; ++tmplp) {
		/*
		 * Copy the template from nd_template[] into the
		 * proper slot in the per-instance parameters,
		 * then register the parameter with nd_load()
		 */
		ndp = &adapter->nd_params[tmplp->ndp_info];
		*ndp = *tmplp;
		nm = &ndp->ndp_name[0];
		setfn = unm_param_set;

		switch (*nm) {
		default:
		case '!':
			continue;

		case '+':
			break;

		case '-':
			setfn = NULL;
			break;
		}

		if (!nd_load(nddpp, ++nm, unm_param_get, setfn, (caddr_t)ndp))
			goto nd_fail;

		/*
		 * If the parameter is writable, and there's a property
		 * with the same name, and its value is in range, we use
		 * it to initialise the parameter.  If it exists but is
		 * out of range, it's ignored.
		 */
		if (setfn && UNM_PROP_EXISTS(dip, nm)) {
			pval = UNM_PROP_GET_INT(dip, nm);
			if (pval >= ndp->ndp_min && pval <= ndp->ndp_max)
				ndp->ndp_val = pval;
		}
	}

	DPRINTF(1, (CE_WARN, "unm_param_register: OK"));
	return (DDI_SUCCESS);

nd_fail:
	if (adapter->ahw.board_type == UNM_NIC_XGBE) {
		cmn_err(CE_WARN,
		    "unm_param_register: FAILED at index %d [info %d]",
		    (int)(tmplp-nd_template_10000), tmplp->ndp_info);
	} else {
		cmn_err(CE_WARN,
		    "unm_param_register: FAILED at index %d [info %d]",
		    (int)(tmplp-nd_template_1000), tmplp->ndp_info);
	}
	nd_free(nddpp);
	return (DDI_FAILURE);
}

int
unm_nd_init(unm_adapter *adapter)
{
	dev_info_t *dip;
	int duplex;
	int speed;

	/*
	 * Register all the per-instance properties, initialising
	 * them from the table above or from driver properties set
	 * in the .conf file
	 */
	if (unm_param_register(adapter) != DDI_SUCCESS)
		return (-1);

	/*
	 * The link speed may be forced to 1000 or 10000 Mbps using
	 * the property "transfer-speed". This may be done in OBP by
	 * using the command "apply transfer-speed=<speed> <device>".
	 * The speed may be 1000 or 10000 - any other value will be
	 * ignored.  Note that this does *enables* autonegotiation, but
	 * restricts it to the speed specified by the property.
	 */
	dip = adapter->dip;
	if (UNM_PROP_EXISTS(dip, transfer_speed_propname)) {

		speed = UNM_PROP_GET_INT(dip, transfer_speed_propname);

		switch (speed) {
		case 10000:
			adapter->param_adv_autoneg = 1;
			adapter->param_adv_10000fdx = 1;
			adapter->param_adv_1000fdx = 0;
			adapter->param_adv_1000hdx = 0;
			adapter->param_adv_100fdx = 0;
			adapter->param_adv_100hdx = 0;
			adapter->param_adv_10fdx = 0;
			adapter->param_adv_10hdx = 0;
			break;

		case 1000:
			adapter->param_adv_autoneg = 1;
			adapter->param_adv_1000fdx = 1;
			adapter->param_adv_1000hdx = 1;
			adapter->param_adv_100fdx = 0;
			adapter->param_adv_100hdx = 0;
			adapter->param_adv_10fdx = 0;
			adapter->param_adv_10hdx = 0;
			break;

		case 100:
			adapter->param_adv_autoneg = 1;
			adapter->param_adv_1000fdx = 0;
			adapter->param_adv_1000hdx = 0;
			adapter->param_adv_100fdx = 1;
			adapter->param_adv_100hdx = 1;
			adapter->param_adv_10fdx = 0;
			adapter->param_adv_10hdx = 0;
			break;

		case 10:
			adapter->param_adv_autoneg = 1;
			adapter->param_adv_1000fdx = 0;
			adapter->param_adv_1000hdx = 0;
			adapter->param_adv_100fdx = 0;
			adapter->param_adv_100hdx = 0;
			adapter->param_adv_10fdx = 1;
			adapter->param_adv_10hdx = 1;
			break;

		default:
			break;
		}
	}

	/*
	 * Also check the "speed" and "full-duplex" properties.  Setting
	 * these properties will override all other settings and *disable*
	 * autonegotiation, so both should be specified if either one is.
	 * Otherwise, the unspecified parameter will be set to a default
	 * value (10000Mb/s, full-duplex).
	 */
	if (UNM_PROP_EXISTS(dip, speed_propname) ||
	    UNM_PROP_EXISTS(dip, duplex_propname)) {

		adapter->param_adv_autoneg = 0;
		adapter->param_adv_10000fdx = 1;
		adapter->param_adv_1000fdx = 1;
		adapter->param_adv_1000hdx = 1;
		adapter->param_adv_100fdx = 1;
		adapter->param_adv_100hdx = 1;
		adapter->param_adv_10fdx = 1;
		adapter->param_adv_10hdx = 1;

		speed = UNM_PROP_GET_INT(dip, speed_propname);
		duplex = UNM_PROP_GET_INT(dip, duplex_propname);

		switch (speed) {
		case 10000:
		default:
			adapter->param_adv_1000fdx = 0;
			adapter->param_adv_1000hdx = 0;
			adapter->param_adv_100fdx = 0;
			adapter->param_adv_100hdx = 0;
			adapter->param_adv_10fdx = 0;
			adapter->param_adv_10hdx = 0;
			break;

		case 1000:
			adapter->param_adv_10000fdx = 0;
			adapter->param_adv_100fdx = 0;
			adapter->param_adv_100hdx = 0;
			adapter->param_adv_10fdx = 0;
			adapter->param_adv_10hdx = 0;
			break;

		case 100:
			adapter->param_adv_10000fdx = 0;
			adapter->param_adv_1000fdx = 0;
			adapter->param_adv_1000hdx = 0;
			adapter->param_adv_10fdx = 0;
			adapter->param_adv_10hdx = 0;
			break;

		case 10:
			adapter->param_adv_10000fdx = 0;
			adapter->param_adv_1000fdx = 0;
			adapter->param_adv_1000hdx = 0;
			adapter->param_adv_100fdx = 0;
			adapter->param_adv_100hdx = 0;
			break;
		}

		switch (duplex) {
		default:
		case 1:
			adapter->param_adv_1000hdx = 0;
			adapter->param_adv_100hdx = 0;
			adapter->param_adv_10hdx = 0;
			break;

		case 0:
			adapter->param_adv_10000fdx = 0;
			adapter->param_adv_1000fdx = 0;
			adapter->param_adv_100fdx = 0;
			adapter->param_adv_10fdx = 0;
			break;
		}
	}

	DPRINTF(1, (CE_WARN, "unm_nd_init: autoneg %d"
	    "pause %d asym_pause %d "
	    "10000fdx %d "
	    "1000fdx %d 1000hdx %d "
	    "100fdx %d 100hdx %d "
	    "10fdx %d 10hdx %d ",
	    adapter->param_adv_autoneg,
	    adapter->param_adv_pause, adapter->param_adv_asym_pause,
	    adapter->param_adv_10000fdx,
	    adapter->param_adv_1000fdx, adapter->param_adv_1000hdx,
	    adapter->param_adv_100fdx, adapter->param_adv_100hdx,
	    adapter->param_adv_10fdx, adapter->param_adv_10hdx));

	return (0);
}

enum ioc_reply
unm_nd_ioctl(unm_adapter *adapter, queue_t *wq, mblk_t *mp, struct iocblk *iocp)
{
	boolean_t ok;
	int cmd;

	DPRINTF(1, (CE_WARN, "unm_nd_ioctl($%p, $%p, $%p, $%p)",
	    (void *)adapter, (void *)wq, (void *)mp, (void *)iocp));

	cmd = iocp->ioc_cmd;
	switch (cmd) {
	default:
		/* NOTREACHED */
		DPRINTF(-1, (CE_WARN, "unm_nd_ioctl: invalid cmd 0x%x", cmd));
		return (IOC_INVAL);

	case ND_GET:
		/*
		 * If nd_getset() returns B_FALSE, the command was
		 * not valid (e.g. unknown name), so we just tell the
		 * top-level ioctl code to send a NAK (with code EINVAL).
		 *
		 * Otherwise, nd_getset() will have built the reply to
		 * be sent (but not actually sent it), so we tell the
		 * caller to send the prepared reply.
		 */
		ok = nd_getset(wq, adapter->nd_data_p, mp);
		DPRINTF(1, (CE_WARN, "unm_nd_ioctl: get %s", ok ? "OK" :
		    "FAIL"));
		return (ok ? IOC_REPLY : IOC_INVAL);

	case ND_SET:
		/*
		 * All adv_* parameters are locked (read-only) while
		 * the device is in any sort of loopback mode ...
		 */
		if (adapter->param_loop_mode != UNM_LOOP_NONE) {
			iocp->ioc_error = EBUSY;
			return (IOC_INVAL);
		}

		ok = nd_getset(wq, adapter->nd_data_p, mp);

		/*
		 * If nd_getset() returns B_FALSE, the command was
		 * not valid (e.g. unknown name), so we just tell
		 * the top-level ioctl code to send a NAK (with code
		 * EINVAL by default).
		 *
		 * Otherwise, nd_getset() will have built the reply to
		 * be sent - but that doesn't imply success!  In some
		 * cases, the reply it's built will have a non-zero
		 * error code in it (e.g. EPERM if not superuser).
		 * So, we also drop out in that case ...
		 */
		DPRINTF(1, (CE_WARN,
		    "unm_nd_ioctl: set %s err %d autoneg %d info %d",
		    ok ? "OK" : "FAIL", iocp->ioc_error,
		    adapter->nd_params[PARAM_ADV_AUTONEG_CAP].ndp_val,
		    adapter->nd_params[PARAM_ADV_AUTONEG_CAP].ndp_info));
		if (!ok)
			return (IOC_INVAL);
		if (iocp->ioc_error)
			return (IOC_REPLY);

		return (IOC_RESTART_REPLY);
	}
}

/* Free the Named Dispatch Table by calling nd_free */
void
unm_nd_cleanup(unm_adapter *adapter)
{
	nd_free(&adapter->nd_data_p);
}