/*
* Copyright (C) 2009 Michael Brown <mbrown@fensystems.co.uk>.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License as
* published by the Free Software Foundation; either version 2 of the
* License, or any later version.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
FILE_LICENCE ( GPL2_OR_LATER );
#include <stdint.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <stdio.h>
#include <unistd.h>
#include <byteswap.h>
#include <gpxe/settings.h>
#include <gpxe/infiniband.h>
#include <gpxe/iobuf.h>
#include <gpxe/ib_mi.h>
#include <gpxe/ib_sma.h>
/**
* @file
*
* Infiniband Subnet Management Agent
*
*/
/**
* Node information
*
* @v ibdev Infiniband device
* @v mi Management interface
* @v mad Received MAD
* @v av Source address vector
*/
static void ib_sma_node_info ( struct ib_device *ibdev,
struct ib_mad_interface *mi,
union ib_mad *mad,
struct ib_address_vector *av ) {
struct ib_node_info *node_info = &mad->smp.smp_data.node_info;
int rc;
/* Fill in information */
memset ( node_info, 0, sizeof ( *node_info ) );
node_info->base_version = IB_MGMT_BASE_VERSION;
node_info->class_version = IB_SMP_CLASS_VERSION;
node_info->node_type = IB_NODE_TYPE_HCA;
node_info->num_ports = ib_get_hca_info ( ibdev, &node_info->sys_guid );
memcpy ( &node_info->node_guid, &node_info->sys_guid,
sizeof ( node_info->node_guid ) );
memcpy ( &node_info->port_guid, &ibdev->gid.u.half[1],
sizeof ( node_info->port_guid ) );
node_info->partition_cap = htons ( 1 );
node_info->local_port_num = ibdev->port;
/* Send GetResponse */
mad->hdr.method = IB_MGMT_METHOD_GET_RESP;
if ( ( rc = ib_mi_send ( ibdev, mi, mad, av ) ) != 0 ) {
DBGC ( mi, "SMA %p could not send NodeInfo GetResponse: %s\n",
mi, strerror ( rc ) );
return;
}
}
/**
* Node description
*
* @v ibdev Infiniband device
* @v mi Management interface
* @v mad Received MAD
* @v av Source address vector
*/
static void ib_sma_node_desc ( struct ib_device *ibdev,
struct ib_mad_interface *mi,
union ib_mad *mad,
struct ib_address_vector *av ) {
struct ib_node_desc *node_desc = &mad->smp.smp_data.node_desc;
struct ib_gid_half guid;
char hostname[ sizeof ( node_desc->node_string ) ];
int hostname_len;
int rc;
/* Fill in information */
memset ( node_desc, 0, sizeof ( *node_desc ) );
ib_get_hca_info ( ibdev, &guid );
hostname_len = fetch_string_setting ( NULL, &hostname_setting,
hostname, sizeof ( hostname ) );
snprintf ( node_desc->node_string, sizeof ( node_desc->node_string ),
"gPXE %s%s%02x:%02x:%02x:%02x:%02x:%02x:%02x:%02x (%s)",
hostname, ( ( hostname_len >= 0 ) ? " " : "" ),
guid.u.bytes[0], guid.u.bytes[1], guid.u.bytes[2],
guid.u.bytes[3], guid.u.bytes[4], guid.u.bytes[5],
guid.u.bytes[6], guid.u.bytes[7], ibdev->dev->name );
/* Send GetResponse */
mad->hdr.method = IB_MGMT_METHOD_GET_RESP;
if ( ( rc = ib_mi_send ( ibdev, mi, mad, av ) ) != 0 ) {
DBGC ( mi, "SMA %p could not send NodeDesc GetResponse: %s\n",
mi, strerror ( rc ) );
return;
}
}
/**
* GUID information
*
* @v ibdev Infiniband device
* @v mi Management interface
* @v mad Received MAD
* @v av Source address vector
*/
static void ib_sma_guid_info ( struct ib_device *ibdev,
struct ib_mad_interface *mi,
union ib_mad *mad,
struct ib_address_vector *av ) {
struct ib_guid_info *guid_info = &mad->smp.smp_data.guid_info;
int rc;
/* Fill in information */
memset ( guid_info, 0, sizeof ( *guid_info ) );
memcpy ( guid_info->guid[0], &ibdev->gid.u.half[1],
sizeof ( guid_info->guid[0] ) );
/* Send GetResponse */
mad->hdr.method = IB_MGMT_METHOD_GET_RESP;
if ( ( rc = ib_mi_send ( ibdev, mi, mad, av ) ) != 0 ) {
DBGC ( mi, "SMA %p could not send GuidInfo GetResponse: %s\n",
mi, strerror ( rc ) );
return;
}
}
/**
* Set port information
*
* @v ibdev Infiniband device
* @v mi Management interface
* @v mad Received MAD
* @ret rc Return status code
*/
static int ib_sma_set_port_info ( struct ib_device *ibdev,
struct ib_mad_interface *mi,
union ib_mad *mad ) {
const struct ib_port_info *port_info = &mad->smp.smp_data.port_info;
unsigned int link_width_enabled;
unsigned int link_speed_enabled;
int rc;
/* Set parameters */
memcpy ( &ibdev->gid.u.half[0], port_info->gid_prefix,
sizeof ( ibdev->gid.u.half[0] ) );
ibdev->lid = ntohs ( port_info->lid );
ibdev->sm_lid = ntohs ( port_info->mastersm_lid );
if ( ( link_width_enabled = port_info->link_width_enabled ) )
ibdev->link_width_enabled = link_width_enabled;
if ( ( link_speed_enabled =
( port_info->link_speed_active__link_speed_enabled & 0xf ) ) )
ibdev->link_speed_enabled = link_speed_enabled;
ibdev->sm_sl = ( port_info->neighbour_mtu__mastersm_sl & 0xf );
DBGC ( mi, "SMA %p set LID %04x SMLID %04x link width %02x speed "
"%02x\n", mi, ibdev->lid, ibdev->sm_lid,
ibdev->link_width_enabled, ibdev->link_speed_enabled );
/* Update parameters on device */
if ( ( rc = ib_set_port_info ( ibdev, mad ) ) != 0 ) {
DBGC ( mi, "SMA %p could not set port information: %s\n",
mi, strerror ( rc ) );
return rc;
}
return 0;
}
/**
* Port information
*
* @v ibdev Infiniband device
* @v mi Management interface
* @v mad Received MAD
* @v av Source address vector
*/
static void ib_sma_port_info ( struct ib_device *ibdev,
struct ib_mad_interface *mi,
union ib_mad *mad,
struct ib_address_vector *av ) {
struct ib_port_info *port_info = &mad->smp.smp_data.port_info;
int rc;
/* Set parameters if applicable */
if ( mad->hdr.method == IB_MGMT_METHOD_SET ) {
if ( ( rc = ib_sma_set_port_info ( ibdev, mi, mad ) ) != 0 ) {
mad->hdr.status =
htons ( IB_MGMT_STATUS_UNSUPPORTED_METHOD_ATTR );
/* Fall through to generate GetResponse */
}
}
/* Fill in information */
memset ( port_info, 0, sizeof ( *port_info ) );
memcpy ( port_info->gid_prefix, &ibdev->gid.u.half[0],
sizeof ( port_info->gid_prefix ) );
port_info->lid = ntohs ( ibdev->lid );
port_info->mastersm_lid = ntohs ( ibdev->sm_lid );
port_info->local_port_num = ibdev->port;
port_info->link_width_enabled = ibdev->link_width_enabled;
port_info->link_width_supported = ibdev->link_width_supported;
port_info->link_width_active = ibdev->link_width_active;
port_info->link_speed_supported__port_state =
( ( ibdev->link_speed_supported << 4 ) | ibdev->port_state );
port_info->port_phys_state__link_down_def_state =
( ( IB_PORT_PHYS_STATE_POLLING << 4 ) |
IB_PORT_PHYS_STATE_POLLING );
port_info->link_speed_active__link_speed_enabled =
( ( ibdev->link_speed_active << 4 ) |
ibdev->link_speed_enabled );
port_info->neighbour_mtu__mastersm_sl =
( ( IB_MTU_2048 << 4 ) | ibdev->sm_sl );
port_info->vl_cap__init_type = ( IB_VL_0 << 4 );
port_info->init_type_reply__mtu_cap = IB_MTU_2048;
port_info->operational_vls__enforcement = ( IB_VL_0 << 4 );
port_info->guid_cap = 1;
/* Send GetResponse */
mad->hdr.method = IB_MGMT_METHOD_GET_RESP;
if ( ( rc = ib_mi_send ( ibdev, mi, mad, av ) ) != 0 ) {
DBGC ( mi, "SMA %p could not send PortInfo GetResponse: %s\n",
mi, strerror ( rc ) );
return;
}
}
/**
* Set partition key table
*
* @v ibdev Infiniband device
* @v mi Management interface
* @v mad Received MAD
* @ret rc Return status code
*/
static int ib_sma_set_pkey_table ( struct ib_device *ibdev,
struct ib_mad_interface *mi,
union ib_mad *mad ) {
struct ib_pkey_table *pkey_table = &mad->smp.smp_data.pkey_table;
int rc;
/* Set parameters */
ibdev->pkey = ntohs ( pkey_table->pkey[0] );
DBGC ( mi, "SMA %p set pkey %04x\n", mi, ibdev->pkey );
/* Update parameters on device */
if ( ( rc = ib_set_pkey_table ( ibdev, mad ) ) != 0 ) {
DBGC ( mi, "SMA %p could not set pkey table: %s\n",
mi, strerror ( rc ) );
return rc;
}
return 0;
}
/**
* Partition key table
*
* @v ibdev Infiniband device
* @v mi Management interface
* @v mad Received MAD
* @v av Source address vector
*/
static void ib_sma_pkey_table ( struct ib_device *ibdev,
struct ib_mad_interface *mi,
union ib_mad *mad,
struct ib_address_vector *av ) {
struct ib_pkey_table *pkey_table = &mad->smp.smp_data.pkey_table;
int rc;
/* Set parameters, if applicable */
if ( mad->hdr.method == IB_MGMT_METHOD_SET ) {
if ( ( rc = ib_sma_set_pkey_table ( ibdev, mi, mad ) ) != 0 ) {
mad->hdr.status =
htons ( IB_MGMT_STATUS_UNSUPPORTED_METHOD_ATTR );
/* Fall through to generate GetResponse */
}
}
/* Fill in information */
mad->hdr.method = IB_MGMT_METHOD_GET_RESP;
memset ( pkey_table, 0, sizeof ( *pkey_table ) );
pkey_table->pkey[0] = htons ( ibdev->pkey );
/* Send GetResponse */
mad->hdr.method = IB_MGMT_METHOD_GET_RESP;
if ( ( rc = ib_mi_send ( ibdev, mi, mad, av ) ) != 0 ) {
DBGC ( mi, "SMA %p could not send PKeyTable GetResponse: %s\n",
mi, strerror ( rc ) );
return;
}
}
/** Subnet management agent */
struct ib_mad_agent ib_sma_agent[] __ib_mad_agent = {
{
.mgmt_class = IB_MGMT_CLASS_SUBN_LID_ROUTED,
.class_version = IB_SMP_CLASS_VERSION,
.attr_id = htons ( IB_SMP_ATTR_NODE_INFO ),
.handle = ib_sma_node_info,
},
{
.mgmt_class = IB_MGMT_CLASS_SUBN_LID_ROUTED,
.class_version = IB_SMP_CLASS_VERSION,
.attr_id = htons ( IB_SMP_ATTR_NODE_DESC ),
.handle = ib_sma_node_desc,
},
{
.mgmt_class = IB_MGMT_CLASS_SUBN_LID_ROUTED,
.class_version = IB_SMP_CLASS_VERSION,
.attr_id = htons ( IB_SMP_ATTR_GUID_INFO ),
.handle = ib_sma_guid_info,
},
{
.mgmt_class = IB_MGMT_CLASS_SUBN_LID_ROUTED,
.class_version = IB_SMP_CLASS_VERSION,
.attr_id = htons ( IB_SMP_ATTR_PORT_INFO ),
.handle = ib_sma_port_info,
},
{
.mgmt_class = IB_MGMT_CLASS_SUBN_LID_ROUTED,
.class_version = IB_SMP_CLASS_VERSION,
.attr_id = htons ( IB_SMP_ATTR_PKEY_TABLE ),
.handle = ib_sma_pkey_table,
},
};
/**
* Create subnet management agent and interface
*
* @v ibdev Infiniband device
* @v mi Management interface
* @ret rc Return status code
*/
int ib_create_sma ( struct ib_device *ibdev, struct ib_mad_interface *mi ) {
/* Nothing to do */
DBGC ( ibdev, "IBDEV %p SMA using SMI %p\n", ibdev, mi );
return 0;
}
/**
* Destroy subnet management agent and interface
*
* @v ibdev Infiniband device
* @v mi Management interface
*/
void ib_destroy_sma ( struct ib_device *ibdev __unused,
struct ib_mad_interface *mi __unused ) {
/* Nothing to do */
}