/*
 * Copyright (c) 1998,1999,2000
 *	Traakan, Inc., Los Altos, CA
 *	All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice unmodified, this list of conditions, and the following
 *    disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/*
 * Project:  NDMJOB
 * Ident:    $Id: $
 *
 * Description:
 *
 */


#include "smc_priv.h"

static char *strend(char *s);



char *
smc_elem_type_code_to_str(int code)
{
	switch (code) {
	case SMC_ELEM_TYPE_ALL:		return "ALL";
	case SMC_ELEM_TYPE_MTE:		return "ARM";
	case SMC_ELEM_TYPE_SE:		return "SLOT";
	case SMC_ELEM_TYPE_IEE:		return "IEE";
	case SMC_ELEM_TYPE_DTE:		return "TAPE";
	default:			return "???";
	}
}

int
smc_pp_element_address_assignments (struct smc_element_address_assignment *eaa,
  int lineno, char *buf)
{
	sprintf (buf, "slots %d@%d  drive %d@%d  arm %d@%d  i/e %d@%d",
		eaa->se_count,  eaa->se_addr,
		eaa->dte_count, eaa->dte_addr,
		eaa->mte_count, eaa->mte_addr,
		eaa->iee_count, eaa->iee_addr);

	return 1;
}

int
smc_pp_element_descriptor (struct smc_element_descriptor *edp,
  int lineno, char *ret_buf)
{
	int		nline = 0;
	char		buf[100];

	*ret_buf = 0;
	*buf = 0;

	sprintf (buf, "@%-3d %-4s",
		edp->element_address,
		smc_elem_type_code_to_str(edp->element_type_code));

	if (edp->Full)
		strcat (buf, " Full ");
	else
		strcat (buf, " Empty");

	if (edp->element_type_code == SMC_ELEM_TYPE_MTE) {
		if (edp->Access) {
			/* unusual for MTE */
			/* actually not defined */
			strcat (buf, " ?access=granted?");
		}
	} else {
		if (!edp->Access) {
			/* unusual for all non-MTE elements */
			strcat (buf, " ?access=denied?");
		}
	}

	if (edp->PVolTag && edp->Full) {
		sprintf (strend(buf), " PVolTag(%s,#%d)",
			edp->primary_vol_tag.volume_id,
			edp->primary_vol_tag.volume_seq);
	}

	if (edp->Except) {
		sprintf (strend(buf), " Except(asc=%02x,ascq=%02x)",
			edp->asc, edp->ascq);
	}

	if (*buf && nline++ == lineno) strcpy (ret_buf, buf);
	*buf = 0;

#define INDENT_SPACES "          "	/* 10 spaces */

	if (edp->AVolTag) {
		sprintf (buf, INDENT_SPACES "AVolTag(%s,#%d)",
			edp->alternate_vol_tag.volume_id,
			edp->alternate_vol_tag.volume_seq);
	}

	if (*buf && nline++ == lineno) strcpy (ret_buf, buf);
	*buf = 0;

	if (edp->SValid) {
		sprintf (buf, INDENT_SPACES "SValid(src=%d,%sinvert)",
			edp->src_se_addr,
			edp->Invert ? "" : "!");
	}

	if (*buf && nline++ == lineno) strcpy (ret_buf, buf);
	*buf = 0;

	if (edp->element_type_code == SMC_ELEM_TYPE_DTE) {
		strcpy (buf, INDENT_SPACES);
		if (edp->ID_valid) {
			sprintf (strend(buf), "ID sid=%d", edp->scsi_sid);
		} else {
			strcat (buf, "no-sid-data");
		}
		if (edp->LU_valid) {
			sprintf (strend(buf), " lun=%d", edp->scsi_lun);
		} else {
			strcat (buf, " no-lun-data");
		}

		if (edp->ID_valid && edp->Not_bus) {
			strcat (buf, " not-same-bus");
		}
	}

	if (*buf && nline++ == lineno) strcpy (ret_buf, buf);
	*buf = 0;

	if (edp->element_type_code == SMC_ELEM_TYPE_IEE) {
		strcpy (buf, INDENT_SPACES);

		if (edp->InEnab)
			strcat (buf, " can-import");
		else
			strcat (buf, " can-not-import");

		if (edp->ExEnab)
			strcat (buf, " can-export");
		else
			strcat (buf, " can-not-export");

		if (edp->ImpExp)
			strcat (buf, " by-oper");
		else
			strcat (buf, " by-mte");
	}

	if (*buf && nline++ == lineno) strcpy (ret_buf, buf);
	*buf = 0;

	return nline;
}

static char *
strend (char *s)
{
	while (*s) s++;
	return s;
}