/*
 * 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 2002-2003 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 * send_file.c: to support firmware download (get fw S-records from the
 * user-specified file and send S-records string down to the service processor
 */

#include <libintl.h>
#include <stdio.h>
#include <string.h>
#include <time.h>

#include "librsc.h"
#include "adm.h"


int
ADM_Send_file(FILE  *FilePtr)
{
	static char		ADM_Line[ADM_LINE_SIZE];
	static bp_msg_t		Message;
	static struct timespec	Timeout;
	int			LinesWritten;
	int			Status;
	int			BootRetry;
	int			LastRecord;
	long			FileLength = 0L;
	long			FilePos;


	/*
	 * Determine the length of the file
	 */
	if (fseek(FilePtr, 0L, SEEK_END) == 0) {
		FileLength = ftell(FilePtr);
		rewind(FilePtr);
	}

	LinesWritten = 0;
	LastRecord   = 0;
	while ((fgets(ADM_Line, ADM_LINE_SIZE, FilePtr) != NULL) &&
	    (LastRecord == 0)) {
		if ((ADM_Line[0] == 'S') &&
		    ((ADM_Line[1] == '7') || (ADM_Line[1] == '8') ||
		    (ADM_Line[1] == '9'))) {
			LastRecord = 1;
		}

		BootRetry = ADM_BOOT_RETRY;
		while (BootRetry > 0) {
			if ((Status =
			    rsc_raw_write(ADM_Line, strlen(ADM_Line))) != 0) {
				return (Status);
			}

			/*
			 * Initialize Timeout each time just to be robust.
			 * Since this operation is not time critical, this is
			 * not a concern.
			 */
			Timeout.tv_nsec = 0;
			Timeout.tv_sec  = ADM_BOOT_LOAD_TIMEOUT;
			/* If we timeout, decrement BootRetry and try again */
			if ((Status = ADM_Boot_recv(&Message, &Timeout)) != 0) {
				/* We got a timeout */
				BootRetry = BootRetry - 1;
				continue;

			} else {

				/* we got a message back, see what it is */
				if ((Message.cmd  == BP_RSC_BOOTOK) &&
				    (Message.dat1 == 0) &&
				    (Message.dat2 == 0)) {

					LastRecord = 1;
					break;
				}

				if ((Message.cmd  != BP_RSC_BOOTACK) ||
				    (Message.dat1 != BP_DAT1_SRECORD_ACK)) {

					if (Message.dat1 ==
					    BP_DAT1_SRECORD_NAK) {
						continue;
					}
					ADM_Display_download_error(
					    (int)Message.cmd,
					    (int)Message.dat1);
					exit(-1);
				}

				/*
				 * We got a valid acknowledge, break out of
				 * loop and start to download next s-record
				 */
				break;
			}
		}

		/* See if we ever got a response */
		if (BootRetry <= 0) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: SC failed to respond during "
			    "download"));
			exit(-1);
		}

		LinesWritten++;
		if ((LinesWritten % 100) == 0) {
			(void) printf(".");
			(void) fflush(stdout);
		}
		if ((LinesWritten % 4000) == 0) {
			if (FileLength) {
				/* Show % progress */
				FilePos = ftell(FilePtr);
				(void) printf(" (%ld%%)",
				    (FilePos * 100) / FileLength);
			}
			(void) printf("\n");
			(void) fflush(stdout);
		}
	}
	if ((FileLength) && ((LinesWritten % 4000) != 0)) {
		/* Show final % progress (should normally be 100%) */
		FilePos = ftell(FilePtr);
		(void) printf(" (%ld%%)",
		    (FilePos * 100) / FileLength);
	}
	(void) printf("\n");

	return (0);
}


void
ADM_Display_download_error(int cmd, int dat1)
{
	if (cmd == BP_RSC_BOOTFAIL) {
		if (dat1 == BP_DAT1_REJECTED) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download rejected"));

		} else if (dat1 == BP_DAT1_RANGE_ERR) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download failed, "
			    "SC reported range error"));

		} else if (dat1 == BP_DAT1_VERIFY_ERR) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download failed, "
			    "SC reported verify error"));

		} else if (dat1 == BP_DAT1_ERASE_ERR) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download failed, "
			    "SC reported erase error"));

		} else if (dat1 == BP_DAT1_INT_WP_ERR) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download failed, "
			    "SC reported int_wp error"));

		} else if (dat1 == BP_DAT1_WP_ERR) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download failed, "
			    "SC reported wp error"));

		} else if (dat1 == BP_DAT1_VPP_ERR) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download failed, "
			    "SC reported vpp error"));
		} else {
			(void) fprintf(stderr, "%s 0x%08x\n",
			    gettext("scadm: SC returned fatal error"), dat1);
		}
	} else if (cmd == BP_RSC_BOOTACK) {
		if (dat1 == BP_DAT1_SRECORD_ACK) {
			(void) fprintf(stderr, "\n%s\n\n",
			    gettext("scadm: download failed"));
		} else {
			(void) fprintf(stderr, "%s 0x%08x\n",
			    gettext("scadm: SC returned fatal error"), dat1);
		}
	} else {
		(void) fprintf(stderr, "%s 0x%08x:0x%08x\n",
		    gettext("scadm: SC returned unknown error"), cmd, dat1);
	}
}