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 (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
23  * Use is subject to license terms.
24  */
25 
26 #pragma ident	"%Z%%M%	%I%	%E% SMI"
27 
28 #include <stdio.h>
29 #include <stdlib.h>
30 #include <string.h>
31 #include <fcntl.h>
32 #include <dirent.h>
33 #include <varargs.h>
34 #include <errno.h>
35 #include <unistd.h>
36 #include <alloca.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 "display.h"
44 #include "display_sun4v.h"
45 #include "libprtdiag.h"
46 
47 #if !defined(TEXT_DOMAIN)
48 #define	TEXT_DOMAIN	"SYS_TEST"
49 #endif
50 
51 /*
52  * Global variables
53  */
54 char	*progname;
55 char	*promdev = "/dev/openprom";
56 int	print_flag = 1;
57 int	logging = 0;
58 
59 /*
60  * This file represents the splitting out of some functionality
61  * of prtdiag due to the port to the sun4v platform. The PROM
62  * tree-walking functions which contain sun4v specifics were moved
63  * into this module.
64  */
65 
66 extern int get_id(Prom_node *);
67 
68 /* Function prototypes */
69 Prom_node *sun4v_walk(Sys_tree *, Prom_node *, int);
70 picl_errno_t sun4v_get_node_by_name(picl_nodehdl_t, char *, picl_nodehdl_t *);
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
do_prominfo(int syserrlog,char * pgname,int log_flag,int prt_flag)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 	picl_nodehdl_t	rooth;		/* root PICL node for IO display */
86 	picl_nodehdl_t plafh;		/* Platform PICL node for IO display */
87 
88 	picl_errno_t err;
89 
90 	err = picl_initialize();
91 	if (err != PICL_SUCCESS) {
92 		(void) fprintf(stderr, EM_INIT_FAIL, picl_strerror(err));
93 		exit(1);
94 	}
95 
96 	/* set the global flags */
97 	progname = pgname;
98 	logging = log_flag;
99 	print_flag = prt_flag;
100 
101 	/* set the the system tree fields */
102 	sys_tree.sys_mem = NULL;
103 	sys_tree.boards = NULL;
104 	sys_tree.bd_list = NULL;
105 	sys_tree.board_cnt = 0;
106 
107 	if (promopen(O_RDONLY))  {
108 		exit(_error(dgettext(TEXT_DOMAIN, "openeepr device "
109 			"open failed")));
110 	}
111 
112 	if (is_openprom() == 0)  {
113 		(void) fprintf(stderr, "%s",
114 			dgettext(TEXT_DOMAIN, "System architecture "
115 			    "does not support this option of this "
116 			    "command.\n"));
117 		return (2);
118 	}
119 
120 	if (next(0) == 0) {
121 		return (2);
122 	}
123 
124 	root_node = sun4v_walk(&sys_tree, NULL, next(0));
125 	promclose();
126 
127 	err = picl_get_root(&rooth);
128 	if (err != PICL_SUCCESS) {
129 		(void) fprintf(stderr, EM_GET_ROOT_FAIL, picl_strerror(err));
130 		exit(1);
131 	}
132 
133 	err = sun4v_get_node_by_name(rooth, PICL_NODE_PLATFORM, &plafh);
134 	if (err != PICL_SUCCESS)
135 		return (err);
136 
137 	return (sun4v_display(&sys_tree, root_node, syserrlog, plafh));
138 
139 }
140 
141 /*
142  * sun4v_Walk the PROM device tree and build the system tree and root tree.
143  * Nodes that have a board number property are placed in the board
144  * structures for easier processing later. Child nodes are placed
145  * under their parents.
146  */
147 Prom_node *
sun4v_walk(Sys_tree * tree,Prom_node * root,int id)148 sun4v_walk(Sys_tree *tree, Prom_node *root, int id)
149 {
150 	register int curnode;
151 	Prom_node *pnode;
152 	char *name;
153 	char *type;
154 	char *compatible;
155 	int board_node = 0;
156 
157 	/* allocate a node for this level */
158 	if ((pnode = (Prom_node *) malloc(sizeof (struct prom_node))) ==
159 	    NULL) {
160 		perror("malloc");
161 		exit(2);	/* program errors cause exit 2 */
162 	}
163 
164 	/* assign parent Prom_node */
165 	pnode->parent = root;
166 	pnode->sibling = NULL;
167 	pnode->child = NULL;
168 
169 	/* read properties for this node */
170 	dump_node(pnode);
171 
172 	/*
173 	 * Place a node in a 'board' if it has 'board'-ness. The definition
174 	 * is that all nodes that are children of root should have a
175 	 * board# property. But the PROM tree does not exactly follow
176 	 * this. This is where we start hacking.
177 	 *
178 	 * PCI to PCI bridges also have the name "pci", but with different
179 	 * model property values.  They should not be put under 'board'.
180 	 */
181 	name = get_node_name(pnode);
182 	type = get_node_type(pnode);
183 	compatible = (char *)get_prop_val(find_prop(pnode, "compatible"));
184 
185 #ifdef DEBUG
186 	if (name != NULL)
187 		printf("name=%s ", name);
188 	if (type != NULL)
189 		printf("type=%s ", type);
190 	printf("\n");
191 #endif
192 	if (compatible == NULL)
193 		compatible = "";
194 	if (type == NULL)
195 		type = "";
196 	if (name != NULL) {
197 		if (has_board_num(pnode)) {
198 			add_node(tree, pnode);
199 			board_node = 1;
200 #ifdef DEBUG
201 			printf("ADDED BOARD name=%s type=%s compatible=%s\n",
202 				name, type, compatible);
203 #endif
204 		} else if (strcmp(type, "cpu") == 0) {
205 			add_node(tree, pnode);
206 			board_node = 1;
207 #ifdef DEBUG
208 			printf("ADDED BOARD name=%s type=%s compatible=%s\n",
209 				name, type, compatible);
210 #endif
211 		}
212 #ifdef DEBUG
213 		else
214 			printf("node not added: name=%s type=%s\n", name, type);
215 #endif
216 	}
217 
218 	if (curnode = child(id)) {
219 		pnode->child = sun4v_walk(tree, pnode, curnode);
220 	}
221 
222 	if (curnode = next(id)) {
223 		if (board_node) {
224 			return (sun4v_walk(tree, root, curnode));
225 		} else {
226 			pnode->sibling = sun4v_walk(tree, root, curnode);
227 		}
228 	}
229 
230 	if (board_node) {
231 		return (NULL);
232 	} else {
233 		return (pnode);
234 	}
235 }
236 
237 /*
238  * search children to get the node by the nodename
239  */
240 picl_errno_t
sun4v_get_node_by_name(picl_nodehdl_t rooth,char * name,picl_nodehdl_t * nodeh)241 sun4v_get_node_by_name(picl_nodehdl_t rooth, char *name,
242     picl_nodehdl_t *nodeh)
243 {
244 	picl_nodehdl_t	childh;
245 	int		err;
246 	char		*nodename;
247 
248 	nodename = alloca(strlen(name) + 1);
249 	if (nodename == NULL)
250 		return (PICL_FAILURE);
251 
252 	err = picl_get_propval_by_name(rooth, PICL_PROP_CHILD, &childh,
253 	    sizeof (picl_nodehdl_t));
254 
255 	while (err == PICL_SUCCESS) {
256 		err = picl_get_propval_by_name(childh, PICL_PROP_NAME,
257 		    nodename, (strlen(name) + 1));
258 		if (err != PICL_SUCCESS) {
259 			err = picl_get_propval_by_name(childh, PICL_PROP_PEER,
260 				&childh, sizeof (picl_nodehdl_t));
261 			continue;
262 		}
263 
264 		if (strcmp(nodename, name) == 0) {
265 			*nodeh = childh;
266 			return (PICL_SUCCESS);
267 		}
268 
269 		err = picl_get_propval_by_name(childh, PICL_PROP_PEER,
270 		    &childh, sizeof (picl_nodehdl_t));
271 	}
272 
273 	return (err);
274 }
275 
276 int
get_id(Prom_node * node)277 get_id(Prom_node *node)
278 {
279 #ifdef	lint
280 	node = node;
281 #endif
282 
283 	/*
284 	 * This function is intentionally empty
285 	 */
286 	return (0);
287 }
288