if (type == VPD_RW_KEY) {		/* end tag is "RW" */		free = pAC->vpd.v.vpd_free_rw;		etp = pAC->vpd.vpd_buf + (vpd_size - free - 1 - 3);	}	else {		/* end tag is "RV" */		free = pAC->vpd.v.vpd_free_ro;		etp = pAC->vpd.vpd_buf + (vpd_size/2 - free - 4);	}	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_CTRL,		("Free RO = %d, Free RW = %d\n",		pAC->vpd.v.vpd_free_ro, pAC->vpd.v.vpd_free_rw));	head = 0;	found = 0;	if (op == OWR_KEY) {		if (vpd_find_para(pAC, key, &vp)) {			found = 3;			ip = vp.p_val - 3;			free += vp.p_len + 3;			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_CTRL,				("Overwrite Key\n"));		}		else {			op = ADD_KEY;			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_CTRL,				("Add Key\n"));		}	}	if (op == ADD_KEY) {		ip = etp;		vp.p_len = 0;		head = 3;	}	if (len + 3 > free) {		if (free < 7) {			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("VPD Buffer Overflow, keyword not written\n"));			return(4);		}		/* cut it again */		len = free - 3;		rtv = 2;		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,			("VPD Buffer Full, Keyword was cut\n"));	}	vpd_move_para(ip + vp.p_len + found, etp+2, len-vp.p_len+head);	vpd_insert_key(key, buf, len, ip);	if (vpd_mod_endtag(pAC, etp + len - vp.p_len + head)) {		pAC->vpd.v.vpd_status &= ~VPD_VALID;		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,			("VPD Encoding Error\n"));		return(6);	}	return(rtv);}/* *	Read the contents of the VPD EEPROM and copy it to the *	VPD buffer if not already done. * * return:	A pointer to the vpd_status structure. The structure contains *		this fields. */SK_VPD_STATUS *VpdStat(SK_AC	*pAC,	/* Adapters context */SK_IOC	IoC)	/* IO Context */{	if ((pAC->vpd.v.vpd_status & VPD_VALID) == 0) {		(void)VpdInit(pAC, IoC);	}	return(&pAC->vpd.v);}/* *	Read the contents of the VPD EEPROM and copy it to the VPD *	buffer if not already done. *	Scan the VPD buffer for VPD keywords and create the VPD *	keyword list by copying the keywords to 'buf', all after *	each other and terminated with a '\0'. * * Exceptions:	o The Resource Type ID String (product name) is called "Name" *		o The VPD end tags 'RV' and 'RW' are not listed * *	The number of copied keywords is counted in 'elements'. * * returns	0:	success *		2:	buffer overfull, one or more keywords are missing *		6:	fatal VPD error * *	example values after returning: * *		buf =	"Name\0PN\0EC\0MN\0SN\0CP\0VF\0VL\0YA\0" *		*len =		30 *		*elements =	 9 */int VpdKeys(SK_AC	*pAC,		/* common data base */SK_IOC	IoC,		/* IO Context */char	*buf,		/* buffer where to copy the keywords */int		*len,		/* buffer length */int		*elements)	/* number of keywords returned */{	char *v;	int n;	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_RX, ("list VPD keys .. "));	*elements = 0;	if ((pAC->vpd.v.vpd_status & VPD_VALID) == 0) {		if (VpdInit(pAC, IoC) != 0) {			*len = 0;			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("VPD Init Error, terminated\n"));			return(6);		}	}	if ((signed)strlen(VPD_NAME) + 1 <= *len) {		v = pAC->vpd.vpd_buf;		strcpy(buf,VPD_NAME);		n = strlen(VPD_NAME) + 1;		buf += n;		*elements = 1;		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_RX,			("'%c%c' ",v[0],v[1]));	}	else {		*len = 0;		SK_DBG_MSG(pAC,SK_DBGMOD_VPD,SK_DBGCAT_ERR,			("buffer overflow\n"));		return(2);	}	v += 3 + VPD_GET_RES_LEN(v) + 3;	for (;; ) {		/* exit when reaching the "RW" Tag */		if (SK_MEMCMP(VPD_RW,v,2) == 0) {			break;		}		if (SK_MEMCMP(VPD_RV,v,2) == 0) {			v += 3 + VPD_GET_VPD_LEN(v) + 3;	/* skip VPD-W */			continue;		}		if (n+3 <= *len) {			SK_MEMCPY(buf,v,2);			buf += 2;			*buf++ = '\0';			n += 3;			v += 3 + VPD_GET_VPD_LEN(v);			*elements += 1;			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_RX,				("'%c%c' ",v[0],v[1]));		}		else {			*len = n;			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("buffer overflow\n"));			return(2);		}	}	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_RX, ("\n"));	*len = n;	return(0);}/* *	Read the contents of the VPD EEPROM and copy it to the *	VPD buffer if not already done. Search for the VPD keyword *	'key' and copy its value to 'buf'. Add a terminating '\0'. *	If the value does not fit into the buffer cut it after *	'len' - 1 bytes. * * returns	0:	success *		1:	keyword not found *		2:	value string was cut *		3:	VPD transfer timeout *		6:	fatal VPD error */int VpdRead(SK_AC		*pAC,	/* common data base */SK_IOC		IoC,	/* IO Context */const char	*key,	/* keyword to read (e.g. "MN") */char		*buf,	/* buffer where to copy the keyword value */int			*len)	/* buffer length */{	SK_VPD_PARA *p, vp;	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_RX, ("VPD read %s .. ", key));	if ((pAC->vpd.v.vpd_status & VPD_VALID) == 0) {		if (VpdInit(pAC, IoC) != 0) {			*len = 0;			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("VPD init error\n"));			return(6);		}	}	if ((p = vpd_find_para(pAC, key, &vp)) != NULL) {		if (p->p_len > (*(unsigned *)len)-1) {			p->p_len = *len - 1;		}		SK_MEMCPY(buf, p->p_val, p->p_len);		buf[p->p_len] = '\0';		*len = p->p_len;		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_RX,			("%c%c%c%c.., len = %d\n",			buf[0],buf[1],buf[2],buf[3],*len));	}	else {		*len = 0;		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR, ("not found\n"));		return(1);	}	return(0);}/* *	Check whether a given key may be written * * returns *	SK_TRUE		Yes it may be written *	SK_FALSE	No it may be written */SK_BOOL VpdMayWrite(char	*key)	/* keyword to write (allowed values "Yx", "Vx") */{	if ((*key != 'Y' && *key != 'V') ||		key[1] < '0' || key[1] > 'Z' ||		(key[1] > '9' && key[1] < 'A') || strlen(key) != 2) {		return(SK_FALSE);	}	return(SK_TRUE);}/* *	Read the contents of the VPD EEPROM and copy it to the VPD *	buffer if not already done. Insert/overwrite the keyword 'key' *	in the VPD buffer. Cut the keyword value if it does not fit *	into the VPD read / write area. * * returns	0:	success *		2:	value string was cut *		3:	VPD transfer timeout *		4:	VPD full, keyword was not written *		5:	keyword cannot be written *		6:	fatal VPD error */int VpdWrite(SK_AC		*pAC,	/* common data base */SK_IOC		IoC,	/* IO Context */const char	*key,	/* keyword to write (allowed values "Yx", "Vx") */const char	*buf)	/* buffer where the keyword value can be read from */{	int len;		/* length of the keyword to write */	int rtv;		/* return code */	int rtv2;	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_TX,		("VPD write %s = %s\n",key,buf));	if ((*key != 'Y' && *key != 'V') ||		key[1] < '0' || key[1] > 'Z' ||		(key[1] > '9' && key[1] < 'A') || strlen(key) != 2) {		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,			("illegal key tag, keyword not written\n"));		return(5);	}	if ((pAC->vpd.v.vpd_status & VPD_VALID) == 0) {		if (VpdInit(pAC, IoC) != 0) {			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("VPD init error\n"));			return(6);		}	}	rtv = 0;	len = strlen(buf);	if (len > VPD_MAX_LEN) {		/* cut it */		len = VPD_MAX_LEN;		rtv = 2;		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,			("keyword too long, cut after %d bytes\n",VPD_MAX_LEN));	}	if ((rtv2 = VpdSetupPara(pAC, key, buf, len, VPD_RW_KEY, OWR_KEY)) != 0) {		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,			("VPD write error\n"));		return(rtv2);	}	return(rtv);}/* *	Read the contents of the VPD EEPROM and copy it to the *	VPD buffer if not already done. Remove the VPD keyword *	'key' from the VPD buffer. *	Only the keywords in the read/write area can be deleted. *	Keywords in the read only area cannot be deleted. * * returns	0:	success, keyword was removed *		1:	keyword not found *		5:	keyword cannot be deleted *		6:	fatal VPD error */int VpdDelete(SK_AC	*pAC,	/* common data base */SK_IOC	IoC,	/* IO Context */char	*key)	/* keyword to read (e.g. "MN") */{	SK_VPD_PARA *p, vp;	char *etp;	int	vpd_size;	vpd_size = pAC->vpd.vpd_size;	SK_DBG_MSG(pAC,SK_DBGMOD_VPD,SK_DBGCAT_TX,("VPD delete key %s\n",key));	if ((pAC->vpd.v.vpd_status & VPD_VALID) == 0) {		if (VpdInit(pAC, IoC) != 0) {			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("VPD init error\n"));			return(6);		}	}	if ((p = vpd_find_para(pAC, key, &vp)) != NULL) {		if (p->p_val < pAC->vpd.vpd_buf + vpd_size/2) {			/* try to delete read only keyword */			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("cannot delete RO keyword\n"));			return(5);		}		etp = pAC->vpd.vpd_buf + (vpd_size-pAC->vpd.v.vpd_free_rw-1-3);		vpd_move_para(vp.p_val+vp.p_len, etp+2,			- ((int)(vp.p_len + 3)));		if (vpd_mod_endtag(pAC, etp - vp.p_len - 3)) {			pAC->vpd.v.vpd_status &= ~VPD_VALID;			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("VPD encoding error\n"));			return(6);		}	}	else {		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,			("keyword not found\n"));		return(1);	}	return(0);}/* *	If the VPD buffer contains valid data write the VPD *	read/write area back to the VPD EEPROM. * * returns	0:	success *		3:	VPD transfer timeout */int VpdUpdate(SK_AC	*pAC,	/* Adapters context */SK_IOC	IoC)	/* IO Context */{	int vpd_size;	vpd_size = pAC->vpd.vpd_size;	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_TX, ("VPD update .. "));	if ((pAC->vpd.v.vpd_status & VPD_VALID) != 0) {		if (VpdTransferBlock(pAC, IoC, pAC->vpd.vpd_buf + vpd_size/2,			vpd_size/2, vpd_size/2, VPD_WRITE) != vpd_size/2) {			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("transfer timed out\n"));			return(3);		}	}	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_TX, ("done\n"));	return(0);}/* *	Read the contents of the VPD EEPROM and copy it to the VPD buffer *	if not already done. If the keyword "VF" is not present it will be *	created and the error log message will be stored to this keyword. *	If "VF" is not present the error log message will be stored to the *	keyword "VL". "VL" will created or overwritten if "VF" is present. *	The VPD read/write area is saved to the VPD EEPROM. * * returns nothing, errors will be ignored. */void VpdErrLog(SK_AC	*pAC,	/* common data base */SK_IOC	IoC,	/* IO Context */char	*msg)	/* error log message */{	SK_VPD_PARA *v, vf;	/* VF */	int len;	SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_TX,		("VPD error log msg %s\n", msg));	if ((pAC->vpd.v.vpd_status & VPD_VALID) == 0) {		if (VpdInit(pAC, IoC) != 0) {			SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_ERR,				("VPD init error\n"));			return;		}	}	len = strlen(msg);	if (len > VPD_MAX_LEN) {		/* cut it */		len = VPD_MAX_LEN;	}	if ((v = vpd_find_para(pAC, VPD_VF, &vf)) != NULL) {		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_TX, ("overwrite VL\n"));		(void)VpdSetupPara(pAC, VPD_VL, msg, len, VPD_RW_KEY, OWR_KEY);	}	else {		SK_DBG_MSG(pAC, SK_DBGMOD_VPD, SK_DBGCAT_TX, ("write VF\n"));		(void)VpdSetupPara(pAC, VPD_VF, msg, len, VPD_RW_KEY, ADD_KEY);	}	(void)VpdUpdate(pAC, IoC);}