/*
 * 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 (c) 2010, Oracle and/or its affiliates. All rights reserved.
 */

#include <sys/types.h>
#include <sys/kmem.h>
#include <sys/conf.h>
#include <sys/ddi.h>
#include <sys/sunddi.h>
#include <sys/ksynch.h>

#include <sys/ib/clients/eoib/eib_impl.h>

/*
 * Definitions private to this file
 */
ib_gid_t eib_reserved_gid;

uint8_t eib_zero_mac[] = {
	0x0, 0x0, 0x0, 0x0, 0x0, 0x0
};

uint8_t eib_broadcast_mac[] = {
	0xff, 0xff, 0xff, 0xff, 0xff, 0xff
};

int eib_setbit_mod67[] = {
	-1,  0,  1, 39,  2, 15, 40, 23,
	3,  12, 16, 59, 41, 19, 24, 54,
	4,  -1, 13, 10, 17, 62, 60, 28,
	42, 30, 20, 51, 25, 44, 55, 47,
	5,  32, -1, 38, 14, 22, 11, 58,
	18, 53, 63,  9, 61, 27, 29, 50,
	43, 46, 31, 37, 21, 57, 52,  8,
	26, 49, 45, 36, 56,  7, 48, 35,
	6,  34, 33
};

char *eib_pvt_props[] = {
	EIB_DLPROP_GW_EPORT_STATE,
	EIB_DLPROP_HCA_GUID,
	EIB_DLPROP_PORT_GUID,
	NULL
};

#define	eib_prop_get_and_test(inst, dp, propname, propval)		\
{                                                                       \
	(propval) = ddi_prop_get_int(DDI_DEV_T_ANY, (dp),               \
	    DDI_PROP_DONTPASS | DDI_PROP_NOTPROM, (propname), -1);      \
	if ((propval) == -1) {                                          \
		EIB_DPRINTF_WARN((inst), "eib_get_props: "		\
		    "ddi_prop_get_int() could not find "		\
		    "property '%s'", (propname));			\
		goto get_props_fail;                                    \
	}                                                               \
}

#define	eib_prop64_get_and_test(inst, dp, propname, propval)		\
{                                                                       \
	(propval) = ddi_prop_get_int64(DDI_DEV_T_ANY, (dp),             \
	    DDI_PROP_DONTPASS | DDI_PROP_NOTPROM, (propname), -1);      \
	if ((propval) == -1) {                                          \
		EIB_DPRINTF_WARN((inst), "eib_get_props: "		\
		    "ddi_prop_get_int64() could not find "		\
		    "property '%s'", (propname));			\
		goto get_props_fail;                                    \
	}                                                               \
}

#define	eib_propstr_get_and_test(inst, dp, propname, propval_p)		\
{                                                                       \
	int rv;                                                         \
									\
	*(propval_p) = NULL;                                            \
									\
	rv = ddi_prop_lookup_string(DDI_DEV_T_ANY, (dp),                \
	    DDI_PROP_DONTPASS | DDI_PROP_NOTPROM, (propname),           \
	    (propval_p));                                               \
	if (rv != DDI_PROP_SUCCESS) {                                   \
		EIB_DPRINTF_WARN((inst), "eib_get_props: "		\
		    "ddi_prop_lookup_string() could not find "		\
		    "property '%s'", (propname));			\
		goto get_props_fail;                                    \
	}                                                               \
}

/*
 * HW/FW workarounds
 */

/*
 * 1. Verification of descriptor list length in the received packets is
 *    disabled, since experimentation shows that BX does not set the desc
 *    list length correctly. True for EoIB nexus as well.
 */
int eib_wa_no_desc_list_len = 1;

/*
 * 2. LSO/Checksum_Offload for EoIB packets does not seem to be supported
 *    currently, so we'll disable both temporarily.
 */
int eib_wa_no_cksum_offload = 1;
int eib_wa_no_lso = 1;

/*
 * 3. The "multicast entry" types are not clearly defined in the spec
 *    at the moment.  The current BX software/firmware appears to ignore
 *    the type of the context table entries, so we will treat these
 *    addresses just like regular vnic addresses.
 */
int eib_wa_no_mcast_entries = 1;

/*
 * 4. VHUB updates from the gateways provide us with destination LIDs,
 *    and we will hand-create these address vectors.
 */
int eib_wa_no_av_discover = 1;

/*
 * 5. The older BX software does not seem to set the VP flag correctly
 *    in the login acknowledgements even when it successfully allocates
 *    a vlan, so we will ignore it for now.
 */
int eib_wa_no_good_vp_flag = 1;

/*
 * 6. Each vhub table is expected to carry a checksum at the end to
 *    verify the contents of the received vhub table. The current BX
 *    software/firmware does not seem to fill this field with the
 *    correct value (and/or the spec description is ambiguous). We
 *    will ignore the vhub table checksum verification for now.
 */
int eib_wa_no_good_vhub_cksum = 1;

int
eib_get_props(eib_t *ss)
{
	int val;
	int64_t val64;
	char *str;
	clock_t gw_ka_usecs;
	clock_t vnic_ka_usecs;

	ss->ei_gw_props = kmem_zalloc(sizeof (eib_gw_props_t), KM_SLEEP);
	ss->ei_props = kmem_zalloc(sizeof (eib_props_t), KM_SLEEP);

	mutex_init(&ss->ei_gw_props->pp_gw_lock, NULL, MUTEX_DRIVER, NULL);

	/*
	 * The interface speed is currently set to 10Gb/s, since we don't
	 * have a way yet to figure this virtual-wire specific data from
	 * the gateway.  The rest of the properties are handed over to us
	 * by the EoIB nexus.
	 */
	ss->ei_props->ep_ifspeed = 10000000000;

	eib_prop64_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_HCA_GUID, val64);
	ss->ei_props->ep_hca_guid = (ib_guid_t)val64;

	eib_prop64_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_SYS_GUID, val64);
	ss->ei_gw_props->pp_gw_system_guid = (ib_guid_t)val64;

	eib_prop64_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_GUID, val64);
	ss->ei_gw_props->pp_gw_guid = (ib_guid_t)val64;

	eib_prop64_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_SN_PREFIX, val64);
	ss->ei_gw_props->pp_gw_sn_prefix = (ib_sn_prefix_t)val64;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_ADV_PERIOD, val);
	ss->ei_gw_props->pp_gw_adv_period = (uint_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_KA_PERIOD, val);
	ss->ei_gw_props->pp_gw_ka_period = (uint_t)val;

	gw_ka_usecs = ss->ei_gw_props->pp_gw_ka_period * 1000;
	gw_ka_usecs = ((gw_ka_usecs << 2) + gw_ka_usecs) >> 1;
	ss->ei_gw_props->pp_gw_ka_ticks = drv_usectohz(gw_ka_usecs);

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_VNIC_KA_PERIOD, val);
	ss->ei_gw_props->pp_vnic_ka_period = (uint_t)val;

	vnic_ka_usecs = ss->ei_gw_props->pp_vnic_ka_period * 1000;
	ss->ei_gw_props->pp_vnic_ka_ticks = drv_usectohz(vnic_ka_usecs);

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_CTRL_QPN, val);
	ss->ei_gw_props->pp_gw_ctrl_qpn = (ib_qpn_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_LID, val);
	ss->ei_gw_props->pp_gw_lid = (ib_lid_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_PORTID, val);
	ss->ei_gw_props->pp_gw_portid = (uint16_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_NUM_NET_VNICS, val);
	ss->ei_gw_props->pp_gw_num_net_vnics = (uint16_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_AVAILABLE, val);
	ss->ei_gw_props->pp_gw_flag_available = (uint8_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_HOST_VNICS, val);
	ss->ei_gw_props->pp_gw_is_host_adm_vnics = (uint8_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_SL, val);
	ss->ei_gw_props->pp_gw_sl = (uint8_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_N_RSS_QPN, val);
	ss->ei_gw_props->pp_gw_n_rss_qpn = (uint8_t)val;

	eib_prop_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_HCA_PORTNUM, val);
	ss->ei_props->ep_port_num = (uint8_t)val;

	eib_propstr_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_SYS_NAME, &str);
	ss->ei_gw_props->pp_gw_system_name = (uint8_t *)str;

	eib_propstr_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_PORT_NAME, &str);
	ss->ei_gw_props->pp_gw_port_name = (uint8_t *)str;

	eib_propstr_get_and_test(ss->ei_instance, ss->ei_dip,
	    EIB_PROP_GW_VENDOR_ID, &str);
	ss->ei_gw_props->pp_gw_vendor_id = (uint8_t *)str;

	return (EIB_E_SUCCESS);

get_props_fail:
	eib_rb_get_props(ss);
	return (EIB_E_FAILURE);
}

void
eib_update_props(eib_t *ss, eib_gw_info_t *new_gw_info)
{
	eib_gw_props_t *gwp = ss->ei_gw_props;
	dev_info_t *dip = ss->ei_dip;
	char *str;

	ASSERT(gwp != NULL && dip != NULL);

	mutex_enter(&gwp->pp_gw_lock);

	gwp->pp_gw_system_guid = new_gw_info->gi_system_guid;
	(void) ddi_prop_update_int64(DDI_DEV_T_NONE, dip, EIB_PROP_GW_SYS_GUID,
	    gwp->pp_gw_system_guid);

	gwp->pp_gw_guid = new_gw_info->gi_guid;
	(void) ddi_prop_update_int64(DDI_DEV_T_NONE, dip, EIB_PROP_GW_GUID,
	    gwp->pp_gw_guid);

	gwp->pp_gw_sn_prefix = new_gw_info->gi_sn_prefix;
	(void) ddi_prop_update_int64(DDI_DEV_T_NONE, dip, EIB_PROP_GW_SN_PREFIX,
	    gwp->pp_gw_sn_prefix);

	gwp->pp_gw_adv_period = new_gw_info->gi_adv_period;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_ADV_PERIOD,
	    gwp->pp_gw_adv_period);

	gwp->pp_gw_ka_period = new_gw_info->gi_ka_period;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_KA_PERIOD,
	    gwp->pp_gw_ka_period);

	gwp->pp_vnic_ka_period = new_gw_info->gi_vnic_ka_period;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_VNIC_KA_PERIOD,
	    gwp->pp_vnic_ka_period);

	gwp->pp_gw_ctrl_qpn = new_gw_info->gi_ctrl_qpn;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_CTRL_QPN,
	    gwp->pp_gw_ctrl_qpn);

	gwp->pp_gw_lid = new_gw_info->gi_lid;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_LID,
	    gwp->pp_gw_lid);

	gwp->pp_gw_portid = new_gw_info->gi_portid;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_PORTID,
	    gwp->pp_gw_portid);

	gwp->pp_gw_num_net_vnics = new_gw_info->gi_num_net_vnics;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip,
	    EIB_PROP_GW_NUM_NET_VNICS, gwp->pp_gw_num_net_vnics);

	gwp->pp_gw_flag_available = new_gw_info->gi_flag_available;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_AVAILABLE,
	    gwp->pp_gw_flag_available);

	gwp->pp_gw_is_host_adm_vnics = new_gw_info->gi_is_host_adm_vnics;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_HOST_VNICS,
	    gwp->pp_gw_is_host_adm_vnics);

	gwp->pp_gw_sl = new_gw_info->gi_sl;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_SL,
	    gwp->pp_gw_sl);

	gwp->pp_gw_n_rss_qpn = new_gw_info->gi_n_rss_qpn;
	(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip, EIB_PROP_GW_N_RSS_QPN,
	    gwp->pp_gw_n_rss_qpn);

	(void) ddi_prop_update_string(DDI_DEV_T_NONE, dip,
	    EIB_PROP_GW_SYS_NAME, (char *)(new_gw_info->gi_system_name));
	(void) ddi_prop_lookup_string(DDI_DEV_T_ANY, dip,
	    DDI_PROP_DONTPASS | DDI_PROP_NOTPROM, EIB_PROP_GW_SYS_NAME, &str);
	if (gwp->pp_gw_system_name) {
		ddi_prop_free(gwp->pp_gw_system_name);
	}
	gwp->pp_gw_system_name = (uint8_t *)str;

	(void) ddi_prop_update_string(DDI_DEV_T_NONE, dip,
	    EIB_PROP_GW_PORT_NAME, (char *)(new_gw_info->gi_port_name));
	(void) ddi_prop_lookup_string(DDI_DEV_T_ANY, dip,
	    DDI_PROP_DONTPASS | DDI_PROP_NOTPROM, EIB_PROP_GW_PORT_NAME, &str);
	if (gwp->pp_gw_port_name) {
		ddi_prop_free(gwp->pp_gw_port_name);
	}
	gwp->pp_gw_port_name = (uint8_t *)str;

	(void) ddi_prop_update_string(DDI_DEV_T_NONE, dip,
	    EIB_PROP_GW_VENDOR_ID, (char *)(new_gw_info->gi_vendor_id));
	(void) ddi_prop_lookup_string(DDI_DEV_T_ANY, dip,
	    DDI_PROP_DONTPASS | DDI_PROP_NOTPROM, EIB_PROP_GW_VENDOR_ID, &str);
	if (gwp->pp_gw_vendor_id) {
		ddi_prop_free(gwp->pp_gw_vendor_id);
	}
	gwp->pp_gw_vendor_id = (uint8_t *)str;

	mutex_exit(&gwp->pp_gw_lock);
}

void
eib_rb_get_props(eib_t *ss)
{
	/*
	 * Free any allocations
	 */
	if (ss->ei_gw_props->pp_gw_vendor_id) {
		ddi_prop_free(ss->ei_gw_props->pp_gw_vendor_id);
		ss->ei_gw_props->pp_gw_vendor_id = NULL;
	}
	if (ss->ei_gw_props->pp_gw_port_name) {
		ddi_prop_free(ss->ei_gw_props->pp_gw_port_name);
		ss->ei_gw_props->pp_gw_port_name = NULL;
	}
	if (ss->ei_gw_props->pp_gw_system_name) {
		ddi_prop_free(ss->ei_gw_props->pp_gw_system_name);
		ss->ei_gw_props->pp_gw_system_name = NULL;
	}

	mutex_destroy(&ss->ei_gw_props->pp_gw_lock);

	/*
	 * Free space allocated for holding the props
	 */
	kmem_free(ss->ei_props, sizeof (eib_props_t));
	kmem_free(ss->ei_gw_props, sizeof (eib_gw_props_t));

	ss->ei_props = NULL;
	ss->ei_gw_props = NULL;
}