* Copyright (c) 2010, 2015, Oracle and/or its affiliates. All rights reserved.

/*

 * Some useful definitions.

 */

#define	IB_HCA_DEVPATH_SZ			64

#define	MAX_OFS_DEVPATH_LEN			64

 * Ugly, evil and rest of the names that qualify for it.

 * This is a side definition for the uverbs hca_info till the

 * new header file can appear in the userland build environment once that

 * happens this code will go.

 */

#if	(IB_USER_VERBS_SOLARIS_ABI_VERSION == 2)

#undef	IB_USER_VERBS_SOLARIS_ABI_VERSION

#define	IB_USER_VERBS_SOLARIS_ABI_VERSION	3

#define	__VERBS_COMPAT_MODE	1

/*

 * Some useful definitions.

 */

#define	PSID_STR_SZ		40

#define	IBDEV_NAME_SZ		64

#define	HCA_DRIVER_NAME_SZ	40

#define	DEVID_STR_SZ		40

/*

 * These are duplicate definitions to help the build complete on userland

 * build machines till the header files are populated with the new versions.

 * Once the new header file is available in the build system this code will

 * be removed.

 */

typedef struct sol_uverbs_hca_infov3_s {

	char		uverbs_hca_psid_string[PSID_STR_SZ];

	char		uverbs_hca_ibdev_name[IBDEV_NAME_SZ];

	char		uverbs_hca_driver_name[HCA_DRIVER_NAME_SZ];

	uint32_t	uverbs_hca_driver_instance;

	uint32_t	uverbs_hca_vendorid;

	uint16_t	uverbs_hca_deviceid;

	uint16_t	uverbs_hca_devidx;

	int32_t		uverbs_hca_abi_version;

	uint64_t	uverbs_hca_fw_ver;

	uint64_t	uverbs_hca_node_guid;

	uint64_t	uverbs_hca_node_external_guid;

	uint64_t	uverbs_hca_sys_image_guid;

	uint32_t	uverbs_hca_hw_version;

	uint8_t		uverbs_hca_pad1[4];

	char		uverbs_hca_devid_string[DEVID_STR_SZ];

} sol_uverbs_hca_infov3_t;

typedef struct sol_uverbs_info_v3_s {

	int32_t			uverbs_abi_version;

	int32_t			uverbs_solaris_abi_version;

	int16_t			uverbs_hca_cnt;

	int8_t			uverbs_pad1[6]; /* Padding for alignment */

	sol_uverbs_hca_infov3_t uverbs_hca_info[];

} sol_uverbs_infov3_t;

#define	SIZEOF_UVERBS_INFO	(sizeof (sol_uverbs_infov3_t))

#define	SIZEOF_HCA_INFO		(sizeof (sol_uverbs_hca_infov3_t))

#define	UVERBS_INFO(x)		((sol_uverbs_infov3_t *)x)

#define	HCA_INFO(x)		((sol_uverbs_hca_infov3_t *)x)

#else /* (IB_USER_VERBS_SOLARIS_ABI_VERSION == 3) */

#define	SIZEOF_UVERBS_INFO	(sizeof (sol_uverbs_info_t))

#define	SIZEOF_HCA_INFO		(sizeof (sol_uverbs_hca_info_t))

#define	UVERBS_INFO(x)		((sol_uverbs_info_t *)x)

#define	HCA_INFO(x)		((sol_uverbs_hca_info_t *)x)

#endif /* END */

/*

	CP_PORTS		= 6,

	CP_UMAD			= 7,

	CP_SLASH		= 8,

	CP_SYS			= 9,

	CP_CLASS		= 10,

	CP_INFINIBAND_VERBS	= 11,

	CP_INFINIBAND		= 12,

	CP_INFINIBAND_MAD	= 13,

	CP_MISC			= 14,

	CP_RDMA_CM		= 15

	boolean_t			ibd_valid;

	uint_t				ibd_hw_rev;

	uint_t				ibd_abi_version;

	uint_t				ibd_vendor_id;

	uint_t				ibd_device_id;

	char				ibd_hca_path[IB_HCA_DEVPATH_SZ];

	char				ibd_node_guid_str[20];

	char				ibd_node_guid_external_str[20];

	char				ibd_sys_image_guid[20];

	char				ibd_fw_ver[16];

	char				ibd_name[IBDEV_NAME_SZ];

	char				ibd_boardid_string[PSID_STR_SZ];

	char				ibd_devid_string[DEVID_STR_SZ];

/* IB device info cache */

static ibdev_cache_info_t	ibdev_cache[MAX_HCAS];

#define	isdigit(c)	((c) >= '0' && (c) <= '9')

/*

 * Given a device name of the form <driver-prefix><instance>,

 * get the device number. Device name is of the form

 * for example:- mlx4_0, mlx4_2 etc. Function will return the device instance

 * extracted from the name.

 * for example:- mlx4_0 will return 0 and mlx4_2 will return 2.

 */

static int

get_device_num(const char *device_name)

{

	const char *temp;

	const char *end;

	const char *start = device_name;

	int len;

	int devnum;

	if (!start)

		return (-1);

	len = strlen(device_name);

	end = &device_name[len - 1];

	for (temp = end; temp >= start && isdigit(*temp); temp--)

		/* Null body */;

	/*

	 * Check if the device number is invalid.

	 */

	if (temp == end || temp < start)

		return (-1);

	devnum = atoi(temp + 1);

	if (devnum < 0 || devnum >= MAX_HCAS)

		return (-1);

	return (devnum);

}

/*

 * For usages where ibdev cache needs to be read based on the IB device

 * name instead of uverbs device name a simple compare against the cache

 * entries is used to retrieve the corresponding ibdev cache entry.

 */

static ibdev_cache_info_t *

ibdev_cache_read_by_devname(const char *devname)

{

	int idx;

	ibdev_cache_info_t *cache = NULL;

	if (!devname)

		return (NULL);

	for (idx = 0; idx < MAX_HCAS; idx++) {

		cache = &ibdev_cache[idx];

		if (strcmp(cache->ibd_name, devname) == 0)

			break;

	}

	/*

	 * If we failed to find an entry return NULL.

	 */

	if (idx == MAX_HCAS)

		cache = NULL;

	return (cache);

}

/*

 * Helper function to update the ibdev cache entries with the values obtained

 * from the uverbs HCA info ioctl.

 */

static int

ibdev_cache_init()

{

	ibdev_cache_info_t		*info;

	int				fd, i, hca_cnt;

	char				uverbs_devpath[MAX_OFS_DEVPATH_LEN];

#ifdef	__VERBS_COMPAT_MODE

	sol_uverbs_infov3_t		*uverbs_infop;

	sol_uverbs_hca_infov3_t		*hca_infop;

#else

	sol_uverbs_info_t		*uverbs_infop;

	sol_uverbs_hca_info_t		*hca_infop;

#endif /* END __VERBS_COMPAT_MODE */

	char 				*buf;

	size_t				bufsize;

	uint16_t			major, minor, sub_minor;

	uint64_t			raw_fw_ver;

	uint64_t			guid;

	snprintf(uverbs_devpath, MAX_OFS_DEVPATH_LEN, "%s/%s%d",

	    IB_OFS_DEVPATH_PREFIX, UVERBS_KERNEL_SYSFS_NAME_BASE,

	    sol_uverbs_minor_dev);

	/*

	 * using the first sol_uverbs minor node that can be opened to get

	 * all the HCA information

	 */

	if ((fd = open(uverbs_devpath, O_RDWR)) < 0) {

		fprintf(stderr, "sol_uverbs failed to open: %s\n",

		    strerror(errno));

		return (-1);

	}

	bufsize = SIZEOF_UVERBS_INFO + (MAX_HCAS * SIZEOF_HCA_INFO);

	buf = malloc(bufsize);

	if (!buf) {

		fprintf(stderr, "ibdev_cache_update() failed to alloc\n");

		close(fd);

		return (-1);

	}

	memset(buf, 0, bufsize);

	uverbs_infop = UVERBS_INFO(buf);

	uverbs_infop->uverbs_hca_cnt = MAX_HCAS;

	if (ioctl(fd, UVERBS_IOCTL_GET_HCA_INFO, uverbs_infop) != 0) {

		fprintf(stderr, "sol_uverbs ioctl failed: %s\n",

		    strerror(errno));

		goto error_exit1;

	}

	if (uverbs_infop->uverbs_solaris_abi_version !=

	    IB_USER_VERBS_SOLARIS_ABI_VERSION) {

		fprintf(stderr, "sol_uverbs solaris_abi_version !="

		    "IB_USER_VERBS_SOLARIS_ABI_VERSION : %d\n",

		    uverbs_infop->uverbs_solaris_abi_version);

		goto error_exit1;

	}

	hca_cnt = uverbs_infop->uverbs_hca_cnt;	/* hca count returned */

	hca_infop = uverbs_infop->uverbs_hca_info;

	if (hca_cnt > MAX_HCAS) {

		fprintf(stderr, "Number of HCAs returned exceeds max\n");

		goto error_exit1;

	}

	if (uverbs_abi_version == -1)

		uverbs_abi_version = uverbs_infop->uverbs_abi_version;

	for (i = 0; i < hca_cnt; i++, hca_infop++) {

		/*

		 * Update the cache.

		 */

		info = &ibdev_cache[hca_infop->uverbs_hca_devidx];

		(void) strncpy(info->ibd_name,

		    hca_infop->uverbs_hca_ibdev_name, IBDEV_NAME_SZ);

		guid = hca_infop->uverbs_hca_node_guid;

		sprintf(info->ibd_node_guid_str, "%04x:%04x:%04x:%04x",

		    (unsigned)(guid >> 48) & 0xffff,

		    (unsigned)(guid >> 32) & 0xffff,

		    (unsigned)(guid >> 16) & 0xffff,

		    (unsigned)(guid >>  0) & 0xffff);

		guid = hca_infop->uverbs_hca_node_external_guid;

		sprintf(info->ibd_node_guid_external_str, "%04x:%04x:%04x:%04x",

		    (unsigned)(guid >> 48) & 0xffff,

		    (unsigned)(guid >> 32) & 0xffff,

		    (unsigned)(guid >> 16) & 0xffff,

		    (unsigned)(guid >>  0) & 0xffff);

		guid = hca_infop->uverbs_hca_sys_image_guid;

		sprintf(info->ibd_sys_image_guid, "%04x:%04x:%04x:%04x",

		    (unsigned)(guid >> 48) & 0xffff,

		    (unsigned)(guid >> 32) & 0xffff,

		    (unsigned)(guid >> 16) & 0xffff,

		    (unsigned)(guid >>  0) & 0xffff);

		raw_fw_ver = hca_infop->uverbs_hca_fw_ver;

		major	   = (raw_fw_ver >> 32) & 0xffff;

		minor	   = (raw_fw_ver >> 16) & 0xffff;

		sub_minor  = raw_fw_ver & 0xffff;

		snprintf(info->ibd_fw_ver, sizeof (info->ibd_fw_ver),

		    "%d.%d.%03d", major, minor, sub_minor);

		info->ibd_hw_rev	= hca_infop->uverbs_hca_hw_version;

		info->ibd_vendor_id	= hca_infop->uverbs_hca_vendorid;

		info->ibd_device_id	= hca_infop->uverbs_hca_deviceid;

		info->ibd_abi_version	= hca_infop->uverbs_hca_abi_version;

		snprintf(info->ibd_hca_path, sizeof (info->ibd_hca_path),

		    "%s/%s%d", IB_HCA_DEVPATH_PREFIX,

		    hca_infop->uverbs_hca_driver_name,

		    hca_infop->uverbs_hca_driver_instance);

		strncpy(info->ibd_boardid_string,

		    hca_infop->uverbs_hca_psid_string, PSID_STR_SZ);

		strncpy(info->ibd_devid_string,

		    hca_infop->uverbs_hca_devid_string, DEVID_STR_SZ);

		info->ibd_valid = B_TRUE;

	}

	free(buf);

	close(fd);

	return (0);

error_exit1:

	free(buf);

	close(fd);

	return (-1);

}

	char				umad_devpath[MAX_OFS_DEVPATH_LEN], *buf;

		snprintf(umad_devpath, MAX_OFS_DEVPATH_LEN, "%s/%s%d",