/*

 * Copyright (c) 2004-2008 Voltaire, Inc. All rights reserved.

 * Copyright (c) 2002-2005 Mellanox Technologies LTD. All rights reserved.

 * Copyright (c) 1996-2003 Intel Corporation. All rights reserved.

 *

 * This software is available to you under a choice of one of two

 * licenses.  You may choose to be licensed under the terms of the GNU

 * General Public License (GPL) Version 2, available from the file

 * COPYING in the main directory of this source tree, or the

 * OpenIB.org BSD license below:

 *

 *     Redistribution and use in source and binary forms, with or

 *     without modification, are permitted provided that the following

 *     conditions are met:

 *

 *      - Redistributions of source code must retain the above

 *        copyright notice, this list of conditions and the following

 *        disclaimer.

 *

 *      - Redistributions in binary form must reproduce the above

 *        copyright notice, this list of conditions and the following

 *        disclaimer in the documentation and/or other materials

 *        provided with the distribution.

 *

 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS

 * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN

 * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE

 * SOFTWARE.

 *

 */

#if HAVE_CONFIG_H

#  include <config.h>

#endif				/* HAVE_CONFIG_H */

#if defined(OSM_VENDOR_INTF_MTL) | defined(OSM_VENDOR_INTF_TS)

#undef IN

#undef OUT

#include <vendor/osm_vendor_api.h>

#include <opensm/osm_log.h>

#include <stdlib.h>

#include <stdio.h>

#include <sys/types.h>

#include <dirent.h>

#include <stdio.h>

#include <sys/stat.h>

#include <stdint.h>

#include <fcntl.h>

/********************************************************************************

 *

 * Provides the functionality for selecting an HCA Port and Obtaining it's guid.

 * This version is based on /proc/infiniband file system. So it is limited to

 * The gen1 of openib.org stack.

 *

 ********************************************************************************/

typedef struct _osm_ca_info {

	ib_net64_t guid;

	size_t attr_size;

	ib_ca_attr_t *p_attr;

} osm_ca_info_t;

/**********************************************************************

 * Returns a pointer to the port attribute of the specified port

 * owned by this CA.

 ************************************************************************/

static ib_port_attr_t *__osm_ca_info_get_port_attr_ptr(IN const osm_ca_info_t *

						       const p_ca_info,

						       IN const uint8_t index)

{

	return (&p_ca_info->p_attr->p_port_attr[index]);

}

/**********************************************************************

 * Obtain the number of local CAs by scanning /proc/infiniband/core

 **********************************************************************/

int __hca_pfs_get_num_cas()

{

	int num_cas = 0;

	DIR *dp;

	struct dirent *ep;

	dp = opendir("/proc/infiniband/core");

	if (dp != NULL) {

		while ((ep = readdir(dp))) {

			/* CAs are directories with the format ca[1-9][0-9]* */

			if ((ep->d_type == DT_DIR)

			    && !strncmp(ep->d_name, "ca", 2)) {

				num_cas++;

			}

		}

		closedir(dp);

	}

	return num_cas;

}

/*

  name:          InfiniHost0

  provider:      tavor

  node GUID:     0002:c900:0120:3470

  ports:         2

  vendor ID:     0x2c9

  device ID:     0x5a44

  HW revision:   0xa1

  FW revision:   0x300020080

*/

typedef struct _pfs_ca_info {

	char name[32];

	char provider[32];

	uint64_t guid;

	uint8_t num_ports;

	uint32_t vend_id;

	uint16_t dev_id;

	uint16_t rev_id;

	uint64_t fw_rev;

} pfs_ca_info_t;

/**********************************************************************

 * Parse the CA Info file available in /proc/infiniband/core/caN/info

 **********************************************************************/

static ib_api_status_t

__parse_ca_info_file(IN osm_vendor_t * const p_vend,

		     IN uint32_t idx, OUT pfs_ca_info_t * pfs_ca_info)

{

	ib_api_status_t status = IB_ERROR;

	int info_file;

	char file_name[256];

	char file_buffer[3200];

	char *p_ch;

	int g1, g2, g3, g4;

	int num_ports;

	uint32_t len;

	OSM_LOG_ENTER(p_vend->p_log);

	osm_log(p_vend->p_log, OSM_LOG_DEBUG,

		"__parse_ca_info_file: " "Querying CA %d.\n", idx);

	/* we use the proc file system so we must be able to open the info file .. */

	sprintf(file_name, "/proc/infiniband/core/ca%d/info", idx);

	info_file = open(file_name, O_RDONLY);

	if (!info_file) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_ca_info_file: ERR 5205: "

			"Fail to open HCA:%d info file:(%s).\n", idx,

			file_name);

		goto Exit;

	}

	/* read in the file */

	len = read(info_file, file_buffer, 3200);

	close(info_file);

	file_buffer[len] = '\0';

	/*

	   parse the file ...

	   name:          InfiniHost0

	   provider:      tavor

	   node GUID:     0002:c900:0120:3470

	   ports:         2

	   vendor ID:     0x2c9

	   device ID:     0x5a44

	   HW revision:   0xa1

	   FW revision:   0x300020080

	 */

	if (!(p_ch = strstr(file_buffer, "name:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_ca_info_file: ERR 5206: "

			"Fail to obtain HCA name. In info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "name: %s", pfs_ca_info->name) != 1) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_ca_info_file: ERR 5207: "

			"Fail to parse name in info file:(%s).\n", p_ch);

		goto Exit;

	}

	/* get the guid of the HCA */

	if (!(p_ch = strstr(file_buffer, "node GUID:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_ca_info_file: ERR 5208: "

			"Fail to obtain GUID in info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "node GUID: %x:%x:%x:%x", &g1, &g2, &g3, &g4) != 4) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_ca_info_file: ERR 5209: "

			"Fail to parse GUID in info file:(%s).\n", p_ch);

		goto Exit;

	}

	pfs_ca_info->guid = (uint64_t) g1 << 48 | (uint64_t) g1 << 32

	    | (uint64_t) g1 << 16 | (uint64_t) g3;

	/* obtain number of ports */

	if (!(p_ch = strstr(file_buffer, "ports:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_ca_info_file: ERR 5210: "

			"Fail to obtain number of ports in info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "ports: %d", &num_ports) != 1) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_ca_info_file: ERR 5211: "

			"Fail to parse num ports in info file:(%s).\n", p_ch);

		goto Exit;

	}

	pfs_ca_info->num_ports = num_ports;

	osm_log(p_vend->p_log, OSM_LOG_DEBUG,

		"__parse_ca_info_file: "

		"CA1 = name:%s guid:0x%016llx ports:%d\n",

		pfs_ca_info->name, pfs_ca_info->guid, pfs_ca_info->num_ports);

	status = IB_SUCCESS;

Exit:

	OSM_LOG_EXIT(p_vend->p_log);

	return status;

}

/*

  state:         ACTIVE

  LID:           0x0001

  LMC:           0x0000

  SM LID:        0x0001

  SM SL:         0x0000

  Capabilities:  IsSM

  IsTrapSupported

  IsAutomaticMigrationSupported

  IsSLMappingSupported

  IsLEDInfoSupported

  IsSystemImageGUIDSupported

  IsVendorClassSupported

  IsCapabilityMaskNoticeSupported

*/

typedef struct _pfs_port_info {

	uint8_t state;

	uint16_t lid;

	uint8_t lmc;

	uint16_t sm_lid;

	uint8_t sm_sl;

} pfs_port_info_t;

/**********************************************************************

 * Parse the Port Info file available in /proc/infiniband/core/caN/portM/info

 * Port num is 1..N

 **********************************************************************/

static ib_api_status_t

__parse_port_info_file(IN osm_vendor_t * const p_vend,

		       IN uint32_t hca_idx,

		       IN uint8_t port_num, OUT pfs_port_info_t * pfs_port_info)

{

	ib_api_status_t status = IB_ERROR;

	int info_file;

	char file_name[256];

	char file_buffer[3200];

	char state[12];

	char *p_ch;

	int lid, sm_lid, lmc, sm_sl;

	uint32_t len;

	OSM_LOG_ENTER(p_vend->p_log);

	osm_log(p_vend->p_log, OSM_LOG_DEBUG,

		"__parse_port_info_file: "

		"Parsing Proc File System Port Info CA %d Port %d.\n", hca_idx,

		port_num);

	/* we use the proc file system so we must be able to open the info file .. */

	sprintf(file_name, "/proc/infiniband/core/ca%d/port%d/info", hca_idx,

		port_num);

	info_file = open(file_name, O_RDONLY);

	if (!info_file) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5212: "

			"Fail to open HCA:%d Port:%d info file:(%s).\n",

			hca_idx, port_num, file_name);

		goto Exit;

	}

	/* read in the file */

	len = read(info_file, file_buffer, 3200);

	close(info_file);

	file_buffer[len] = '\0';

	/*

	   parse the file ...

	   state:         ACTIVE

	   LID:           0x0001

	   LMC:           0x0000

	   SM LID:        0x0001

	   SM SL:         0x0000

	   ...

	 */

	if (!(p_ch = strstr(file_buffer, "state:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5213: "

			"Fail to obtain port state. In info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "state: %s", state) != 1) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5214: "

			"Fail to parse state from info file:(%s).\n", p_ch);

		goto Exit;

	}

	if (!strcmp(state, "ACTIVE"))

		pfs_port_info->state = IB_LINK_ACTIVE;

	else if (!strcmp(state, "DOWN"))

		pfs_port_info->state = IB_LINK_DOWN;

	else if (!strcmp(state, "INIT"))

		pfs_port_info->state = IB_LINK_INIT;

	else if (!strcmp(state, "ARMED"))

		pfs_port_info->state = IB_LINK_ARMED;

	else

		pfs_port_info->state = 0;

	/* get lid */

	if (!(p_ch = strstr(file_buffer, "LID:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5215: "

			"Fail to obtain port lid. In info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "LID: %x", &lid) != 1) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5216: "

			"Fail to parse lid from info file:(%s).\n", p_ch);

		goto Exit;

	}

	pfs_port_info->lid = lid;

	/* get LMC */

	if (!(p_ch = strstr(file_buffer, "LMC:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5217: "

			"Fail to obtain port LMC. In info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "LMC: %x", &lmc) != 1) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5218: "

			"Fail to parse LMC from info file:(%s).\n", p_ch);

		goto Exit;

	}

	pfs_port_info->lmc = lmc;

	/* get SM LID */

	if (!(p_ch = strstr(file_buffer, "SM LID:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5219: "

			"Fail to obtain port SM LID. In info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "SM LID: %x", &sm_lid) != 1) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5220: "

			"Fail to parse SM LID from info file:(%s).\n", p_ch);

		goto Exit;

	}

	pfs_port_info->sm_lid = sm_lid;

	/* get SM LID */

	if (!(p_ch = strstr(file_buffer, "SM SL:"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5221: "

			"Fail to obtain port SM SL. In info file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch, "SM SL: %x", &sm_sl) != 1) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__parse_port_info_file: ERR 5222: "

			"Fail to parse SM SL from info file:(%s).\n", p_ch);

		goto Exit;

	}

	pfs_port_info->sm_sl = sm_sl;

	osm_log(p_vend->p_log, OSM_LOG_DEBUG,

		"__parse_port_info_file:  "

		"Obtained Port:%d = state:%d, lid:0x%04X, lmc:%d, sm_lid:0x%04X, sm_sl:%d\n",

		port_num, pfs_port_info->state, pfs_port_info->lid,

		pfs_port_info->lmc, pfs_port_info->sm_lid,

		pfs_port_info->sm_sl);

	status = IB_SUCCESS;

Exit:

	OSM_LOG_EXIT(p_vend->p_log);

	return status;

}

/**********************************************************************

 * Parse the port guid_tbl file to obtain the port guid.

 * File format is:

 * [  0] fe80:0000:0000:0000:0002:c900:0120:3472

 **********************************************************************/

static ib_api_status_t

__get_port_guid_from_port_gid_tbl(IN osm_vendor_t * const p_vend,

				  IN uint32_t hca_idx,

				  IN uint8_t port_num, OUT uint64_t * port_guid)

{

	ib_api_status_t status = IB_ERROR;

	int info_file;

	char file_name[256];

	char file_buffer[3200];

	char *p_ch;

	int g[8];

	uint32_t len;

	OSM_LOG_ENTER(p_vend->p_log);

	osm_log(p_vend->p_log, OSM_LOG_DEBUG,

		"__get_port_guid_from_port_gid_tbl: "

		"Parsing Proc File System Port Guid Table CA %d Port %d.\n",

		hca_idx, port_num);

	/* we use the proc file system so we must be able to open the info file .. */

	sprintf(file_name, "/proc/infiniband/core/ca%d/port%d/gid_table",

		hca_idx, port_num);

	info_file = open(file_name, O_RDONLY);

	if (!info_file) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__get_port_guid_from_port_gid_tbl: ERR 5223: "

			"Fail to open HCA:%d Port:%d gid_table file:(%s).\n",

			hca_idx, port_num, file_name);

		goto Exit;

	}

	/* read in the file */

	len = read(info_file, file_buffer, 3200);

	close(info_file);

	file_buffer[len] = '\0';

	/*

	   parse the file ...

	   [  0] fe80:0000:0000:0000:0002:c900:0120:3472

	   ...

	 */

	if (!(p_ch = strstr(file_buffer, "[  0]"))) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__get_port_guid_from_port_gid_tbl: ERR 5224: "

			"Fail to obtain first gid index. In gid_table file:(%s).\n",

			file_buffer);

		goto Exit;

	}

	if (sscanf(p_ch + 6, "%x:%x:%x:%x:%x:%x:%x:%x",

		   &g[7], &g[6], &g[5], &g[4], &g[3], &g[2], &g[1], &g[0]) != 8)

	{

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"__get_port_guid_from_port_gid_tbl: ERR 5225: "

			"Fail to parse gid from gid_table file:(%s).\n", p_ch);

		goto Exit;

	}

	*port_guid =

	    (uint64_t) g[3] << 48 | (uint64_t) g[2] << 32 | (uint64_t) g[1] <<

	    16 | g[0];

	status = IB_SUCCESS;

Exit:

	OSM_LOG_EXIT(p_vend->p_log);

	return status;

}

/**********************************************************************

 * Initialize an Info Struct for the Given HCA by its index 1..N

 **********************************************************************/

static ib_api_status_t

__osm_ca_info_init(IN osm_vendor_t * const p_vend,

		   IN uint32_t const idx, OUT osm_ca_info_t * const p_ca_info)

{

	ib_api_status_t status = IB_ERROR;

	uint8_t port_num;

	uint64_t port_guid;

	pfs_ca_info_t pfs_ca_info;

	OSM_LOG_ENTER(p_vend->p_log);

	/* parse the CA info file */

	if (__parse_ca_info_file(p_vend, idx, &pfs_ca_info) != IB_SUCCESS)

		goto Exit;

	p_ca_info->guid = cl_hton64(pfs_ca_info.guid);

	/* set size of attributes and allocate them */

	p_ca_info->attr_size = 1;

	p_ca_info->p_attr = (ib_ca_attr_t *) malloc(sizeof(ib_ca_attr_t));

	p_ca_info->p_attr->ca_guid = p_ca_info->guid;

	p_ca_info->p_attr->num_ports = pfs_ca_info.num_ports;

	/* now obtain the attributes of the ports */

	p_ca_info->p_attr->p_port_attr =

	    (ib_port_attr_t *) malloc(pfs_ca_info.num_ports *

				      sizeof(ib_port_attr_t));

	/* get all the ports info */

	for (port_num = 1; port_num <= pfs_ca_info.num_ports; port_num++) {

		pfs_port_info_t pfs_port_info;

		/* query the port attributes */

		if (__parse_port_info_file

		    (p_vend, idx, port_num, &pfs_port_info)) {

			osm_log(p_vend->p_log, OSM_LOG_ERROR,

				"__osm_ca_info_init: ERR 5226: "

				"Fail to get HCA:%d Port:%d Attributes.\n", idx,

				port_num);

			goto Exit;

		}

		/* HACK: the lids should have been converted to network but the rest of the code

		   is wrong and provdes them as is (host order) - so we stick with it. */

		p_ca_info->p_attr->p_port_attr[port_num - 1].lid =

		    pfs_port_info.lid;

		p_ca_info->p_attr->p_port_attr[port_num - 1].link_state =

		    pfs_port_info.state;

		p_ca_info->p_attr->p_port_attr[port_num - 1].sm_lid =

		    pfs_port_info.sm_lid;

		/* get the port guid */

		if (__get_port_guid_from_port_gid_tbl

		    (p_vend, idx, port_num, &port_guid)) {

			osm_log(p_vend->p_log, OSM_LOG_ERROR,

				"__osm_ca_info_init: ERR 5227: "

				"Fail to get HCA:%d Port:%d Guid.\n", idx,

				port_num);

			goto Exit;

		}

		p_ca_info->p_attr->p_port_attr[port_num - 1].port_guid =

		    cl_hton64(port_guid);

	}

	status = IB_SUCCESS;

Exit:

	OSM_LOG_EXIT(p_vend->p_log);

	return (status);

}

void

osm_ca_info_destroy(IN osm_vendor_t * const p_vend,

		    IN osm_ca_info_t * const p_ca_info, IN uint8_t num_ca)

{

	osm_ca_info_t *p_ca;

	uint8_t i;

	OSM_LOG_ENTER(p_vend->p_log);

	for (i = 0; i < num_ca; i++) {

		p_ca = &p_ca_info[i];

		if (NULL != p_ca->p_attr) {

			if (0 != p_ca->p_attr->num_ports) {

				free(p_ca->p_attr->p_port_attr);

			}

			free(p_ca->p_attr);

		}

	}

	free(p_ca_info);

	OSM_LOG_EXIT(p_vend->p_log);

}

/**********************************************************************

 * Fill in the array of port_attr with all available ports on ALL the

 * avilable CAs on this machine.

 **********************************************************************/

ib_api_status_t

osm_vendor_get_all_port_attr(IN osm_vendor_t * const p_vend,

			     IN ib_port_attr_t * const p_attr_array,

			     IN uint32_t * const p_num_ports)

{

	ib_api_status_t status = IB_SUCCESS;

	uint32_t caIdx;

	uint32_t ca_count = 0;

	uint32_t port_count = 0;

	uint8_t port_num;

	uint32_t total_ports = 0;

	osm_ca_info_t *p_ca_infos = NULL;

	uint32_t attr_array_sz = *p_num_ports;

	OSM_LOG_ENTER(p_vend->p_log);

	CL_ASSERT(p_vend);

	/* determine the number of CA's */

	ca_count = __hca_pfs_get_num_cas();

	if (!ca_count) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"osm_vendor_get_all_port_attr: ERR 5228: "

			"Fail to get Any CA Ids.\n");

		goto Exit;

	}

	/* Allocate an array big enough to hold the ca info objects */

	p_ca_infos = malloc(ca_count * sizeof(osm_ca_info_t));

	if (p_ca_infos == NULL) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"osm_vendor_get_all_port_attr: ERR 5229: "

			"Unable to allocate CA information array.\n");

		goto Exit;

	}

	memset(p_ca_infos, 0, ca_count * sizeof(osm_ca_info_t));

	/*

	 * For each CA, retrieve the CA info attributes

	 */

	for (caIdx = 1; caIdx <= ca_count; caIdx++) {

		status =

		    __osm_ca_info_init(p_vend, caIdx, &p_ca_infos[caIdx - 1]);

		if (status != IB_SUCCESS) {

			osm_log(p_vend->p_log, OSM_LOG_ERROR,

				"osm_vendor_get_all_port_attr: ERR 5230: "

				"Unable to initialize CA Info object (%s).\n",

				ib_get_err_str(status));

			goto Exit;

		}

		total_ports += p_ca_infos[caIdx - 1].p_attr->num_ports;

	}

	*p_num_ports = total_ports;

	osm_log(p_vend->p_log, OSM_LOG_DEBUG,

		"osm_vendor_get_all_port_attr: total ports:%u \n", total_ports);

	/*

	 * If the user supplied enough storage, return the port guids,

	 * otherwise, return the appropriate error.

	 */

	if (attr_array_sz >= total_ports) {

		for (caIdx = 1; caIdx <= ca_count; caIdx++) {

			uint32_t num_ports;

			num_ports = p_ca_infos[caIdx - 1].p_attr->num_ports;

			for (port_num = 0; port_num < num_ports; port_num++) {

				p_attr_array[port_count] =

				    *__osm_ca_info_get_port_attr_ptr(&p_ca_infos

								     [caIdx -

								      1],

								     port_num);

				port_count++;

			}

		}

	} else {

		status = IB_INSUFFICIENT_MEMORY;

		goto Exit;

	}

	status = IB_SUCCESS;

Exit:

	if (p_ca_infos) {

		osm_ca_info_destroy(p_vend, p_ca_infos, ca_count);

	}

	OSM_LOG_EXIT(p_vend->p_log);

	return (status);

}

/**********************************************************************

 * Given the vendor obj and a port guid

 * return the ca id and port number that have that guid

 **********************************************************************/

ib_api_status_t

osm_vendor_get_guid_ca_and_port(IN osm_vendor_t * const p_vend,

				IN ib_net64_t const guid,

				OUT uint32_t * p_hca_hndl,

				OUT char *p_hca_id,

				OUT uint8_t * p_hca_idx,

				OUT uint32_t * p_port_num)

{

	uint32_t caIdx;

	uint32_t ca_count = 0;

	uint8_t port_num;

	ib_api_status_t status = IB_ERROR;

	OSM_LOG_ENTER(p_vend->p_log);

	CL_ASSERT(p_vend);

	/* determine the number of CA's */

	ca_count = __hca_pfs_get_num_cas();

	if (!ca_count) {

		osm_log(p_vend->p_log, OSM_LOG_ERROR,

			"osm_vendor_get_guid_ca_and_port: ERR 5231: "

			"Fail to get Any CA Ids.\n");

		goto Exit;

	}

	/*

	 * For each CA, retrieve the CA info attributes

	 */

	for (caIdx = 1; caIdx <= ca_count; caIdx++) {

		pfs_ca_info_t pfs_ca_info;

		if (__parse_ca_info_file(p_vend, caIdx, &pfs_ca_info) ==

		    IB_SUCCESS) {

			/* get all the ports info */

			for (port_num = 1; port_num <= pfs_ca_info.num_ports;

			     port_num++) {

				uint64_t port_guid;

				if (!__get_port_guid_from_port_gid_tbl

				    (p_vend, caIdx, port_num, &port_guid)) {

					if (cl_hton64(port_guid) == guid) {

						osm_log(p_vend->p_log,

							OSM_LOG_DEBUG,

							"osm_vendor_get_guid_ca_and_port: "

							"Found Matching guid on HCA:%d Port:%d.\n",

							caIdx, port_num);

						strcpy(p_hca_id,

						       pfs_ca_info.name);

						*p_port_num = port_num;

						*p_hca_idx = caIdx - 1;

						*p_hca_hndl = 0;

						status = IB_SUCCESS;

						goto Exit;

					}

				}

			}

		}

	}

	osm_log(p_vend->p_log, OSM_LOG_ERROR,

		"osm_vendor_get_guid_ca_and_port: ERR 5232: "

		"Fail to find HCA and Port for Port Guid 0x%" PRIx64 "\n",

		cl_ntoh64(guid));

	status = IB_INVALID_GUID;

Exit:

	OSM_LOG_EXIT(p_vend->p_log);

	return (status);

}

#endif