1d6b92ffaSHans Petter Selasky /*
2d6b92ffaSHans Petter Selasky * Copyright (c) 2004-2009 Voltaire Inc. All rights reserved.
3d6b92ffaSHans Petter Selasky * Copyright (c) 2009-2011 Mellanox Technologies LTD. All rights reserved.
4d6b92ffaSHans Petter Selasky * Copyright (c) 2013 Lawrence Livermore National Security. All rights reserved.
5d6b92ffaSHans Petter Selasky *
6d6b92ffaSHans Petter Selasky * This software is available to you under a choice of one of two
7d6b92ffaSHans Petter Selasky * licenses. You may choose to be licensed under the terms of the GNU
8d6b92ffaSHans Petter Selasky * General Public License (GPL) Version 2, available from the file
9d6b92ffaSHans Petter Selasky * COPYING in the main directory of this source tree, or the
10d6b92ffaSHans Petter Selasky * OpenIB.org BSD license below:
11d6b92ffaSHans Petter Selasky *
12d6b92ffaSHans Petter Selasky * Redistribution and use in source and binary forms, with or
13d6b92ffaSHans Petter Selasky * without modification, are permitted provided that the following
14d6b92ffaSHans Petter Selasky * conditions are met:
15d6b92ffaSHans Petter Selasky *
16d6b92ffaSHans Petter Selasky * - Redistributions of source code must retain the above
17d6b92ffaSHans Petter Selasky * copyright notice, this list of conditions and the following
18d6b92ffaSHans Petter Selasky * disclaimer.
19d6b92ffaSHans Petter Selasky *
20d6b92ffaSHans Petter Selasky * - Redistributions in binary form must reproduce the above
21d6b92ffaSHans Petter Selasky * copyright notice, this list of conditions and the following
22d6b92ffaSHans Petter Selasky * disclaimer in the documentation and/or other materials
23d6b92ffaSHans Petter Selasky * provided with the distribution.
24d6b92ffaSHans Petter Selasky *
25d6b92ffaSHans Petter Selasky * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
26d6b92ffaSHans Petter Selasky * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
27d6b92ffaSHans Petter Selasky * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
28d6b92ffaSHans Petter Selasky * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
29d6b92ffaSHans Petter Selasky * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
30d6b92ffaSHans Petter Selasky * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
31d6b92ffaSHans Petter Selasky * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
32d6b92ffaSHans Petter Selasky * SOFTWARE.
33d6b92ffaSHans Petter Selasky *
34d6b92ffaSHans Petter Selasky */
35d6b92ffaSHans Petter Selasky
36d6b92ffaSHans Petter Selasky #if HAVE_CONFIG_H
37d6b92ffaSHans Petter Selasky # include <config.h>
38d6b92ffaSHans Petter Selasky #endif /* HAVE_CONFIG_H */
39d6b92ffaSHans Petter Selasky
40d6b92ffaSHans Petter Selasky #include <stdio.h>
41d6b92ffaSHans Petter Selasky #include <stdlib.h>
42d6b92ffaSHans Petter Selasky #include <unistd.h>
43d6b92ffaSHans Petter Selasky #include <string.h>
44d6b92ffaSHans Petter Selasky #include <inttypes.h>
45d6b92ffaSHans Petter Selasky #include <getopt.h>
46d6b92ffaSHans Petter Selasky #include <netinet/in.h>
47d6b92ffaSHans Petter Selasky #include <assert.h>
48d6b92ffaSHans Petter Selasky
49d6b92ffaSHans Petter Selasky #include <infiniband/umad.h>
50d6b92ffaSHans Petter Selasky #include <infiniband/mad.h>
51d6b92ffaSHans Petter Selasky #include <complib/cl_nodenamemap.h>
52d6b92ffaSHans Petter Selasky
53d6b92ffaSHans Petter Selasky #include <infiniband/ibnetdisc.h>
54d6b92ffaSHans Petter Selasky
55d6b92ffaSHans Petter Selasky #include "ibdiag_common.h"
56d6b92ffaSHans Petter Selasky
57d6b92ffaSHans Petter Selasky struct ibmad_port *srcport;
58d6b92ffaSHans Petter Selasky
59d6b92ffaSHans Petter Selasky unsigned startlid = 0, endlid = 0;
60d6b92ffaSHans Petter Selasky
61d6b92ffaSHans Petter Selasky static int brief, dump_all, multicast;
62d6b92ffaSHans Petter Selasky
63d6b92ffaSHans Petter Selasky static char *node_name_map_file = NULL;
64d6b92ffaSHans Petter Selasky static nn_map_t *node_name_map = NULL;
65d6b92ffaSHans Petter Selasky
66d6b92ffaSHans Petter Selasky #define IB_MLIDS_IN_BLOCK (IB_SMP_DATA_SIZE/2)
67d6b92ffaSHans Petter Selasky
dump_mlid(char * str,int strlen,unsigned mlid,unsigned nports,uint16_t mft[16][IB_MLIDS_IN_BLOCK])68d6b92ffaSHans Petter Selasky int dump_mlid(char *str, int strlen, unsigned mlid, unsigned nports,
69d6b92ffaSHans Petter Selasky uint16_t mft[16][IB_MLIDS_IN_BLOCK])
70d6b92ffaSHans Petter Selasky {
71d6b92ffaSHans Petter Selasky uint16_t mask;
72d6b92ffaSHans Petter Selasky unsigned i, chunk, bit, nonzero = 0;
73d6b92ffaSHans Petter Selasky
74d6b92ffaSHans Petter Selasky if (brief) {
75d6b92ffaSHans Petter Selasky int n = 0;
76d6b92ffaSHans Petter Selasky unsigned chunks = ALIGN(nports + 1, 16) / 16;
77d6b92ffaSHans Petter Selasky for (i = 0; i < chunks; i++) {
78d6b92ffaSHans Petter Selasky mask = ntohs(mft[i][mlid % IB_MLIDS_IN_BLOCK]);
79d6b92ffaSHans Petter Selasky if (mask)
80d6b92ffaSHans Petter Selasky nonzero++;
81d6b92ffaSHans Petter Selasky n += snprintf(str + n, strlen - n, "%04hx", mask);
82d6b92ffaSHans Petter Selasky if (n >= strlen) {
83d6b92ffaSHans Petter Selasky n = strlen;
84d6b92ffaSHans Petter Selasky break;
85d6b92ffaSHans Petter Selasky }
86d6b92ffaSHans Petter Selasky }
87d6b92ffaSHans Petter Selasky if (!nonzero && !dump_all) {
88d6b92ffaSHans Petter Selasky str[0] = 0;
89d6b92ffaSHans Petter Selasky return 0;
90d6b92ffaSHans Petter Selasky }
91d6b92ffaSHans Petter Selasky return n;
92d6b92ffaSHans Petter Selasky }
93d6b92ffaSHans Petter Selasky for (i = 0; i <= nports; i++) {
94d6b92ffaSHans Petter Selasky chunk = i / 16;
95d6b92ffaSHans Petter Selasky bit = i % 16;
96d6b92ffaSHans Petter Selasky
97d6b92ffaSHans Petter Selasky mask = ntohs(mft[chunk][mlid % IB_MLIDS_IN_BLOCK]);
98d6b92ffaSHans Petter Selasky if (mask)
99d6b92ffaSHans Petter Selasky nonzero++;
100d6b92ffaSHans Petter Selasky str[i * 2] = (mask & (1 << bit)) ? 'x' : ' ';
101d6b92ffaSHans Petter Selasky str[i * 2 + 1] = ' ';
102d6b92ffaSHans Petter Selasky }
103d6b92ffaSHans Petter Selasky if (!nonzero && !dump_all) {
104d6b92ffaSHans Petter Selasky str[0] = 0;
105d6b92ffaSHans Petter Selasky return 0;
106d6b92ffaSHans Petter Selasky }
107d6b92ffaSHans Petter Selasky str[i * 2] = 0;
108d6b92ffaSHans Petter Selasky return i * 2;
109d6b92ffaSHans Petter Selasky }
110d6b92ffaSHans Petter Selasky
111d6b92ffaSHans Petter Selasky uint16_t mft[16][IB_MLIDS_IN_BLOCK] = { { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0 }, { 0}, { 0 }, { 0 } };
112d6b92ffaSHans Petter Selasky
dump_multicast_tables(ibnd_node_t * node,unsigned startlid,unsigned endlid,struct ibmad_port * mad_port)113d6b92ffaSHans Petter Selasky void dump_multicast_tables(ibnd_node_t * node, unsigned startlid,
114d6b92ffaSHans Petter Selasky unsigned endlid, struct ibmad_port * mad_port)
115d6b92ffaSHans Petter Selasky {
116d6b92ffaSHans Petter Selasky ib_portid_t *portid = &node->path_portid;
117d6b92ffaSHans Petter Selasky char nd[IB_SMP_DATA_SIZE] = { 0 };
118d6b92ffaSHans Petter Selasky char str[512];
119d6b92ffaSHans Petter Selasky char *s;
120d6b92ffaSHans Petter Selasky uint64_t nodeguid;
121d6b92ffaSHans Petter Selasky uint32_t mod;
122d6b92ffaSHans Petter Selasky unsigned block, i, j, e, nports, cap, chunks, startblock, lastblock,
123d6b92ffaSHans Petter Selasky top;
124d6b92ffaSHans Petter Selasky char *mapnd = NULL;
125d6b92ffaSHans Petter Selasky int n = 0;
126d6b92ffaSHans Petter Selasky
127d6b92ffaSHans Petter Selasky memcpy(nd, node->nodedesc, strlen(node->nodedesc));
128d6b92ffaSHans Petter Selasky nports = node->numports;
129d6b92ffaSHans Petter Selasky nodeguid = node->guid;
130d6b92ffaSHans Petter Selasky
131d6b92ffaSHans Petter Selasky mad_decode_field(node->switchinfo, IB_SW_MCAST_FDB_CAP_F, &cap);
132d6b92ffaSHans Petter Selasky mad_decode_field(node->switchinfo, IB_SW_MCAST_FDB_TOP_F, &top);
133d6b92ffaSHans Petter Selasky
134d6b92ffaSHans Petter Selasky if (!endlid || endlid > IB_MIN_MCAST_LID + cap - 1)
135d6b92ffaSHans Petter Selasky endlid = IB_MIN_MCAST_LID + cap - 1;
136d6b92ffaSHans Petter Selasky if (!dump_all && top && top < endlid) {
137d6b92ffaSHans Petter Selasky if (top < IB_MIN_MCAST_LID - 1)
138d6b92ffaSHans Petter Selasky IBWARN("illegal top mlid %x", top);
139d6b92ffaSHans Petter Selasky else
140d6b92ffaSHans Petter Selasky endlid = top;
141d6b92ffaSHans Petter Selasky }
142d6b92ffaSHans Petter Selasky
143d6b92ffaSHans Petter Selasky if (!startlid)
144d6b92ffaSHans Petter Selasky startlid = IB_MIN_MCAST_LID;
145d6b92ffaSHans Petter Selasky else if (startlid < IB_MIN_MCAST_LID) {
146d6b92ffaSHans Petter Selasky IBWARN("illegal start mlid %x, set to %x", startlid,
147d6b92ffaSHans Petter Selasky IB_MIN_MCAST_LID);
148d6b92ffaSHans Petter Selasky startlid = IB_MIN_MCAST_LID;
149d6b92ffaSHans Petter Selasky }
150d6b92ffaSHans Petter Selasky
151d6b92ffaSHans Petter Selasky if (endlid > IB_MAX_MCAST_LID) {
152d6b92ffaSHans Petter Selasky IBWARN("illegal end mlid %x, truncate to %x", endlid,
153d6b92ffaSHans Petter Selasky IB_MAX_MCAST_LID);
154d6b92ffaSHans Petter Selasky endlid = IB_MAX_MCAST_LID;
155d6b92ffaSHans Petter Selasky }
156d6b92ffaSHans Petter Selasky
157d6b92ffaSHans Petter Selasky mapnd = remap_node_name(node_name_map, nodeguid, nd);
158d6b92ffaSHans Petter Selasky
159d6b92ffaSHans Petter Selasky printf("Multicast mlids [0x%x-0x%x] of switch %s guid 0x%016" PRIx64
160d6b92ffaSHans Petter Selasky " (%s):\n", startlid, endlid, portid2str(portid), nodeguid,
161d6b92ffaSHans Petter Selasky mapnd);
162d6b92ffaSHans Petter Selasky
163d6b92ffaSHans Petter Selasky if (brief)
164d6b92ffaSHans Petter Selasky printf(" MLid Port Mask\n");
165d6b92ffaSHans Petter Selasky else {
166d6b92ffaSHans Petter Selasky if (nports > 9) {
167d6b92ffaSHans Petter Selasky for (i = 0, s = str; i <= nports; i++) {
168d6b92ffaSHans Petter Selasky *s++ = (i % 10) ? ' ' : '0' + i / 10;
169d6b92ffaSHans Petter Selasky *s++ = ' ';
170d6b92ffaSHans Petter Selasky }
171d6b92ffaSHans Petter Selasky *s = 0;
172d6b92ffaSHans Petter Selasky printf(" %s\n", str);
173d6b92ffaSHans Petter Selasky }
174d6b92ffaSHans Petter Selasky for (i = 0, s = str; i <= nports; i++)
175d6b92ffaSHans Petter Selasky s += sprintf(s, "%d ", i % 10);
176d6b92ffaSHans Petter Selasky printf(" Ports: %s\n", str);
177d6b92ffaSHans Petter Selasky printf(" MLid\n");
178d6b92ffaSHans Petter Selasky }
179d6b92ffaSHans Petter Selasky if (ibverbose)
180d6b92ffaSHans Petter Selasky printf("Switch multicast mlid capability is %d top is 0x%x\n",
181d6b92ffaSHans Petter Selasky cap, top);
182d6b92ffaSHans Petter Selasky
183d6b92ffaSHans Petter Selasky chunks = ALIGN(nports + 1, 16) / 16;
184d6b92ffaSHans Petter Selasky
185d6b92ffaSHans Petter Selasky startblock = startlid / IB_MLIDS_IN_BLOCK;
186d6b92ffaSHans Petter Selasky lastblock = endlid / IB_MLIDS_IN_BLOCK;
187d6b92ffaSHans Petter Selasky for (block = startblock; block <= lastblock; block++) {
188d6b92ffaSHans Petter Selasky for (j = 0; j < chunks; j++) {
189d6b92ffaSHans Petter Selasky int status;
190d6b92ffaSHans Petter Selasky mod = (block - IB_MIN_MCAST_LID / IB_MLIDS_IN_BLOCK)
191d6b92ffaSHans Petter Selasky | (j << 28);
192d6b92ffaSHans Petter Selasky
193d6b92ffaSHans Petter Selasky DEBUG("reading block %x chunk %d mod %x", block, j,
194d6b92ffaSHans Petter Selasky mod);
195d6b92ffaSHans Petter Selasky if (!smp_query_status_via
196d6b92ffaSHans Petter Selasky (mft + j, portid, IB_ATTR_MULTICASTFORWTBL, mod, 0,
197d6b92ffaSHans Petter Selasky &status, mad_port)) {
198d6b92ffaSHans Petter Selasky fprintf(stderr, "SubnGet(MFT) failed on switch "
199d6b92ffaSHans Petter Selasky "'%s' %s Node GUID 0x%"PRIx64
200d6b92ffaSHans Petter Selasky " SMA LID %d; MAD status 0x%x "
201d6b92ffaSHans Petter Selasky "AM 0x%x\n",
202d6b92ffaSHans Petter Selasky mapnd, portid2str(portid),
203d6b92ffaSHans Petter Selasky node->guid, node->smalid,
204d6b92ffaSHans Petter Selasky status, mod);
205d6b92ffaSHans Petter Selasky }
206d6b92ffaSHans Petter Selasky }
207d6b92ffaSHans Petter Selasky
208d6b92ffaSHans Petter Selasky i = block * IB_MLIDS_IN_BLOCK;
209d6b92ffaSHans Petter Selasky e = i + IB_MLIDS_IN_BLOCK;
210d6b92ffaSHans Petter Selasky if (i < startlid)
211d6b92ffaSHans Petter Selasky i = startlid;
212d6b92ffaSHans Petter Selasky if (e > endlid + 1)
213d6b92ffaSHans Petter Selasky e = endlid + 1;
214d6b92ffaSHans Petter Selasky
215d6b92ffaSHans Petter Selasky for (; i < e; i++) {
216d6b92ffaSHans Petter Selasky if (dump_mlid(str, sizeof str, i, nports, mft) == 0)
217d6b92ffaSHans Petter Selasky continue;
218d6b92ffaSHans Petter Selasky printf("0x%04x %s\n", i, str);
219d6b92ffaSHans Petter Selasky n++;
220d6b92ffaSHans Petter Selasky }
221d6b92ffaSHans Petter Selasky }
222d6b92ffaSHans Petter Selasky
223d6b92ffaSHans Petter Selasky printf("%d %smlids dumped \n", n, dump_all ? "" : "valid ");
224d6b92ffaSHans Petter Selasky
225d6b92ffaSHans Petter Selasky free(mapnd);
226d6b92ffaSHans Petter Selasky }
227d6b92ffaSHans Petter Selasky
dump_lid(char * str,int str_len,int lid,int valid,ibnd_fabric_t * fabric,int * last_port_lid,int * base_port_lid,uint64_t * portguid)228d6b92ffaSHans Petter Selasky int dump_lid(char *str, int str_len, int lid, int valid,
229d6b92ffaSHans Petter Selasky ibnd_fabric_t *fabric,
230d6b92ffaSHans Petter Selasky int * last_port_lid, int * base_port_lid,
231d6b92ffaSHans Petter Selasky uint64_t * portguid)
232d6b92ffaSHans Petter Selasky {
233d6b92ffaSHans Petter Selasky char nd[IB_SMP_DATA_SIZE] = { 0 };
234d6b92ffaSHans Petter Selasky
235d6b92ffaSHans Petter Selasky ibnd_port_t *port = NULL;
236d6b92ffaSHans Petter Selasky
237d6b92ffaSHans Petter Selasky char ntype[50], sguid[30];
238d6b92ffaSHans Petter Selasky uint64_t nodeguid;
239d6b92ffaSHans Petter Selasky int baselid, lmc, type;
240d6b92ffaSHans Petter Selasky char *mapnd = NULL;
241d6b92ffaSHans Petter Selasky int rc;
242d6b92ffaSHans Petter Selasky
243d6b92ffaSHans Petter Selasky if (brief) {
244d6b92ffaSHans Petter Selasky str[0] = 0;
245d6b92ffaSHans Petter Selasky return 0;
246d6b92ffaSHans Petter Selasky }
247d6b92ffaSHans Petter Selasky
248d6b92ffaSHans Petter Selasky if (lid <= *last_port_lid) {
249d6b92ffaSHans Petter Selasky if (!valid)
250d6b92ffaSHans Petter Selasky return snprintf(str, str_len,
251d6b92ffaSHans Petter Selasky ": (path #%d - illegal port)",
252d6b92ffaSHans Petter Selasky lid - *base_port_lid);
253d6b92ffaSHans Petter Selasky else if (!*portguid)
254d6b92ffaSHans Petter Selasky return snprintf(str, str_len,
255d6b92ffaSHans Petter Selasky ": (path #%d out of %d)",
256d6b92ffaSHans Petter Selasky lid - *base_port_lid + 1,
257d6b92ffaSHans Petter Selasky *last_port_lid - *base_port_lid + 1);
258d6b92ffaSHans Petter Selasky else {
259d6b92ffaSHans Petter Selasky return snprintf(str, str_len,
260d6b92ffaSHans Petter Selasky ": (path #%d out of %d: portguid %s)",
261d6b92ffaSHans Petter Selasky lid - *base_port_lid + 1,
262d6b92ffaSHans Petter Selasky *last_port_lid - *base_port_lid + 1,
263d6b92ffaSHans Petter Selasky mad_dump_val(IB_NODE_PORT_GUID_F, sguid,
264d6b92ffaSHans Petter Selasky sizeof sguid, portguid));
265d6b92ffaSHans Petter Selasky }
266d6b92ffaSHans Petter Selasky }
267d6b92ffaSHans Petter Selasky
268d6b92ffaSHans Petter Selasky if (!valid)
269d6b92ffaSHans Petter Selasky return snprintf(str, str_len, ": (illegal port)");
270d6b92ffaSHans Petter Selasky
271d6b92ffaSHans Petter Selasky *portguid = 0;
272d6b92ffaSHans Petter Selasky
273d6b92ffaSHans Petter Selasky port = ibnd_find_port_lid(fabric, lid);
274d6b92ffaSHans Petter Selasky if (!port) {
275d6b92ffaSHans Petter Selasky return snprintf(str, str_len, ": (node info not available fabric scan)");
276d6b92ffaSHans Petter Selasky }
277d6b92ffaSHans Petter Selasky
278d6b92ffaSHans Petter Selasky nodeguid = port->node->guid;
279d6b92ffaSHans Petter Selasky *portguid = port->guid;
280d6b92ffaSHans Petter Selasky type = port->node->type;
281d6b92ffaSHans Petter Selasky
282d6b92ffaSHans Petter Selasky baselid = port->base_lid;
283d6b92ffaSHans Petter Selasky lmc = port->lmc;
284d6b92ffaSHans Petter Selasky
285d6b92ffaSHans Petter Selasky memcpy(nd, port->node->nodedesc, strlen(port->node->nodedesc));
286d6b92ffaSHans Petter Selasky
287d6b92ffaSHans Petter Selasky if (lmc > 0) {
288d6b92ffaSHans Petter Selasky *base_port_lid = baselid;
289d6b92ffaSHans Petter Selasky *last_port_lid = baselid + (1 << lmc) - 1;
290d6b92ffaSHans Petter Selasky }
291d6b92ffaSHans Petter Selasky
292d6b92ffaSHans Petter Selasky mapnd = remap_node_name(node_name_map, nodeguid, nd);
293d6b92ffaSHans Petter Selasky
294d6b92ffaSHans Petter Selasky rc = snprintf(str, str_len, ": (%s portguid %s: '%s')",
295d6b92ffaSHans Petter Selasky mad_dump_val(IB_NODE_TYPE_F, ntype, sizeof ntype,
296d6b92ffaSHans Petter Selasky &type), mad_dump_val(IB_NODE_PORT_GUID_F,
297d6b92ffaSHans Petter Selasky sguid, sizeof sguid,
298d6b92ffaSHans Petter Selasky portguid),
299d6b92ffaSHans Petter Selasky mapnd);
300d6b92ffaSHans Petter Selasky
301d6b92ffaSHans Petter Selasky free(mapnd);
302d6b92ffaSHans Petter Selasky return rc;
303d6b92ffaSHans Petter Selasky }
304d6b92ffaSHans Petter Selasky
dump_unicast_tables(ibnd_node_t * node,int startlid,int endlid,struct ibmad_port * mad_port,ibnd_fabric_t * fabric)305d6b92ffaSHans Petter Selasky void dump_unicast_tables(ibnd_node_t * node, int startlid, int endlid,
306d6b92ffaSHans Petter Selasky struct ibmad_port *mad_port, ibnd_fabric_t *fabric)
307d6b92ffaSHans Petter Selasky {
308d6b92ffaSHans Petter Selasky ib_portid_t * portid = &node->path_portid;
309d6b92ffaSHans Petter Selasky char lft[IB_SMP_DATA_SIZE] = { 0 };
310d6b92ffaSHans Petter Selasky char nd[IB_SMP_DATA_SIZE] = { 0 };
311d6b92ffaSHans Petter Selasky char str[200];
312d6b92ffaSHans Petter Selasky uint64_t nodeguid;
313d6b92ffaSHans Petter Selasky int block, i, e, top;
314d6b92ffaSHans Petter Selasky unsigned nports;
315d6b92ffaSHans Petter Selasky int n = 0, startblock, endblock;
316d6b92ffaSHans Petter Selasky char *mapnd = NULL;
317d6b92ffaSHans Petter Selasky int last_port_lid = 0, base_port_lid = 0;
318d6b92ffaSHans Petter Selasky uint64_t portguid = 0;
319d6b92ffaSHans Petter Selasky
320d6b92ffaSHans Petter Selasky mad_decode_field(node->switchinfo, IB_SW_LINEAR_FDB_TOP_F, &top);
321d6b92ffaSHans Petter Selasky nodeguid = node->guid;
322d6b92ffaSHans Petter Selasky nports = node->numports;
323d6b92ffaSHans Petter Selasky memcpy(nd, node->nodedesc, strlen(node->nodedesc));
324d6b92ffaSHans Petter Selasky
325d6b92ffaSHans Petter Selasky if (!endlid || endlid > top)
326d6b92ffaSHans Petter Selasky endlid = top;
327d6b92ffaSHans Petter Selasky
328d6b92ffaSHans Petter Selasky if (endlid > IB_MAX_UCAST_LID) {
329d6b92ffaSHans Petter Selasky IBWARN("illegal lft top %d, truncate to %d", endlid,
330d6b92ffaSHans Petter Selasky IB_MAX_UCAST_LID);
331d6b92ffaSHans Petter Selasky endlid = IB_MAX_UCAST_LID;
332d6b92ffaSHans Petter Selasky }
333d6b92ffaSHans Petter Selasky
334d6b92ffaSHans Petter Selasky mapnd = remap_node_name(node_name_map, nodeguid, nd);
335d6b92ffaSHans Petter Selasky
336d6b92ffaSHans Petter Selasky printf("Unicast lids [0x%x-0x%x] of switch %s guid 0x%016" PRIx64
337d6b92ffaSHans Petter Selasky " (%s):\n", startlid, endlid, portid2str(portid), nodeguid,
338d6b92ffaSHans Petter Selasky mapnd);
339d6b92ffaSHans Petter Selasky
340d6b92ffaSHans Petter Selasky DEBUG("Switch top is 0x%x\n", top);
341d6b92ffaSHans Petter Selasky
342d6b92ffaSHans Petter Selasky printf(" Lid Out Destination\n");
343d6b92ffaSHans Petter Selasky printf(" Port Info \n");
344d6b92ffaSHans Petter Selasky startblock = startlid / IB_SMP_DATA_SIZE;
345d6b92ffaSHans Petter Selasky endblock = ALIGN(endlid, IB_SMP_DATA_SIZE) / IB_SMP_DATA_SIZE;
346d6b92ffaSHans Petter Selasky for (block = startblock; block < endblock; block++) {
347d6b92ffaSHans Petter Selasky int status;
348d6b92ffaSHans Petter Selasky DEBUG("reading block %d", block);
349d6b92ffaSHans Petter Selasky if (!smp_query_status_via(lft, portid, IB_ATTR_LINEARFORWTBL, block,
350d6b92ffaSHans Petter Selasky 0, &status, mad_port)) {
351d6b92ffaSHans Petter Selasky fprintf(stderr, "SubnGet(LFT) failed on switch "
352d6b92ffaSHans Petter Selasky "'%s' %s Node GUID 0x%"PRIx64
353d6b92ffaSHans Petter Selasky " SMA LID %d; MAD status 0x%x AM 0x%x\n",
354d6b92ffaSHans Petter Selasky mapnd, portid2str(portid),
355d6b92ffaSHans Petter Selasky node->guid, node->smalid,
356d6b92ffaSHans Petter Selasky status, block);
357d6b92ffaSHans Petter Selasky }
358d6b92ffaSHans Petter Selasky i = block * IB_SMP_DATA_SIZE;
359d6b92ffaSHans Petter Selasky e = i + IB_SMP_DATA_SIZE;
360d6b92ffaSHans Petter Selasky if (i < startlid)
361d6b92ffaSHans Petter Selasky i = startlid;
362d6b92ffaSHans Petter Selasky if (e > endlid + 1)
363d6b92ffaSHans Petter Selasky e = endlid + 1;
364d6b92ffaSHans Petter Selasky
365d6b92ffaSHans Petter Selasky for (; i < e; i++) {
366d6b92ffaSHans Petter Selasky unsigned outport = lft[i % IB_SMP_DATA_SIZE];
367d6b92ffaSHans Petter Selasky unsigned valid = (outport <= nports);
368d6b92ffaSHans Petter Selasky
369d6b92ffaSHans Petter Selasky if (!valid && !dump_all)
370d6b92ffaSHans Petter Selasky continue;
371d6b92ffaSHans Petter Selasky dump_lid(str, sizeof str, i, valid, fabric,
372d6b92ffaSHans Petter Selasky &last_port_lid, &base_port_lid, &portguid);
373d6b92ffaSHans Petter Selasky printf("0x%04x %03u %s\n", i, outport & 0xff, str);
374d6b92ffaSHans Petter Selasky n++;
375d6b92ffaSHans Petter Selasky }
376d6b92ffaSHans Petter Selasky }
377d6b92ffaSHans Petter Selasky
378d6b92ffaSHans Petter Selasky printf("%d %slids dumped \n", n, dump_all ? "" : "valid ");
379d6b92ffaSHans Petter Selasky free(mapnd);
380d6b92ffaSHans Petter Selasky }
381d6b92ffaSHans Petter Selasky
dump_node(ibnd_node_t * node,struct ibmad_port * mad_port,ibnd_fabric_t * fabric)382d6b92ffaSHans Petter Selasky void dump_node(ibnd_node_t *node, struct ibmad_port *mad_port,
383d6b92ffaSHans Petter Selasky ibnd_fabric_t *fabric)
384d6b92ffaSHans Petter Selasky {
385d6b92ffaSHans Petter Selasky if (multicast)
386d6b92ffaSHans Petter Selasky dump_multicast_tables(node, startlid, endlid, mad_port);
387d6b92ffaSHans Petter Selasky else
388d6b92ffaSHans Petter Selasky dump_unicast_tables(node, startlid, endlid,
389d6b92ffaSHans Petter Selasky mad_port, fabric);
390d6b92ffaSHans Petter Selasky }
391d6b92ffaSHans Petter Selasky
process_switch(ibnd_node_t * node,void * fabric)392d6b92ffaSHans Petter Selasky void process_switch(ibnd_node_t * node, void *fabric)
393d6b92ffaSHans Petter Selasky {
394d6b92ffaSHans Petter Selasky dump_node(node, srcport, (ibnd_fabric_t *)fabric);
395d6b92ffaSHans Petter Selasky }
396d6b92ffaSHans Petter Selasky
process_opt(void * context,int ch,char * optarg)397d6b92ffaSHans Petter Selasky static int process_opt(void *context, int ch, char *optarg)
398d6b92ffaSHans Petter Selasky {
399d6b92ffaSHans Petter Selasky switch (ch) {
400d6b92ffaSHans Petter Selasky case 'a':
401d6b92ffaSHans Petter Selasky dump_all++;
402d6b92ffaSHans Petter Selasky break;
403d6b92ffaSHans Petter Selasky case 'M':
404d6b92ffaSHans Petter Selasky multicast++;
405d6b92ffaSHans Petter Selasky break;
406d6b92ffaSHans Petter Selasky case 'n':
407d6b92ffaSHans Petter Selasky brief++;
408d6b92ffaSHans Petter Selasky break;
409d6b92ffaSHans Petter Selasky case 1:
410d6b92ffaSHans Petter Selasky node_name_map_file = strdup(optarg);
411d6b92ffaSHans Petter Selasky break;
412d6b92ffaSHans Petter Selasky default:
413d6b92ffaSHans Petter Selasky return -1;
414d6b92ffaSHans Petter Selasky }
415d6b92ffaSHans Petter Selasky return 0;
416d6b92ffaSHans Petter Selasky }
417d6b92ffaSHans Petter Selasky
main(int argc,char ** argv)418d6b92ffaSHans Petter Selasky int main(int argc, char **argv)
419d6b92ffaSHans Petter Selasky {
420d6b92ffaSHans Petter Selasky int rc = 0;
421d6b92ffaSHans Petter Selasky int mgmt_classes[3] =
422d6b92ffaSHans Petter Selasky { IB_SMI_CLASS, IB_SMI_DIRECT_CLASS, IB_SA_CLASS };
423d6b92ffaSHans Petter Selasky
424d6b92ffaSHans Petter Selasky struct ibnd_config config = { 0 };
425d6b92ffaSHans Petter Selasky ibnd_fabric_t *fabric = NULL;
426d6b92ffaSHans Petter Selasky
427d6b92ffaSHans Petter Selasky const struct ibdiag_opt opts[] = {
428d6b92ffaSHans Petter Selasky {"all", 'a', 0, NULL, "show all lids, even invalid entries"},
429d6b92ffaSHans Petter Selasky {"no_dests", 'n', 0, NULL,
430d6b92ffaSHans Petter Selasky "do not try to resolve destinations"},
431d6b92ffaSHans Petter Selasky {"Multicast", 'M', 0, NULL, "show multicast forwarding tables"},
432d6b92ffaSHans Petter Selasky {"node-name-map", 1, 1, "<file>", "node name map file"},
433d6b92ffaSHans Petter Selasky {0}
434d6b92ffaSHans Petter Selasky };
435d6b92ffaSHans Petter Selasky char usage_args[] = "[<dest dr_path|lid|guid> [<startlid> [<endlid>]]]";
436d6b92ffaSHans Petter Selasky const char *usage_examples[] = {
437d6b92ffaSHans Petter Selasky " -- Unicast examples:",
438d6b92ffaSHans Petter Selasky "-a\t# same, but dump all lids, even with invalid out ports",
439d6b92ffaSHans Petter Selasky "-n\t# simple dump format - no destination resolving",
440d6b92ffaSHans Petter Selasky "10\t# dump lids starting from 10",
441d6b92ffaSHans Petter Selasky "0x10 0x20\t# dump lid range",
442d6b92ffaSHans Petter Selasky " -- Multicast examples:",
443d6b92ffaSHans Petter Selasky "-M\t# dump all non empty mlids of switch with lid 4",
444d6b92ffaSHans Petter Selasky "-M 0xc010 0xc020\t# same, but with range",
445d6b92ffaSHans Petter Selasky "-M -n\t# simple dump format",
446d6b92ffaSHans Petter Selasky NULL,
447d6b92ffaSHans Petter Selasky };
448d6b92ffaSHans Petter Selasky
449d6b92ffaSHans Petter Selasky ibdiag_process_opts(argc, argv, &config, "KGDLs", opts, process_opt,
450d6b92ffaSHans Petter Selasky usage_args, usage_examples);
451d6b92ffaSHans Petter Selasky
452d6b92ffaSHans Petter Selasky argc -= optind;
453d6b92ffaSHans Petter Selasky argv += optind;
454d6b92ffaSHans Petter Selasky
455d6b92ffaSHans Petter Selasky if (argc > 0)
456d6b92ffaSHans Petter Selasky startlid = strtoul(argv[0], 0, 0);
457d6b92ffaSHans Petter Selasky if (argc > 1)
458d6b92ffaSHans Petter Selasky endlid = strtoul(argv[1], 0, 0);
459d6b92ffaSHans Petter Selasky
460d6b92ffaSHans Petter Selasky node_name_map = open_node_name_map(node_name_map_file);
461d6b92ffaSHans Petter Selasky
462d6b92ffaSHans Petter Selasky if (ibd_timeout)
463d6b92ffaSHans Petter Selasky config.timeout_ms = ibd_timeout;
464d6b92ffaSHans Petter Selasky
465d6b92ffaSHans Petter Selasky config.flags = ibd_ibnetdisc_flags;
466d6b92ffaSHans Petter Selasky config.mkey = ibd_mkey;
467d6b92ffaSHans Petter Selasky
468d6b92ffaSHans Petter Selasky if ((fabric = ibnd_discover_fabric(ibd_ca, ibd_ca_port, NULL,
469d6b92ffaSHans Petter Selasky &config)) != NULL) {
470d6b92ffaSHans Petter Selasky
471d6b92ffaSHans Petter Selasky srcport = mad_rpc_open_port(ibd_ca, ibd_ca_port, mgmt_classes, 3);
472d6b92ffaSHans Petter Selasky if (!srcport) {
473d6b92ffaSHans Petter Selasky fprintf(stderr,
474d6b92ffaSHans Petter Selasky "Failed to open '%s' port '%d'\n", ibd_ca, ibd_ca_port);
475d6b92ffaSHans Petter Selasky rc = -1;
476d6b92ffaSHans Petter Selasky goto Exit;
477d6b92ffaSHans Petter Selasky }
478d6b92ffaSHans Petter Selasky smp_mkey_set(srcport, ibd_mkey);
479d6b92ffaSHans Petter Selasky
480d6b92ffaSHans Petter Selasky if (ibd_timeout) {
481d6b92ffaSHans Petter Selasky mad_rpc_set_timeout(srcport, ibd_timeout);
482d6b92ffaSHans Petter Selasky }
483d6b92ffaSHans Petter Selasky
484d6b92ffaSHans Petter Selasky ibnd_iter_nodes_type(fabric, process_switch, IB_NODE_SWITCH, fabric);
485d6b92ffaSHans Petter Selasky
486d6b92ffaSHans Petter Selasky mad_rpc_close_port(srcport);
487d6b92ffaSHans Petter Selasky
488d6b92ffaSHans Petter Selasky } else {
489d6b92ffaSHans Petter Selasky fprintf(stderr, "Failed to discover fabric\n");
490d6b92ffaSHans Petter Selasky rc = -1;
491d6b92ffaSHans Petter Selasky }
492d6b92ffaSHans Petter Selasky Exit:
493d6b92ffaSHans Petter Selasky ibnd_destroy_fabric(fabric);
494d6b92ffaSHans Petter Selasky
495d6b92ffaSHans Petter Selasky close_node_name_map(node_name_map);
496d6b92ffaSHans Petter Selasky exit(rc);
497d6b92ffaSHans Petter Selasky }
498