xref: /illumos-gate/usr/src/cmd/picl/plugins/sun4u/lib/fruaccess/fru_access.c (revision 93d26c05)

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (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 2007 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <limits.h>
#include <alloca.h>
#include "fru_access_impl.h"

#pragma init(initialize_fruaccess)	/* .init section */

static	hash_obj_t	*hash_table[TABLE_SIZE];

/*
 * seeprom is the driver_name for the SEEPROM device drivers in excalibur
 * Define the devfsadm command to load the seeprom drivers if open fails.
 */

static	char	devfsadm_cmd[] = "/usr/sbin/devfsadm -i seeprom";

/* this routine initialize the hash table. */

static void
initialize_fruaccess(void)
{
	int	count;
	for (count = 0; count < TABLE_SIZE; count++) {
		hash_table[count] = NULL;
	}
}

/*
 * called to lookup hash object for specified handle in the hash table.
 *
 */

static hash_obj_t *
lookup_handle_object(handle_t	handle, int object_type)
{
	handle_t	index_to_hash;
	hash_obj_t	*first_hash_obj;
	hash_obj_t	*next_hash_obj;

	index_to_hash	= (handle % TABLE_SIZE);

	first_hash_obj = hash_table[index_to_hash];
	for (next_hash_obj = first_hash_obj; next_hash_obj != NULL;
	    next_hash_obj = next_hash_obj->next) {
		if ((handle == next_hash_obj->obj_hdl) &&
		    (object_type == next_hash_obj->object_type)) {
			return (next_hash_obj);
		}
	}
	return (NULL);
}

/* called to allocate container hash object */

static hash_obj_t *
create_container_hash_object(void)
{
	hash_obj_t		*hash_obj;
	container_obj_t		*cont_obj;

	cont_obj	= malloc(sizeof (container_obj_t));
	if (cont_obj == NULL) {
		return (NULL);
	}

	hash_obj = malloc(sizeof (hash_obj_t));
	if (hash_obj == NULL) {
		free(cont_obj);
		return (NULL);
	}

	cont_obj->sec_obj_list	= NULL;

	hash_obj->object_type	= CONTAINER_TYPE;
	hash_obj->u.cont_obj	= cont_obj;
	hash_obj->next	= NULL;
	hash_obj->prev	= NULL;

	return (hash_obj);
}

/* called to allocate section hash object */

static hash_obj_t *
create_section_hash_object(void)
{
	hash_obj_t		*hash_obj;
	section_obj_t		*sec_obj;

	sec_obj	= malloc(sizeof (section_obj_t));
	if (sec_obj == NULL) {
		return (NULL);
	}

	hash_obj = malloc(sizeof (hash_obj_t));
	if (hash_obj == NULL) {
		free(sec_obj);
		return (NULL);
	}

	sec_obj->next		= NULL;
	sec_obj->seg_obj_list	= NULL;

	hash_obj->u.sec_obj	= sec_obj;
	hash_obj->object_type	= SECTION_TYPE;
	hash_obj->next		= NULL;
	hash_obj->prev		= NULL;

	return (hash_obj);
}

/* called to allocate segment hash object */

static hash_obj_t *
create_segment_hash_object(void)
{
	hash_obj_t		*hash_obj;
	segment_obj_t		*seg_obj;

	seg_obj	= malloc(sizeof (segment_obj_t));
	if (seg_obj == NULL) {
		return (NULL);
	}

	hash_obj = malloc(sizeof (hash_obj_t));
	if (hash_obj == NULL) {
		free(seg_obj);
		return (NULL);
	}

	seg_obj->next		= NULL;
	seg_obj->pkt_obj_list	= NULL;

	hash_obj->object_type	= SEGMENT_TYPE;
	hash_obj->u.seg_obj	= seg_obj;
	hash_obj->next		= NULL;
	hash_obj->prev		= NULL;

	return (hash_obj);
}

/* called to allocate packet hash object */

static hash_obj_t *
create_packet_hash_object(void)
{
	hash_obj_t		*hash_obj;
	packet_obj_t		*pkt_obj;

	pkt_obj	= malloc(sizeof (packet_obj_t));
	if (pkt_obj == NULL) {
		return (NULL);
	}

	hash_obj	= malloc(sizeof (hash_obj_t));
	if (hash_obj == NULL) {
		free(pkt_obj);
		return (NULL);
	}

	pkt_obj->next		= NULL;

	hash_obj->object_type	= PACKET_TYPE;
	hash_obj->u.pkt_obj	= pkt_obj;
	hash_obj->next		= NULL;
	hash_obj->prev		= NULL;

	return (hash_obj);
}

/* called to add allocated hash object into the hash table */

static void
add_hashobject_to_hashtable(hash_obj_t *hash_obj)
{
	handle_t		index_to_hash;
	static	uint64_t	handle_count	= 0;

	hash_obj->obj_hdl = ++handle_count;	/* store the handle */

	/* where to add ? */
	index_to_hash	= ((hash_obj->obj_hdl) % TABLE_SIZE);

	hash_obj->next	= hash_table[index_to_hash];
	hash_table[index_to_hash] = hash_obj;	/* hash obj. added */

	if (hash_obj->next != NULL) {
		hash_obj->next->prev = hash_obj;
	}
}

/* called to add section object list into the section list */

static void
add_to_sec_object_list(hash_obj_t *parent_obj, hash_obj_t *child_obj)
{
	hash_obj_t	*next_hash;

	child_obj->u.sec_obj->cont_hdl = parent_obj->obj_hdl;
	if (parent_obj->u.cont_obj->sec_obj_list == NULL) {
		parent_obj->u.cont_obj->sec_obj_list = child_obj;
		return;
	}

	for (next_hash = parent_obj->u.cont_obj->sec_obj_list;
	    next_hash->u.sec_obj->next != NULL;
	    next_hash = next_hash->u.sec_obj->next) {
		;
	}

	next_hash->u.sec_obj->next	= child_obj;
}

/* called to add segment object list into segment list */

static void
add_to_seg_object_list(hash_obj_t *parent_obj, hash_obj_t *child_obj)
{
	hash_obj_t	*next_hash;

	child_obj->u.seg_obj->section_hdl = parent_obj->obj_hdl;
	if (parent_obj->u.sec_obj->seg_obj_list == NULL) {
		parent_obj->u.sec_obj->seg_obj_list = child_obj;
		return;
	}

	for (next_hash = parent_obj->u.sec_obj->seg_obj_list;
	    next_hash->u.seg_obj->next != NULL;
	    next_hash = next_hash->u.seg_obj->next) {
		;
	}

	next_hash->u.seg_obj->next	= child_obj;
}

/* called to add packet object list into packet list */

static void
add_to_pkt_object_list(hash_obj_t *parent_obj, hash_obj_t *child_obj)
{
	hash_obj_t	*next_hash;

	/* add the packet object in the end of list */
	child_obj->u.pkt_obj->segment_hdl = parent_obj->obj_hdl;

	if (parent_obj->u.seg_obj->pkt_obj_list == NULL) {
		parent_obj->u.seg_obj->pkt_obj_list = child_obj;
		return;
	}

	for (next_hash = parent_obj->u.seg_obj->pkt_obj_list;
	    next_hash->u.pkt_obj->next != NULL;
	    next_hash = next_hash->u.pkt_obj->next) {
		;
	}

	next_hash->u.pkt_obj->next = child_obj;
}

static void
copy_segment_layout(segment_t	*seghdr, void	*layout)
{
	segment_layout_t	*seg_layout;

	seg_layout	= (segment_layout_t *)layout;
	(void) memcpy(seghdr->name, &seg_layout->name, SEG_NAME_LEN);
	seghdr->descriptor = GET_SEGMENT_DESCRIPTOR;
	seghdr->offset	= seg_layout->offset;
	seghdr->length	= seg_layout->length;
}

static hash_obj_t *
get_container_hash_object(int	object_type, handle_t	handle)
{
	hash_obj_t	*hash_obj;

	switch (object_type) {
	case	CONTAINER_TYPE	:
		break;
	case	SECTION_TYPE	:
		hash_obj = lookup_handle_object(handle, CONTAINER_TYPE);
		if (hash_obj == NULL) {
			return (NULL);
		}
		break;
	case	SEGMENT_TYPE	:
		hash_obj = lookup_handle_object(handle, SECTION_TYPE);
		if (hash_obj == NULL) {
			return (NULL);
		}
		hash_obj = lookup_handle_object(hash_obj->u.sec_obj->cont_hdl,
		    CONTAINER_TYPE);
		break;
	case	PACKET_TYPE	:
		break;
	default	:
		return (NULL);
	}
	return (hash_obj);
}


static void
sort_offsettbl(int	segcnt, seg_info_t	*offset_tbl)
{
	int		cntx;
	int		cnty;
	seg_info_t	tmp;

	for (cntx = 0; cntx < segcnt+2; cntx++) {
		for (cnty = cntx+1; cnty < segcnt + 2; cnty++) {
			if (offset_tbl[cntx].offset >
			    offset_tbl[cnty].offset) {
				(void) memcpy(&tmp, &offset_tbl[cnty],
				    sizeof (seg_info_t));
				(void) memcpy(&offset_tbl[cnty],
				    &offset_tbl[cntx], sizeof (seg_info_t));

				(void) memcpy(&offset_tbl[cntx], &tmp,
				    sizeof (seg_info_t));
			}
		}
	}
}

/*
 * Description : move_segment_data() reads the segment data and writes it
 *      back to the new segment offset.
 */

static void
move_segment_data(void *seghdr, int newoffset, container_hdl_t contfd)
{
	int			ret;
	char			*buffer;
	segment_layout_t	*segment;

	segment	= (segment_layout_t *)seghdr;

	buffer = alloca(segment->length);
	if (buffer == NULL) {
		return;
	}

	ret = pread(contfd, buffer, segment->length, segment->offset);
	if (ret != segment->length) {
		return;
	}

	segment->offset = newoffset;

	ret = pwrite(contfd, buffer, segment->length, segment->offset);
	if (ret != segment->length) {
		return;
	}
}

/*
 * Description : pack_segment_data() moves the segment data if there is
 *              a hole between two segments.
 */

static void
pack_segment_data(char *seghdr, int segcnt, container_hdl_t contfd,
    seg_info_t *offset_tbl)
{
	int	cnt;
	int	diff;
	int	newoffset;

	for (cnt = segcnt + 1; cnt > 0; cnt--) {
		if (!offset_tbl[cnt - 1].fixed) {
			if (offset_tbl[cnt].offset -
			    (offset_tbl[cnt -1 ].offset +
			    offset_tbl[cnt - 1].length) > 0) {

				diff = offset_tbl[cnt].offset -
				    (offset_tbl[cnt - 1].offset +
				    offset_tbl[cnt - 1].length);
				newoffset = offset_tbl[cnt - 1].offset + diff;

				move_segment_data(seghdr, newoffset, contfd);

				offset_tbl[cnt - 1].offset = newoffset;

				sort_offsettbl(segcnt, offset_tbl);
			}
		}
	}
}

/*
 * Description : build_offset_tbl() builds the offset table by reading all the
 *              segment header. it makes two more entry into the table one for
 *              section size and another with start of the section after the
 *              segment header.
 */

static int
build_offset_tbl(void   *seghdr, int segcnt, int secsize,
    seg_info_t *offset_tbl)
{
	int			cnt;
	fru_segdesc_t		segdesc;
	segment_layout_t	*segment;

	for (cnt = 0; cnt < segcnt; cnt++) {
		segment	= (segment_layout_t *)(seghdr) + cnt;

		(void) memcpy(&segdesc, &segment->descriptor,
		    sizeof (uint32_t));
		offset_tbl[cnt].segnum = cnt;
		offset_tbl[cnt].offset = segment->offset;
		offset_tbl[cnt].length = segment->length;
		offset_tbl[cnt].fixed = segdesc.field.fixed;
	}

	/* upper boundary of segment area (lower address bytes) */
	offset_tbl[cnt].segnum = -1;
	offset_tbl[cnt].offset = sizeof (section_layout_t) +
	    ((cnt + 1) * sizeof (segment_layout_t));

	offset_tbl[cnt].length = 0;
	offset_tbl[cnt].fixed  = 1;
	/* lower boundary of segment area (higher address bytes) */

	offset_tbl[cnt+1].segnum = -1;
	offset_tbl[cnt+1].offset = secsize;
	offset_tbl[cnt+1].length = 0;
	offset_tbl[cnt+1].fixed = 1;
	return (0);
}

static int
hole_discovery(int bytes, int segcnt, int *totsize, seg_info_t *offset_tbl)
{
	int cnt = 0;

	*totsize = 0;
	for (cnt = segcnt + 1; cnt > 0; cnt--) {
		if (bytes <= offset_tbl[cnt].offset -
		    (offset_tbl[cnt - 1].offset +
		    offset_tbl[cnt - 1].length)) {
			return (offset_tbl[cnt].offset - bytes);
		}

		*totsize += offset_tbl[cnt].offset -
		    (offset_tbl[cnt - 1].offset + offset_tbl[cnt - 1].length);
	}
	return (0);
}


/*
 * Description : segment_hdr_present() verify space for new segment header to
 *              be added.
 */

static int
segment_hdr_present(int segoffset, int size, seg_info_t *offset_tbl)
{
	if ((segoffset + size) <= offset_tbl[0].offset)
		return (0);
	else
		return (-1);
}

/*
 * Description : find_offset() is called from fru_add_segment routine to find
 *              a valid offset.
 */

static int
find_offset(char *seghdr, int segcnt, int secsize, int *sectionoffset,
    int segsize, int fix, container_hdl_t contfd)
{
	int		ret;
	int		newoffset;
	int		totsize = 0;
	seg_info_t	*offset_tbl;

	if (segcnt == 0) {
		if (!fix) {	/* if not fixed segment */
			*sectionoffset = secsize - segsize;
		}
		return (0);
	}

	/*
	 * two extra segment info structure are allocated for start of segment
	 * and other end of segment. first segment offset is first available
	 * space and length is 0. second segment offset is is segment length and
	 * offset is 0. build_offset_tbl() explains how upper boundary and lower
	 * boudary segment area are initialized in seg_info_t table.
	 */

	offset_tbl    = malloc((segcnt + 2) * sizeof (seg_info_t));
	if (offset_tbl == NULL) {
		return (-1);
	}

	/* read all the segment header to make offset table */
	ret = build_offset_tbl(seghdr, segcnt, secsize, offset_tbl);
	if (ret != 0) {
		free(offset_tbl);
		return (-1);
	}

	/* sort the table */
	sort_offsettbl(segcnt, offset_tbl);

	/* new segment header offset */
	newoffset = sizeof (section_layout_t) + segcnt *
	    sizeof (segment_layout_t);

	/* do? new segment header overlap any existing data */
	ret = segment_hdr_present(newoffset, sizeof (segment_layout_t),
	    offset_tbl);
	if (ret != 0) { /* make room for new segment if possible */

	/* look for hole in order to move segment data */
		if (offset_tbl[0].fixed == SEGMENT_FIXED) { /* fixed segment */
			free(offset_tbl);
			return (-1);
		}

		newoffset = hole_discovery(offset_tbl[0].length, segcnt,
		    &totsize, offset_tbl);
		if (newoffset != 0) { /* found new offset */
				/* now new offset */
			offset_tbl[0].offset = newoffset;

			/* move the segment data */
			move_segment_data(seghdr, newoffset, contfd);
			/* again sort the offset table */
			sort_offsettbl(segcnt, offset_tbl);
		} else {
			/* pack the existing hole */
			if (totsize > offset_tbl[0].length) {
				pack_segment_data(seghdr, segcnt, contfd,
				    offset_tbl);
			} else {
				free(offset_tbl);
				return (-1);
			}
		}
	}

	totsize = 0;
	newoffset = hole_discovery(segsize, segcnt, &totsize, offset_tbl);

	if (newoffset == 0) { /* No hole found */
		if (totsize >= segsize) {
			pack_segment_data(seghdr, segcnt, contfd, offset_tbl);
			newoffset = hole_discovery(segsize, segcnt, &totsize,
			    offset_tbl);
			if (newoffset != 0) {
				*sectionoffset = newoffset;
				free(offset_tbl);
				return (0);
			}
		}
	} else {
		*sectionoffset = newoffset;
		free(offset_tbl);
		return (0);
	}
	free(offset_tbl);
	return (-1);
}

static char *
tokenizer(char *buf, char *separator, char **nextBuf, char *matched)
{
	int i = 0;
	int j = 0;

	for (i = 0; buf[i] != '\0'; i++) {
		for (j = 0; j < strlen(separator); j++) {
			if (buf[i] == separator[j]) {
				buf[i] = '\0';
				*nextBuf = &(buf[i+1]);
				*matched = separator[j];
				return (buf);
			}
		}
	}

	*nextBuf = buf;
	*matched = '\0';
	return (NULL);
}

static int
get_container_info(const char *def_file, const char *cont_desc_str,
    container_info_t *cont_info)
{
	char	*item;
	char	*token;
	char	*field;
	char	matched;
	char	buf[1024];
	int	foundIt = 0;
	int	ro_tok;
	int	index;
	FILE	*file = fopen(def_file, "r");

	if (file == NULL)
		return (-1);

	cont_info->num_sections = 0;

	while (fgets(buf, sizeof (buf), file) != NULL) {
		/* ignore all comments */
		token = tokenizer(buf, "#", &field, &matched);
		/* find the names */
		token = tokenizer(buf, ":", &field, &matched);
		if (token != NULL) {
			token = tokenizer(token, "|", &item, &matched);
			while (token != NULL) {
				if (strcmp(token, cont_desc_str) == 0) {
					foundIt = 1;
					goto found;
				}
				token = tokenizer(item, "|", &item, &matched);
			}
			/* check the last remaining item */
			if ((item != NULL) &&
			    (strcmp(item, cont_desc_str) == 0)) {
				foundIt = 1;
				goto found;
			}
		}
	}

found :
	if (foundIt == 1) {
		token = tokenizer(field, ":", &field, &matched);
		if (token == NULL) {
			(void) fclose(file);
			return (-1);
		}
		cont_info->header_ver = (headerrev_t)atoi(token);

		token = tokenizer(field, ":\n", &field, &matched);
		while (token != NULL) {
			token = tokenizer(token, ",", &item, &matched);
			if (token == NULL) {
				(void) fclose(file);
				return (-1);
			}
			ro_tok = atoi(token);
			index = cont_info->num_sections;
			cont_info->section_info[index].encoding = ENC_STANDARD;
			if (ro_tok == 1) {
				cont_info->section_info[index].description.
				    field.read_only = 1;
			} else if (ro_tok == 0) {
				cont_info->section_info[index].description.
				    field.read_only = 0;
			} else if (ro_tok == 2) {
				/*
				 * a value of 2 in the read-only token means
				 * that the data in this section needs
				 * re-interpreting
				 */
				cont_info->section_info[index].description.
				    field.read_only = 1;
			} else {
				(void) fclose(file);
				return (-1);
			}

			token = tokenizer(item, ",", &item, &matched);
			if (token == NULL) {
				(void) fclose(file);
				return (-1);
			}

			cont_info->section_info[index].address = atoi(token);
			if (ro_tok == 2) {
				/*
				 * expect an extra parameter to define the
				 * data interpreter
				 */
				token = tokenizer(item, ",", &item, &matched);
				if (token == NULL) {
					(void) fclose(file);
					return (-1);
				}
			}
			if (*item == '\0') {
				(void) fclose(file);
				return (-1);
			}
			cont_info->section_info[index].size =
			    ro_tok == 2 ? atoi(token) : atoi(item);
			if (ro_tok == 2) {
				if (strcmp(item, "SPD") == 0)
					cont_info->section_info[index].
					    encoding = ENC_SPD;
				else {
					(void) fclose(file);
					return (-1);
				}
			}
			(cont_info->num_sections)++;

			token = tokenizer(field, ":\n ", &field, &matched);
		}
	}
	(void) fclose(file);
	return (0);
}

/*
 * Description :fru_open_container() opens the container associated with a fru.
 *              it's called by data plugin module before creating container
 *              property.  it calls picltree library routine to get the
 *              device path and driver binding name for the fru to get the
 *              corresponding fru name that describe the fru layout.
 *
 * Arguments   :picl_hdl_t      fru
 *              A handle for PICL tree node of class "fru" representing the
 *              FRU with the container to open.
 *
 * Return      :
 *              On Success, a Positive integer container handle. is returned
 *              for use in subsequent fru operations;on error, 0 is returned
 *              and "errno" is set appropriately.
 */

container_hdl_t
fru_open_container(picl_nodehdl_t fruhdl)
{
	int			retval;
	int			count;
	int			device_fd;
	uchar_t			first_byte;
	char			*bname;
	char			devpath[PATH_MAX];
	char			nmbuf[SYS_NMLN];
	hash_obj_t		*cont_hash_obj;
	hash_obj_t		*sec_hash_obj;
	picl_nodehdl_t		tmphdl;
	picl_prophdl_t		prophdl;
	ptree_propinfo_t	propinfo;
	container_info_t	cont_info;

	/* Get property handle of _seeprom_source under fru node */
	retval = ptree_get_propval_by_name(fruhdl, PICL_REFPROP_SEEPROM_SRC,
	    &tmphdl, sizeof (tmphdl));
	if (retval != PICL_SUCCESS) {
		return (0);
	}

	/* Get the device path of the fru */
	retval = ptree_get_propval_by_name(tmphdl, PICL_PROP_DEVICEPATH,
	    devpath, PATH_MAX);
	if (retval != PICL_SUCCESS) {
		return (0);
	}

	retval = ptree_get_prop_by_name(tmphdl, PICL_PROP_BINDING_NAME,
	    &prophdl);
	if (retval != PICL_SUCCESS) {
		return (0);
	}

	retval = ptree_get_propinfo(prophdl, &propinfo);
	if (retval != PICL_SUCCESS) {
		return (0);
	}

	bname = alloca(propinfo.piclinfo.size);
	if (bname == NULL) {
		return (0);
	}

	/* get the driver binding name */
	retval = ptree_get_propval(prophdl, bname, propinfo.piclinfo.size);
	if (retval != PICL_SUCCESS) {
		return (0);
	}

	cont_hash_obj	= create_container_hash_object();
	if (cont_hash_obj == NULL) {
		return (0);
	}

	add_hashobject_to_hashtable(cont_hash_obj);

	(void) strlcpy(cont_hash_obj->u.cont_obj->device_pathname, devpath,
	    sizeof (devpath));

	/* check for sun or non-sun type fru */
	if (strcmp(bname, "i2c-at34c02") == 0) {
		device_fd = open(devpath, O_RDONLY);
		if (device_fd < 0) {
			return (0);
		}
		first_byte = 0x00;

		retval = pread(device_fd, &first_byte, sizeof (first_byte), 0);
		(void) close(device_fd);
		switch (first_byte) {
			case 0x08:
				(void) strcpy(bname, "i2c-at34cps");
				break;
			case 0x80:
				(void) strcpy(bname, "i2c-at34c02");
				break;
			default:
				(void) strcpy(bname, "i2c-at34cuk");
				break;
		}
	}

	/* if there's a platform-specific conf file, use that */
	retval = -1;
	if (sysinfo(SI_PLATFORM, nmbuf, sizeof (nmbuf)) != -1) {
		(void) snprintf(devpath, PATH_MAX, PICLD_PLAT_PLUGIN_DIRF,
		    nmbuf);
		(void) strlcat(devpath, FRU_CONTAINER_CONF, PATH_MAX);
		retval = access(devpath, R_OK);
	}
	if (retval != 0) {
		/* nothing for the platform, try the base name */
		(void) snprintf(devpath, PATH_MAX, "%s/%s",
		    CONTAINER_DIR, FRU_CONTAINER_CONF);
		retval = access(devpath, R_OK);
	}
	/* matches driver binding name to get container information */
	if (retval == 0) {
		retval = get_container_info(devpath, bname, &cont_info);
	}
	if (retval < 0) {
		return (0);
	}

	cont_hash_obj->u.cont_obj->num_of_section =  cont_info.num_sections;
	cont_hash_obj->u.cont_obj->sec_obj_list = NULL;

	for (count = 0; count < cont_info.num_sections; count++) {
		sec_hash_obj = create_section_hash_object();
		if (sec_hash_obj == NULL) {
			return (0);
		}

		add_hashobject_to_hashtable(sec_hash_obj);

		sec_hash_obj->u.sec_obj->section.offset =
		    cont_info.section_info[count].address;

		sec_hash_obj->u.sec_obj->section.protection =
		    cont_info.section_info[count].description.field.read_only;

		sec_hash_obj->u.sec_obj->section.length =
		    cont_info.section_info[count].size;

		sec_hash_obj->u.sec_obj->section.version = cont_info.header_ver;
		sec_hash_obj->u.sec_obj->encoding =
		    cont_info.section_info[count].encoding;

		add_to_sec_object_list(cont_hash_obj, sec_hash_obj);
	}
	return (cont_hash_obj->obj_hdl);
}

static int
verify_header_crc8(headerrev_t head_ver, unsigned char *bytes, int length)
{
	int		crc_offset = 0;
	unsigned char	orig_crc8 = 0;
	unsigned char	calc_crc8 = 0;

	switch (head_ver) {
		case SECTION_HDR_VER:
			crc_offset = 4;
			break;
		default:
			errno = EINVAL;
			return (0);
	}

	orig_crc8 = bytes[crc_offset];
	bytes[crc_offset] = 0x00; /* clear for calc */
	calc_crc8 = compute_crc8(bytes, length);
	bytes[crc_offset] = orig_crc8; /* restore */
	return (orig_crc8 == calc_crc8);
}

/*
 * Description	:
 *		fru_get_num_sections() returns number of sections in a
 *		container. it calls get_container_index() to get the container
 *		index number in the container list.
 *
 * Arguments	:
 *		container_hdl_t	: container handle.
 *
 * Return	:
 *		int
 *		On success, returns number of sections in a container.
 *
 */

/* ARGSUSED */
int
fru_get_num_sections(container_hdl_t container, door_cred_t *cred)
{
	hash_obj_t		*hash_object;

	hash_object	= lookup_handle_object(container, CONTAINER_TYPE);
	if (hash_object == NULL) {
		return (-1);
	}

	return (hash_object->u.cont_obj->num_of_section);
}

/*
 * called from fru_get_sections()
 */

static void
get_section(int fd, hash_obj_t *sec_hash, section_t *section)
{
	int			retval;
	int			size;
	int			count;
	uint16_t		hdrver;
	hash_obj_t		*seg_hash;
	unsigned char		*buffer;
	section_obj_t		*sec_obj;
	section_layout_t	sec_hdr;
	segment_layout_t	*seg_hdr;
	segment_layout_t	*seg_buf;

	sec_obj	= sec_hash->u.sec_obj;
	if (sec_obj == NULL) {
		return;
	}

	/* populate section_t */
	section->handle = sec_hash->obj_hdl;
	section->offset = sec_obj->section.offset;
	section->length = sec_obj->section.length;
	section->protection = sec_obj->section.protection;
	section->version = sec_obj->section.version;
	sec_obj->num_of_segment	= 0;

	switch (sec_obj->encoding) {
	case ENC_STANDARD:
		/* read section header layout */
		retval = pread(fd, &sec_hdr, sizeof (sec_hdr),
		    sec_obj->section.offset);
		break;

	case ENC_SPD:
		retval = get_sp_sec_hdr(&sec_hdr, sizeof (sec_hdr));
		break;

	default:
		return;
	}

	if (retval != sizeof (sec_hdr)) {
		return;
	}

	hdrver	= GET_SECTION_HDR_VERSION;

	if ((sec_hdr.headertag != SECTION_HDR_TAG) &&
	    (hdrver != section->version)) {
		return;
	}

	/* size = section layout + total sizeof segment header */
	size	= sizeof (sec_hdr) + ((sec_hdr.segmentcount) *
	    sizeof (segment_layout_t));

	buffer	= alloca(size);
	if (buffer == NULL) {
		return;
	}

	/* segment header buffer */
	seg_buf = alloca(size - sizeof (sec_hdr));
	if (seg_buf == NULL) {
		return;
	}

	switch (sec_obj->encoding) {
	case ENC_STANDARD:
		/* read segment header */
		retval = pread(fd, seg_buf, size - sizeof (sec_hdr),
		    sec_obj->section.offset + sizeof (sec_hdr));
		break;

	case ENC_SPD:
		retval =
		    get_sp_seg_hdr(seg_buf, size - sizeof (sec_hdr));
		break;

	default:
		return;
	}

	if (retval != (size - sizeof (sec_hdr))) {
		return;
	}

	/* copy section header layout */
	(void) memcpy(buffer, &sec_hdr, sizeof (sec_hdr));

	/* copy segment header layout */
	(void) memcpy(buffer + sizeof (sec_hdr), seg_buf, size -
	    sizeof (sec_hdr));

	/* verify crc8 */
	retval = verify_header_crc8(hdrver, buffer, size);
	if (retval != TRUE) {
		return;
	}

	section->version = hdrver;
	sec_obj->section.version = hdrver;

	seg_hdr	= (segment_layout_t *)seg_buf;

	for (count = 0; count < sec_hdr.segmentcount; count++, seg_hdr++) {
		seg_hash = create_segment_hash_object();
		if (seg_hash == NULL) {
			return;
		}

		add_hashobject_to_hashtable(seg_hash);

		copy_segment_layout(&seg_hash->u.seg_obj->segment, seg_hdr);

		add_to_seg_object_list(sec_hash, seg_hash);

		sec_obj->num_of_segment++;
	}
}


static int
call_devfsadm(void)
{
	char		*phys_path;
	di_node_t	root_node;
	di_node_t	prom_node;
	di_node_t	f_node;

	if ((root_node = di_init("/", DINFOCPYALL)) == DI_NODE_NIL) {
		return (-1);
	}

	f_node = di_drv_first_node(PICL_CLASS_SEEPROM, root_node);
	if (f_node != DI_NODE_NIL) {
		phys_path = di_devfs_path(f_node);
		if ((prom_node = di_init(phys_path, DINFOMINOR)) !=
		    DI_NODE_NIL) {
			di_fini(prom_node);
			di_fini(root_node);
			(void) pclose(popen(devfsadm_cmd, "r"));
			return (0);
		}
	}
	di_fini(root_node);
	return (-1);
}

/*
 * Description	:
 *		fru_get_sections() fills an array of section structures passed
 *		as an argument.
 *
 * Arguments	:
 *		container_hdl_t : container handle(device descriptor).
 *		section_t	: array of section structure.
 *		int		: maximum number of section in a container.
 *
 * Returns	:
 *		int
 *		On success,the number of section structures written is returned;
 *		on error, -1 is returned and "errno" is set appropriately.
 *
 */

/* ARGSUSED */
int
fru_get_sections(container_hdl_t container, section_t *section, int maxsec,
    door_cred_t *cred)
{
	int		device_fd;
	int		retrys = 1;
	int		count;
	hash_obj_t	*cont_object;
	hash_obj_t	*sec_hash;

	cont_object = lookup_handle_object(container, CONTAINER_TYPE);

	if (cont_object == NULL) {
		return (-1);
	}

	if (cont_object->u.cont_obj->num_of_section > maxsec) {
		return (-1);
	}

	sec_hash = cont_object->u.cont_obj->sec_obj_list;
	if (sec_hash == NULL) {
		return (-1);
	}

	do {
		device_fd =
		    open(cont_object->u.cont_obj->device_pathname, O_RDONLY);
		if (device_fd >= 0) {
			break;
		}
	} while ((retrys-- > 0) && (call_devfsadm() == 0));

	if (device_fd < 0) {
		return (-1);
	}

	for (count = 0; count < cont_object->u.cont_obj->num_of_section;
	    count++, section++) {
		section->version = -1;
		/* populate section_t */
		get_section(device_fd, sec_hash, section);
		sec_hash = sec_hash->u.sec_obj->next;
	}