xref: /titanic_51/usr/src/lib/libprtdiag/common/pdevinfo_sun4u.c (revision 37714ae43602c675f9dc59b070bfdf9fa702872c)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 1999-2003 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 #include <stdio.h>
30 #include <stdlib.h>
31 #include <string.h>
32 #include <fcntl.h>
33 #include <dirent.h>
34 #include <varargs.h>
35 #include <errno.h>
36 #include <unistd.h>
37 #include <sys/systeminfo.h>
38 #include <sys/utsname.h>
39 #include <sys/openpromio.h>
40 #include <kstat.h>
41 #include <libintl.h>
42 #include "pdevinfo.h"
43 #include "pdevinfo_sun4u.h"
44 #include "display.h"
45 #include "display_sun4u.h"
46 #include "libprtdiag.h"
47 
48 #if !defined(TEXT_DOMAIN)
49 #define	TEXT_DOMAIN	"SYS_TEST"
50 #endif
51 
52 /*
53  * Global variables
54  */
55 char	*progname;
56 char	*promdev = "/dev/openprom";
57 int	print_flag = 1;
58 int	logging = 0;
59 
60 /*
61  * This file represents the splitting out of some functionality
62  * of prtdiag due to the port to the sun4u platform. The PROM
63  * tree-walking functions which contain sun4u specifics were moved
64  * into this module.
65  */
66 
67 extern int get_id(Prom_node *);
68 
69 /* Function prototypes */
70 Prom_node	*walk(Sys_tree *, Prom_node *, int);
71 
72 /*
73  * do_prominfo() is called from main() in usr/src/cmd/prtdiag/main.c
74  *
75  * This is the starting point for all platforms. However, this function
76  * can be overlayed by writing a do_prominfo() function
77  * in the libprtdiag_psr for a particular platform.
78  *
79  */
80 int
81 do_prominfo(int syserrlog, char *pgname, int log_flag, int prt_flag)
82 {
83 	Sys_tree sys_tree;		/* system information */
84 	Prom_node *root_node;		/* root node of OBP device tree */
85 	struct system_kstat_data sys_kstat; /* kstats for non-OBP data */
86 
87 
88 	/* set the global flags */
89 	progname = pgname;
90 	logging = log_flag;
91 	print_flag = prt_flag;
92 
93 	/* set the the system tree fields */
94 	sys_tree.sys_mem = NULL;
95 	sys_tree.boards = NULL;
96 	sys_tree.bd_list = NULL;
97 	sys_tree.board_cnt = 0;
98 
99 	if (promopen(O_RDONLY))  {
100 		exit(_error(dgettext(TEXT_DOMAIN, "openeepr device "
101 			"open failed")));
102 	}
103 
104 	if (is_openprom() == 0)  {
105 		(void) fprintf(stderr, "%s",
106 			dgettext(TEXT_DOMAIN, "System architecture "
107 			    "does not support this option of this "
108 			    "command.\n"));
109 		return (2);
110 	}
111 
112 	if (next(0) == 0) {
113 		return (2);
114 	}
115 
116 	root_node = walk(&sys_tree, NULL, next(0));
117 	promclose();
118 
119 	/* resolve the board types now */
120 	resolve_board_types(&sys_tree);
121 
122 	read_sun4u_kstats(&sys_tree, &sys_kstat);
123 
124 	return (display(&sys_tree, root_node, &sys_kstat, syserrlog));
125 
126 }
127 
128 int
129 get_id(Prom_node *node)
130 {
131 	int *value;
132 
133 	/*
134 	 * check for upa-portid on UI and UII systems
135 	 */
136 	if ((value = (int *)get_prop_val(find_prop(node, "upa-portid")))
137 	    == NULL) {
138 		/*
139 		 * check for portid on UIII systems
140 		 */
141 		if ((value = (int *)get_prop_val(find_prop(node, "portid")))
142 		    == NULL) {
143 			return (-1);
144 		}
145 	}
146 	return (*value);
147 }
148 
149 
150 
151 /*
152  * Walk the PROM device tree and build the system tree and root tree.
153  * Nodes that have a board number property are placed in the board
154  * structures for easier processing later. Child nodes are placed
155  * under their parents. ffb (Fusion Frame Buffer) nodes are handled
156  * specially, because they do not contain board number properties.
157  * This was requested from OBP, but was not granted. So this code
158  * must parse the MID of the FFB to find the board#.
159  *
160  */
161 Prom_node *
162 walk(Sys_tree *tree, Prom_node *root, int id)
163 {
164 	register int curnode;
165 	Prom_node *pnode;
166 	char *name;
167 	char *type;
168 	char *model;
169 	int board_node = 0;
170 
171 	/* allocate a node for this level */
172 	if ((pnode = (Prom_node *) malloc(sizeof (struct prom_node))) ==
173 	    NULL) {
174 		perror("malloc");
175 		exit(2);	/* program errors cause exit 2 */
176 	}
177 
178 	/* assign parent Prom_node */
179 	pnode->parent = root;
180 	pnode->sibling = NULL;
181 	pnode->child = NULL;
182 
183 	/* read properties for this node */
184 	dump_node(pnode);
185 
186 	/*
187 	 * Place a node in a 'board' if it has 'board'-ness. The definition
188 	 * is that all nodes that are children of root should have a
189 	 * board# property. But the PROM tree does not exactly follow
190 	 * this. This is where we start hacking. The name 'ffb' can
191 	 * change, so watch out for this.
192 	 *
193 	 * The UltraSPARC, sbus, pci and ffb nodes will exit in
194 	 * the desktops and will not have board# properties. These
195 	 * cases must be handled here.
196 	 *
197 	 * PCI to PCI bridges also have the name "pci", but with different
198 	 * model property values.  They should not be put under 'board'.
199 	 */
200 	name = get_node_name(pnode);
201 	type = get_node_type(pnode);
202 	model = (char *)get_prop_val(find_prop(pnode, "model"));
203 #ifdef DEBUG
204 	if (name != NULL)
205 		printf("name=%s ", name);
206 	if (type != NULL)
207 		printf("type=%s ", type);
208 	if (model != NULL)
209 		printf("model=%s", model);
210 	printf("\n");
211 #endif
212 	if (model == NULL)
213 		model = "";
214 	if (type == NULL)
215 		type = "";
216 	if (name != NULL) {
217 		if (has_board_num(pnode)) {
218 			add_node(tree, pnode);
219 			board_node = 1;
220 #ifdef DEBUG
221 			printf("ADDED BOARD name=%s type=%s model=%s\n",
222 				name, type, model);
223 #endif
224 		} else if ((strcmp(name, FFB_NAME)  == 0)	||
225 		    (strcmp(name, AFB_NAME) == 0)		||
226 		    (strcmp(type, "cpu") == 0)			||
227 
228 		    ((strcmp(type, "memory-controller") == 0) &&
229 			(strcmp(name, "ac") != 0))			||
230 
231 		    ((strcmp(name, "pci") == 0) &&
232 			(strcmp(model, "SUNW,psycho") == 0))		||
233 
234 		    ((strcmp(name, "pci") == 0) &&
235 			(strcmp(model, "SUNW,sabre") == 0))		||
236 
237 		    ((strcmp(name, "pci") == 0) &&
238 			(strcmp(model, "SUNW,schizo") == 0))		||
239 
240 		    ((strcmp(name, "pci") == 0) &&
241 			(strcmp(model, "SUNW,xmits") == 0))		||
242 
243 		    (strcmp(name, "counter-timer") == 0)		||
244 		    (strcmp(name, "sbus") == 0)) {
245 			add_node(tree, pnode);
246 			board_node = 1;
247 #ifdef DEBUG
248 			printf("ADDED BOARD name=%s type=%s model=%s\n",
249 				name, type, model);
250 #endif
251 		}
252 #ifdef DEBUG
253 		else
254 			printf("node not added: name=%s type=%s\n", name, type);
255 #endif
256 	}
257 
258 	if (curnode = child(id)) {
259 		pnode->child = walk(tree, pnode, curnode);
260 	}
261 
262 	if (curnode = next(id)) {
263 		if (board_node) {
264 			return (walk(tree, root, curnode));
265 		} else {
266 			pnode->sibling = walk(tree, root, curnode);
267 		}
268 	}
269 
270 	if (board_node) {
271 		return (NULL);
272 	} else {
273 		return (pnode);
274 	}
275 }
276