/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 *
 * Cherrystone platform-specific functions
 *
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <kstat.h>
#include <string.h>
#include <assert.h>
#include <libintl.h>
#include <note.h>
#include <syslog.h>

#include <sys/openpromio.h>
#include <sys/sysmacros.h>

#include <pdevinfo.h>
#include <display.h>
#include <pdevinfo_sun4u.h>
#include <display_sun4u.h>

#include <picl.h>

#include <sys/cheetahregs.h>
#include <sys/cherrystone.h>
#include "workfile.c"

#define	SCHIZO_COMPAT_PROP	"pci108e,8001"

#define	MULTIPLE_BITS_SET(x)	((x)&((x)-1))

#define	MAX_PS		2
#define	MAX_PS_SENSORS	3
#define	MAX_DISKS	2
#define	MAX_FANS	5
#define	NUM_PCI_SLOTS	5

/*
 * these functions will overlay the symbol table of libprtdiag
 * at runtime (workgroup server systems only)
 */
void	display_cpu_devices(Sys_tree *tree);
void	display_pci(Board_node *board);
void	display_io_cards(struct io_card *list);
void	display_diaginfo(int flag, Prom_node *root, Sys_tree *tree,
				struct system_kstat_data *kstats);
void	display_ffb(Board_node *board, int table);
void	display_memoryconf(Sys_tree *tree, struct grp_info *grps);

/* local functions */
static void disp_envc_status(void);
static int print_temps(picl_nodehdl_t);
static int print_keyswitch(picl_nodehdl_t);
static int print_FSP_LEDS(picl_nodehdl_t);
static int print_disk(picl_nodehdl_t);
static int print_fans(picl_nodehdl_t);
static int print_ps(picl_nodehdl_t);

static void display_hw_revisions(Prom_node *root,
					Board_node *bnode);
static void display_schizo_revisions(Board_node *bdlist);


void
display_cpu_devices(Sys_tree *tree)
{
	Board_node *bnode;

	log_printf(dgettext(TEXT_DOMAIN,
		"\n========================= CPUs "
		"===============================================\n\n"
		"          Run   E$  CPU     CPU  \n"
		"Brd  CPU  MHz   MB  Impl.   Mask \n"
		"--- ----- ---- ---- ------- ---- \n"));

	bnode = tree->bd_list;
	while (bnode != NULL) {
		display_cpus(bnode);
		bnode = bnode->next;
	}

	log_printf("\n");
}
void
display_cpus(Board_node *board)
{
	Prom_node 	*cpu;
	int freq;
	int ecache_size;
	int *l3_shares;
	int *mid;
	int *impl;
	int *mask;
	int *coreid;
	char fru_prev = 'X'; /* Valid frus are 'A','B' */
	int mid_prev;
	int ecache_size_prev = 0;
	char fru_name;

	/*
	 * display the CPUs' operating frequency, cache size, impl. field
	 * and mask revision.
	 */

	for (cpu = dev_find_type(board->nodes, "cpu"); cpu != NULL;
	    cpu = dev_next_type(cpu, "cpu")) {

		mid = (int *)get_prop_val(find_prop(cpu, "portid"));
		if (mid == NULL)
			mid = (int *)get_prop_val(find_prop(cpu, "cpuid"));
		freq = HZ_TO_MHZ(get_cpu_freq(cpu));
		ecache_size = get_ecache_size(cpu);
		impl = (int *)get_prop_val(find_prop(cpu, "implementation#"));
		mask = (int *)get_prop_val(find_prop(cpu, "mask#"));
		l3_shares =
			(int *)get_prop_val(find_prop(cpu, "l3-cache-sharing"));

		/* Do not display a failed CPU node */
		if ((impl == NULL) || (freq == 0) || (node_failed(cpu)))
			continue;

		fru_name = CHERRYSTONE_GETSLOT_LABEL(*mid);
		if (CPU_IMPL_IS_CMP(*impl)) {
			coreid = (int *)get_prop_val(find_prop(cpu, "reg"));
			if (coreid == NULL) {
				continue;
			}
			if ((fru_prev == 'X') ||
				((fru_prev != 'X') &&
				(fru_name != fru_prev))) {
				fru_prev = fru_name;
				mid_prev = *mid;
				ecache_size_prev = ecache_size;
				continue;
			} else {
				/*
				 * Some CMP chips have a split E$,
				 * so the size for both cores is added
				 * together to get the total size for
				 * the chip.
				 *
				 * Still, other CMP chips have E$ (L3)
				 * which is logically shared, so the
				 * total size is equal to the core size.
				 */
				if ((l3_shares == NULL) ||
					((l3_shares != NULL) &&
					MULTIPLE_BITS_SET(*l3_shares))) {
					ecache_size += ecache_size_prev;
				}
				ecache_size_prev = 0;
				fru_prev = 'X';
			}
		}

		log_printf(" %c", fru_name);

		/* CPU Module ID */
		if (CPU_IMPL_IS_CMP(*impl)) {
			log_printf("%3d,%3d ", mid_prev, *mid, 0);
		} else
			log_printf("   %2d   ", *mid);

		/* Running frequency */
		log_printf("%4d", freq);

		if (ecache_size == 0)
			log_printf(" N/A  ");
		else
			log_printf(" %4.1f ",
				(float)ecache_size / (float)(1<<20));
			/* Implementation */
		if (impl == NULL) {
			log_printf(dgettext(TEXT_DOMAIN, "  N/A   "));
		} else {
			if (IS_CHEETAH(*impl))
				log_printf(dgettext(TEXT_DOMAIN,
					"US-III  "));
			else if (IS_CHEETAH_PLUS(*impl))
				log_printf(dgettext(TEXT_DOMAIN,
					"US-III+ "));
			else if (IS_JAGUAR(*impl))
				log_printf(dgettext(TEXT_DOMAIN,
					"US-IV   "));
			else if (IS_PANTHER(*impl))
				log_printf(dgettext(TEXT_DOMAIN,
					"US-IV+  "));
			else
				log_printf("%-6x  ", *impl);
		}

		/* CPU Mask */
		if (mask == NULL) {
			log_printf(dgettext(TEXT_DOMAIN, " N/A\n"));
		} else {
			log_printf(dgettext(TEXT_DOMAIN, " %d.%d\n"),
			    (*mask >> 4) & 0xf, *mask & 0xf);
		}
	}
}

/*ARGSUSED0*/
void
display_memoryconf(Sys_tree *tree, struct grp_info *grps)
{
	Board_node	*bnode = tree->bd_list;

	log_printf(dgettext(TEXT_DOMAIN,
	    "========================= Memory Configuration"
	    " ===============================\n\n"
	    "          Logical  Logical  Logical\n"
	    "     MC   Bank     Bank     Bank         DIMM    "
		"Interleave  Interleaved\n"
	    "Brd  ID   num      size     Status       Size    "
		"Factor      with\n"
	    "---  ---  ----     ------   -----------  ------  "
		"----------  -----------"));

	while (bnode != NULL) {
		if (get_us3_mem_regs(bnode)) {
			log_printf(dgettext(TEXT_DOMAIN,
			    "\nFailed to get memory information.\n"));
			return;
		}
		bnode = bnode->next;
	}

	/* Display what we have found */
	display_us3_banks();
}

/*ARGSUSED3*/
void
display_diaginfo(int flag, Prom_node *root, Sys_tree *tree,
	struct system_kstat_data *kstats)
{
	/*
	 * Now display the last powerfail time and the fatal hardware
	 * reset information. We do this under a couple of conditions.
	 * First if the user asks for it. The second is if the user
	 * told us to do logging, and we found a system failure.
	 */

	if (flag) {
		/*
		 * display time of latest powerfail. Not all systems
		 * have this capability. For those that do not, this
		 * is just a no-op.
		 */
		disp_powerfail(root);

		disp_envc_status();

		display_hw_revisions(root, tree->bd_list);
	}
	return;

}

/*
 * display_pci
 * Display all the PCI IO cards on this board.
 */
void
display_pci(Board_node *board)
{
	struct io_card	*card_list = NULL;
	struct io_card	card;
	void		*value;
	Prom_node	*pci;
	Prom_node	*card_node;
	static int	banner = FALSE;

	char		*slot_name_arr[NUM_PCI_SLOTS];
	int		i;

	if (board == NULL)
		return;

	memset(&card, 0, sizeof (struct io_card));
	/* Initialize all the common information */
	card.display = TRUE;
	card.board = board->board_num;

	/*
	 * Search for each pci instance, then find/display all nodes under
	 * each instance node found.
	 */
	for (pci = dev_find_node_by_compat(board->nodes, SCHIZO_COMPAT_PROP);
		pci != NULL;
		pci = dev_next_node_by_compat(pci, SCHIZO_COMPAT_PROP)) {
		(void) snprintf(card.bus_type, MAXSTRLEN,
			dgettext(TEXT_DOMAIN, "PCI"));
		/*
		 * Get slot-name properties from parent node and
		 * store them in an array.
		 */
		value = (char *)get_prop_val(
			find_prop(pci, "slot-names"));

		if (value != NULL) {
			/* array starts after first int */
			slot_name_arr[0] = (char *)value + sizeof (int);
			for (i = 1; i < NUM_PCI_SLOTS; i++) {
				slot_name_arr[i] = (char *)slot_name_arr[i - 1]
					+ strlen(slot_name_arr[i - 1]) +1;
			}
		}
		/*
		 * Search for Children of this node ie. Cards.
		 * Note: any of these cards can be a pci-bridge
		 *	that itself has children. If we find a
		 *	pci-bridge we need to handle it specially.
		 */
		card_node = pci->child;
		/* Generate the list of pci cards on pci instance: pci */
		fill_pci_card_list(pci, card_node, &card, &card_list,
			slot_name_arr);
	} /* end-for */

	if (!banner && card_list != NULL) {
		log_printf(dgettext(TEXT_DOMAIN,
			"                    Bus  Max\n"
			" IO  Port Bus       Freq Bus  Dev,\n"
			"Type  ID  Side Slot MHz  Freq Func State "
			"Name                              Model"
#ifdef DEBUG
			"                   Notes"
#endif
			"\n"
			"---- ---- ---- ---- ---- ---- ---- ----- "
			"--------------------------------  "
#ifdef DEBUG
			"----------------------  "
#endif
			"----------------------\n"));
		banner = TRUE;
	}

	display_io_cards(card_list);
	free_io_cards(card_list);
}

/*
 * Print out all the io cards in the list.  Also print the column
 * headers if told to do so.
 */
void
display_io_cards(struct io_card *list)
{
	struct io_card *p;

	for (p = list; p != NULL; p = p -> next) {
		log_printf(dgettext(TEXT_DOMAIN,
		    "%-4s  %-3d  %c    %-1s    %-3d"),
		    p->bus_type, p->schizo_portid, p->pci_bus,
		    p->slot_str, p->freq);

		switch (p->pci_bus) {
		case 'A':
			log_printf(dgettext(TEXT_DOMAIN, "  66  "));
			break;
		case 'B':
			log_printf(dgettext(TEXT_DOMAIN, "  33  "));
			break;
		default:
			assert(0);
			break;
		}

		log_printf(dgettext(TEXT_DOMAIN,
			"%-1d,%-1d  %-5s %-32.32s"),
		    p->dev_no, p->func_no, p->status, p->name);
		if (strlen(p->name) > 32)
			log_printf(dgettext(TEXT_DOMAIN, "+ "));
		else
			log_printf(dgettext(TEXT_DOMAIN, "  "));
		log_printf(dgettext(TEXT_DOMAIN, "%-22.22s"), p->model);
		if (strlen(p->model) > 22)
			log_printf(dgettext(TEXT_DOMAIN, "+"));
#ifdef DEBUG
		log_printf("%s", p->notes);
#endif
		log_printf("\n");
	}
}

/*ARGSUSED*/
void
display_ffb(Board_node *board, int table)
{
	/* NOP, since there are no FFB's on this platform. */
}


/*
 * local functions
 */


static void
disp_envc_status()
{
	int err;
	char *system = "SYSTEM";
	picl_nodehdl_t system_node, root;

	log_printf(dgettext(TEXT_DOMAIN,
		"\n"
		"=========================  Environmental Status "
		"=========================\n\n"));

	err = picl_initialize();
	if (err != PICL_SUCCESS)
		goto err_out;
	err = picl_get_root(&root);
	if (err != PICL_SUCCESS)
		goto err_out;
	err = find_child_device(root, system, &system_node);
	if (err != PICL_SUCCESS)
		goto err_out;

	err = print_temps(system_node);
	err |= print_keyswitch(system_node);
	err |= print_FSP_LEDS(system_node);
	err |= print_disk(system_node);
	err |= print_fans(system_node);
	err |= print_ps(system_node);

	if (err != PICL_SUCCESS)
		goto err_out;

	return;

err_out:
	log_printf(dgettext(TEXT_DOMAIN,
		"\nEnvironmental reporting error: %s\n"),
		picl_strerror(err));
}

static int
print_ps(picl_nodehdl_t system_node)
{
	int		i, j, err = 0;
	int32_t		number;
	picl_nodehdl_t	*ps;
	picl_nodehdl_t	*ps_fail_sensor;
	char		name[PICL_PROPNAMELEN_MAX];
	char		fault_state[PICL_PROPNAMELEN_MAX];

	log_printf(dgettext(TEXT_DOMAIN, "\n\n"
		"Power Supplies:\n"
		"---------------\n"
		"\n"
		"Supply     Status        Fault     Fan Fail   Temp Fail\n"
		"------    ------------   --------  ---------  ---------\n"));

	err = fill_device_array_from_id(system_node, "PSVC_PS", &number, &ps);
	if (err != PICL_SUCCESS) {
		return (err);
	}

	for (i = 0; i < MAX_PS; i++) {
		err = picl_get_propval_by_name(ps[i], PICL_PROP_NAME, name,
		    PICL_PROPNAMELEN_MAX);
		if (err != PICL_SUCCESS)
			continue;

		log_printf(dgettext(TEXT_DOMAIN, "%6-s"), name);
		err = picl_get_propval_by_name(ps[i], "FaultInformation",
			fault_state, PICL_PROPNAMELEN_MAX);
		if (err != PICL_SUCCESS) {
			free(ps);
			return (err);
		}
		log_printf(dgettext(TEXT_DOMAIN, "   [%-12s]"), fault_state);
		if (strcmp(fault_state, "NO AC POWER") == 0) {
			log_printf("\n");
			continue;
		}

		err = fill_device_array_from_id(ps[i], "PSVC_DEV_FAULT_SENSOR",
			&number, &ps_fail_sensor);

		if (err != PICL_SUCCESS) {
			free(ps);
			return (err);
		}
		log_printf("   ");
		for (j = 0; j < MAX_PS_SENSORS; j++) {
			err = picl_get_propval_by_name(ps_fail_sensor[j],
				"State", fault_state, PICL_PROPNAMELEN_MAX);
			if (err != PICL_SUCCESS) {
				if (err == PICL_FAILURE) {
					break;
				}
				free(ps);
				free(ps_fail_sensor);
				return (err);
			}
			log_printf(dgettext(TEXT_DOMAIN, "%-10s"), fault_state);
		}
		log_printf("\n");
		free(ps_fail_sensor);
	}

	log_printf(dgettext(TEXT_DOMAIN,
		"\n=================================\n\n"));

	free(ps);
	return (PICL_SUCCESS);
}

static int
print_fans(picl_nodehdl_t system_node)
{
	int		i, err;
	int32_t		number;
	picl_nodehdl_t	*fans;
	picl_nodehdl_t	phdl;
	char		prop[PICL_PROPNAMELEN_MAX];
	char		parent[PICL_PROPNAMELEN_MAX];
	int32_t		rpm;

	err = fill_device_array_from_id(system_node, "PSVC_FAN", &number,
		&fans);
	if (err != PICL_SUCCESS) {
		return (err);
	}

	log_printf(dgettext(TEXT_DOMAIN,
		"\n=================================\n\n"
		"Fan Status:\n"
		"-----------\n\n"
		"Fan Tray        Fan              RPM    Status\n"
		"-----------     ----            -----   ----------\n"));

	for (i = 0; i < MAX_FANS; i++) {
		err = picl_get_propval_by_name(fans[i], PICL_PROP_NAME, prop,
			PICL_PROPNAMELEN_MAX);
		if (err != PICL_SUCCESS)
			continue;

		err = fill_device_from_id(fans[i], "PSVC_PARENT", &phdl);
		if (err != PICL_SUCCESS)
			continue;
		err = picl_get_propval_by_name(phdl, PICL_PROP_NAME, parent,
			PICL_PROPNAMELEN_MAX);
		if (err != PICL_SUCCESS)
			continue;

		log_printf(dgettext(TEXT_DOMAIN, "%-16s"), parent);


		log_printf(dgettext(TEXT_DOMAIN, "%-16s"), prop);

		err = picl_get_propval_by_name(fans[i], "Fan-speed",
		    &rpm, sizeof (rpm));
		if (err != PICL_SUCCESS) {
			free(fans);
			return (err);
		}
		log_printf(dgettext(TEXT_DOMAIN, "%5d "), rpm);

		err = picl_get_propval_by_name(fans[i], "FaultInformation",
		    prop, PICL_PROPNAMELEN_MAX);
		if (err != PICL_SUCCESS) {
			free(fans);
			return (err);
		}
		log_printf(dgettext(TEXT_DOMAIN, "  [%s]\n"), prop);
	}
	log_printf(dgettext(TEXT_DOMAIN,
		"\n=================================\n\n"));
	free(fans);
	return (PICL_SUCCESS);
}

static int
print_disk(picl_nodehdl_t system_node)
{
	int		i, err;
	int32_t		number;
	picl_nodehdl_t	*disks;
	char		state[PICL_PROPNAMELEN_MAX];

	err = fill_device_array_from_id(system_node, "PSVC_DISK", &number,
	    &disks);
	if (err != PICL_SUCCESS) {
		return (err);
	}

	log_printf(dgettext(TEXT_DOMAIN,
		"Disk Status:\n"
		"------------\n"));
	for (i = 0; i < MAX_DISKS; i++) {
		err = picl_get_propval_by_name(disks[i], "FaultInformation",
		    state, PICL_PROPNAMELEN_MAX);

		switch (err) {
		case PICL_SUCCESS:
			log_printf(dgettext(TEXT_DOMAIN,
				"DISK %d: [%3s]\n"), i, state);
			break;
		case PICL_INVALIDHANDLE:
			log_printf(dgettext(TEXT_DOMAIN,
				"DISK %d: [ NOT PRESENT ]\n"), i);
			break;
		default:
			free(disks);
			return (err);
		}
	}
	free(disks);
	return (PICL_SUCCESS);
}

static int
print_FSP_LEDS(picl_nodehdl_t system_node)
{
	int		err;
	int32_t		number;
	picl_nodehdl_t	*fsp_led;
	char		fault_state[PICL_PROPNAMELEN_MAX];
	char		locate_state[PICL_PROPNAMELEN_MAX];

	err = fill_device_array_from_id(system_node, "PSVC_FSP_LED", &number,
	    &fsp_led);
	if (err != PICL_SUCCESS) {
		return (err);
	}

	assert(number == 2);
	err = picl_get_propval_by_name(fsp_led[0], "State", &fault_state,
		PICL_PROPNAMELEN_MAX);
	if (err != PICL_SUCCESS) {
		free(fsp_led);
		return (err);
	}
	err = picl_get_propval_by_name(fsp_led[1], "State", &locate_state,
		PICL_PROPNAMELEN_MAX);
	if (err != PICL_SUCCESS) {
		free(fsp_led);
		return (err);
	}

	log_printf(dgettext(TEXT_DOMAIN,
		"System LED Status:\n\n"
		"  LOCATOR   FAULT    POWER\n"
		"  -------  -------  -------\n"
		"   [%3s]    [%3s]    [ ON]"),
			locate_state, fault_state);

	log_printf(dgettext(TEXT_DOMAIN,
		"\n\n=================================\n\n"));
	free(fsp_led);
	return (err);
}

static int
print_keyswitch(picl_nodehdl_t system_node)
{
	int		err;
	picl_nodehdl_t	*keyswitch;
	int32_t		number;
	char		ks_pos[PICL_PROPNAMELEN_MAX];

	err = fill_device_array_from_id(system_node, "PSVC_KEYSWITCH", &number,
	    &keyswitch);
	if (err != PICL_SUCCESS) {
		return (err);
	}
	err = picl_get_propval_by_name(keyswitch[0], "State", ks_pos,
		PICL_PROPNAMELEN_MAX);
	if (err != PICL_SUCCESS) {
		free(keyswitch);
		return (err);
	}

	log_printf(dgettext(TEXT_DOMAIN,
		"Front Status Panel:\n"
		"-------------------\n"
		"Keyswitch position: %s\n\n"), ks_pos);
	free(keyswitch);
	return (err);
}

static int
print_temps(picl_nodehdl_t system_node)
{
	int		i;
	int		err;
	picl_nodehdl_t	*system_ts_nodes;
	int32_t		temp;
	int32_t		number;
	char		label[PICL_PROPNAMELEN_MAX];
	char		state[PICL_PROPNAMELEN_MAX];
	char		*p;

	err = fill_device_array_from_id(system_node, "PSVC_TS", &number,
	    &system_ts_nodes);
	if (err != PICL_SUCCESS) {
		return (err);
	}

	log_printf(dgettext(TEXT_DOMAIN,
		"System Temperatures (Celsius):\n"
		"-------------------------------\n"
		"Device\t\tTemperature\tStatus\n"
		"---------------------------------------\n"));

	for (i = 0; i < number; i++) {
		err = picl_get_propval_by_name(system_ts_nodes[i],
		    "State", state, sizeof (state));
		if (err != PICL_SUCCESS) {
			if (err == PICL_INVALIDHANDLE) {
				strcpy(state, "n/a");
			} else {
				free(system_ts_nodes);
				return (err);
			}
		}
		err = picl_get_propval_by_name(system_ts_nodes[i],
		    PICL_PROP_NAME, label, PICL_PROPNAMELEN_MAX);
		if (err != PICL_SUCCESS) {
			if (err == PICL_INVALIDHANDLE)
				/* This FRU isn't present. Skip it. */
				continue;
			free(system_ts_nodes);
			return (err);
		}

		/*
		 * The names in the tree are like "CPU0_DIE_TEMPERATURE_SENSOR".
		 * All we want to print is up to the first underscore.
		 */
		p = strchr(label, '_');
		if (p != NULL)
			*p = '\0';

		err = picl_get_propval_by_name(system_ts_nodes[i],
				"Temperature", &temp, sizeof (temp));
		if (err != PICL_SUCCESS) {
			free(system_ts_nodes);
			return (err);
		}
		log_printf("%s\t\t%3d\t\t%s\n", label, temp, state);
	}

	log_printf(dgettext(TEXT_DOMAIN,
		"\n=================================\n\n"));

	free(system_ts_nodes);
	return (PICL_SUCCESS);
}

static void
display_hw_revisions(Prom_node *root, Board_node *bdlist)
{
	Prom_node	*pnode;
	char		*value;

	log_printf(dgettext(TEXT_DOMAIN, "\n"
		"========================= HW Revisions "
		"=======================================\n\n"));

	log_printf(dgettext(TEXT_DOMAIN,
		"System PROM revisions:\n"
		"----------------------\n"));

	pnode = dev_find_node(root, "openprom");
	if (pnode != NULL) {
	    value = (char *)get_prop_val(find_prop(pnode, "version"));
	    log_printf(value);
	}

	log_printf(dgettext(TEXT_DOMAIN, "\n\n"
		"IO ASIC revisions:\n"
		"------------------\n"
		"         Port\n"
		"Model     ID  Status Version\n"
		"-------- ---- ------ -------\n"));

	display_schizo_revisions(bdlist);
}


static void
display_schizo_revisions(Board_node *bdlist)
{
	Prom_node	*pnode;
	int		*int_val;
	int		portid;
	int		prev_portid = -1;
	char		*status_a = NULL;
	char		*status_b = NULL;
	int		revision;
#ifdef DEBUG
	uint32_t	a_notes, b_notes;
#endif
	int		pci_bus;
	Board_node	*bnode;
	bnode = bdlist;

	while (bnode != NULL) {
		/*
		 * search this board node for all Schizos
		 */

		for (pnode = dev_find_node_by_compat(bnode->nodes,
			SCHIZO_COMPAT_PROP); pnode != NULL;
			pnode = dev_next_node_by_compat(pnode,
			    SCHIZO_COMPAT_PROP)) {

			/*
			 * get the reg property to determine
			 * whether we are looking at side A or B
			 */

			int_val = (int *)get_prop_val
				(find_prop(pnode, "reg"));
			if (int_val != NULL) {
				int_val ++; /* second integer in array */
				pci_bus = ((*int_val) & 0x7f0000);
			}

			/* get portid */
			int_val = (int *)get_prop_val
				(find_prop(pnode, "portid"));
			if (int_val == NULL)
				continue;

			portid = *int_val;

			/*
			 * If this is a new portid and it is PCI bus B,
			 * we skip onto the PCI bus A.
			 */
			if ((portid != prev_portid) && (pci_bus == 0x700000)) {
				prev_portid = portid;
				/* status */
				status_b = (char *)get_prop_val
				    (find_prop(pnode, "status"));
#ifdef DEBUG
				b_notes = pci_bus;
#endif
				continue; /* skip to the next schizo */
			}

			/*
			 * This must be side A of the same Schizo.
			 * Gather all its props and display them.
			 */
#ifdef DEBUG
			a_notes = pci_bus;
#endif

			prev_portid = portid;

			int_val = (int *)get_prop_val
				(find_prop(pnode, "version#"));
			if (int_val != NULL)
				revision = *int_val;
			else
				revision = -1;

			status_a = (char *)get_prop_val(find_prop
				(pnode, "status"));

			log_printf(dgettext(TEXT_DOMAIN, "Schizo    "));

			log_printf(dgettext(TEXT_DOMAIN, "%-3d "), portid, 0);


			log_printf((status_a == NULL && status_b == NULL) ?
				dgettext(TEXT_DOMAIN, "  ok  ") :
				dgettext(TEXT_DOMAIN, " fail "));

			log_printf(dgettext(TEXT_DOMAIN, " %4d   "),
			    revision);
#ifdef DEBUG
			log_printf(" 0x%x 0x%x", a_notes, b_notes);
#endif
			log_printf("\n");
		}
		bnode = bnode->next;
	}
}