/* @(#)dmaresid.c	1.12 10/12/19 Copyright 1998-2010 J. Schilling */
#include <schily/mconfig.h>
#ifndef lint
static	UConst char sccsid[] =
	"@(#)dmaresid.c	1.12 10/12/19 Copyright 1998-2010 J. Schilling";
#endif
/*
 *	Copyright (c) 1998-2010 J. Schilling
 */
/*
 * 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.
 *
 * See the file CDDL.Schily.txt in this distribution for details.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file CDDL.Schily.txt from this distribution.
 */

#include <schily/stdio.h>
#include <schily/stdlib.h>
#include <schily/unistd.h>
#include <schily/string.h>
#include <schily/schily.h>
#include <schily/nlsdefs.h>
#include <schily/standard.h>

#include <schily/utypes.h>
#include <schily/btorder.h>
#include <scg/scgcmd.h>
#include <scg/scsidefs.h>
#include <scg/scsireg.h>
#include <scg/scsitransp.h>

#include "cdrecord.h"
#include "scgcheck.h"

EXPORT	void	dmaresid	__PR((SCSI *scgp));
LOCAL	int	xtinquiry	__PR((SCSI *scgp, int cnt, int dmacnt));
LOCAL	int	tinquiry	__PR((SCSI *scgp, caddr_t bp, int cnt, int dmacnt));


extern	char	*buf;			/* The transfer buffer */
extern	long	bufsize;		/* The size of the transfer buffer */

extern	FILE	*logfile;
extern	char	unavail[];

EXPORT void
dmaresid(scgp)
	SCSI	*scgp;
{
	char	abuf[2];
	int	cnt = sizeof (struct scsi_inquiry);
	int	dmacnt;
	int	ret;
	BOOL	passed;

	printf(_("Ready to start test for working DMA residual count? Enter <CR> to continue: "));
	(void) chkgetline(abuf, sizeof (abuf));

	chkprint(_("**********> Testing for working DMA residual count.\n"));
	chkprint(_("**********> Testing for working DMA residual count == 0.\n"));
	passed = TRUE;
	dmacnt = cnt;
	ret = xtinquiry(scgp, cnt, dmacnt);
	if (ret == dmacnt) {
		chkprint(_("---------->	Wanted %d bytes, got it.\n"), dmacnt);
	}
	if (ret != dmacnt) {
		chkprint(_("---------->	Wanted %d bytes, got (%d)\n"), dmacnt, ret);
	}
	if (ret != scg_getdmacnt(scgp)) {
		passed = FALSE;
		chkprint(_("---------->	Libscg says %d bytes but got (%d)\n"), scg_getdmacnt(scgp), ret);
	}
	if (passed && ret == dmacnt) {
		chkprint(_("----------> SCSI DMA residual count == 0 test PASSED\n"));
	} else {
		chkprint(_("----------> SCSI DMA residual count == 0 test FAILED\n"));
	}

	printf(_("Ready to start test for working DMA residual count == DMA count? Enter <CR> to continue: "));
	fprintf(logfile, _("**********> Testing for working DMA residual count == DMA count.\n"));
	flushit();
	(void) getline(abuf, sizeof (abuf));
	passed = TRUE;
	dmacnt = cnt;
	ret = xtinquiry(scgp, 0, dmacnt);
	if (ret == 0) {
		printf(_("---------->	Wanted 0 bytes, got it.\n"));
		fprintf(logfile, _("---------->	Wanted 0 bytes, got it.\n"));
	}
	if (ret != 0) {
		printf(_("---------->	Wanted %d bytes, got (%d)\n"), 0, ret);
		fprintf(logfile, _("---------->	Wanted %d bytes, got (%d)\n"), 0, ret);
	}
	if (ret != scg_getdmacnt(scgp)) {
		passed = FALSE;
		printf(_("---------->	Libscg says %d bytes but got (%d)\n"), scg_getdmacnt(scgp), ret);
		fprintf(logfile, _("---------->	Libscg says %d bytes but got (%d)\n"), scg_getdmacnt(scgp), ret);
	}
	if (passed && ret == 0) {
		printf(_("----------> SCSI DMA residual count == DMA count test PASSED\n"));
		fprintf(logfile, _("----------> SCSI DMA residual count == DMA count test PASSED\n"));
	} else {
		passed = FALSE;
		printf(_("----------> SCSI DMA residual count == DMA count test FAILED\n"));
		fprintf(logfile, _("----------> SCSI DMA residual count == DMA count test FAILED\n"));
	}

	if (!passed) {
		printf(_("----------> SCSI DMA residual count not working - no further tests\n"));
		fprintf(logfile, _("----------> SCSI DMA residual count not working - no further tests\n"));
		return;
	}

	printf(_("Ready to start test for working DMA residual count == 1? Enter <CR> to continue: "));
	flushit();
	(void) getline(abuf, sizeof (abuf));
	chkprint(_("**********> Testing for working DMA residual count == 1.\n"));
	passed = TRUE;
	dmacnt = cnt+1;
	ret = xtinquiry(scgp, cnt, dmacnt);
	if (ret == cnt) {
		printf(_("---------->	Wanted %d bytes, got it.\n"), cnt);
		fprintf(logfile, _("---------->	Wanted %d bytes, got it.\n"), cnt);
	}
	if (ret != cnt) {
		printf(_("---------->	Wanted %d bytes, got (%d)\n"), cnt, ret);
		fprintf(logfile, _("---------->	Wanted %d bytes, got (%d)\n"), cnt, ret);
	}
	if (ret != scg_getdmacnt(scgp)) {
		passed = FALSE;
		printf(_("---------->	Libscg says %d bytes but got (%d)\n"), scg_getdmacnt(scgp), ret);
		fprintf(logfile, _("---------->	Libscg says %d bytes but got (%d)\n"), scg_getdmacnt(scgp), ret);
	}
	if (passed && ret == cnt) {
		printf(_("----------> SCSI DMA residual count == 1 test PASSED\n"));
		fprintf(logfile, _("----------> SCSI DMA residual count == 1 test PASSED\n"));
	} else {
		passed = FALSE;
		printf(_("----------> SCSI DMA residual count == 1 test FAILED\n"));
		fprintf(logfile, _("----------> SCSI DMA residual count == 1 test FAILED\n"));
	}

	printf(_("Ready to start test for working DMA overrun detection? Enter <CR> to continue: "));
	flushit();
	(void) getline(abuf, sizeof (abuf));
	chkprint(_("**********> Testing for working DMA overrun detection.\n"));
	passed = TRUE;
	dmacnt = cnt-1;
	ret = xtinquiry(scgp, cnt, dmacnt);
	if (ret == cnt) {
		passed = FALSE;
		printf(_("---------->	Wanted %d bytes, got it - DMA overrun not blocked.\n"), cnt);
		fprintf(logfile, _("---------->	Wanted %d bytes, got it - DMA overrun not blocked.\n"), cnt);
	}
	if (ret != dmacnt) {
		passed = FALSE;
		printf(_("---------->	Wanted %d bytes, got (%d)\n"), dmacnt, ret);
		fprintf(logfile, _("---------->	Wanted %d bytes, got (%d)\n"), dmacnt, ret);
	}
	if (ret != scg_getdmacnt(scgp)) {
		passed = FALSE;
		printf(_("---------->	Libscg says %d bytes but got (%d)\n"), scg_getdmacnt(scgp), ret);
		fprintf(logfile, _("---------->	Libscg says %d bytes but got (%d)\n"), scg_getdmacnt(scgp), ret);
	}
	if (passed && scg_getresid(scgp) < 0) {
		printf(_("----------> SCSI DMA overrun test PASSED\n"));
		fprintf(logfile, _("----------> SCSI DMA overrun test PASSED\n"));
	} else {
		printf(_("----------> SCSI DMA overrun test FAILED\n"));
		fprintf(logfile, _("----------> SCSI DMA overrun test FAILED\n"));
	}
}

LOCAL int
xtinquiry(scgp, cnt, dmacnt)
	SCSI	*scgp;
	int	cnt;
	int	dmacnt;
{
	Uchar	ibuf[1024];
	struct scsi_inquiry	*ip;
	int	maxcnt;
	int	rescnt;
	int	i;

	ip = (struct scsi_inquiry *)ibuf;

	fillbytes(ibuf, sizeof (ibuf), '\0');
	tinquiry(scgp, (caddr_t)ibuf, cnt, dmacnt);
	for (i = sizeof (ibuf)-1; i >= 0; i--) {
		if (ibuf[i] != '\0') {
			break;
		}
	}
	i++;
	maxcnt = i;
	rescnt = dmacnt - scg_getresid(scgp);
	printf(_("CDB cnt: %d DMA cnt: %d got really: %d (System says: RDMA cnt: %d resid %d)\n"),
				cnt, dmacnt, i, rescnt, scg_getresid(scgp));

	fillbytes(ibuf, sizeof (ibuf), 0xFF);
	tinquiry(scgp, (caddr_t)ibuf, cnt, dmacnt);
	for (i = sizeof (ibuf)-1; i >= 0; i--) {
		if (ibuf[i] != 0xFF) {
			break;
		}
	}
	i++;
	if (i > maxcnt)
		maxcnt = i;
	rescnt = dmacnt - scg_getresid(scgp);
	printf(_("CDB cnt: %d DMA cnt: %d got really: %d (System says: RDMA cnt: %d resid %d)\n"),
				cnt, dmacnt, i, rescnt, scg_getresid(scgp));

	return (maxcnt);
}

LOCAL int
tinquiry(scgp, bp, cnt, dmacnt)
	SCSI	*scgp;
	caddr_t	bp;
	int	cnt;
	int	dmacnt;
{
	register struct	scg_cmd	*scmd = scgp->scmd;

/*	fillbytes(bp, cnt, '\0');*/
	fillbytes((caddr_t)scmd, sizeof (*scmd), '\0');
	scmd->addr = bp;
	scmd->size = dmacnt;
	scmd->flags = SCG_RECV_DATA|SCG_DISRE_ENA;
	scmd->cdb_len = SC_G0_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->cdb.g0_cdb.cmd = SC_INQUIRY;
	scmd->cdb.g0_cdb.lun = scg_lun(scgp);
	scmd->cdb.g0_cdb.count = cnt;

	scgp->cmdname = "inquiry";

	if (scg_cmd(scgp) < 0)
		return (-1);
	if (scgp->verbose)
		scg_prbytes(_("Inquiry Data   :"), (Uchar *)bp, cnt - scg_getresid(scgp));
	return (0);
}