/*
 * This module implements the erase-file command.
 */

#include <sys/types.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>
#include "efstruct.h"

static
erase_transparent(efs, fill_byte)
	struct ef_struct *efs;
{
	u_char data[255];
	unsigned off, cc;
	int rc;

	memset(data, fill_byte, 255);
	for (off = 0; off < efs->total_size; off += cc) {
		cc = efs->total_size - off;
		if (cc > 255)
			cc = 255;
		rc = update_bin_op(off, data, cc);
		if (rc < 0)
			return(rc);
	}
	return(0);
}

static
erase_records(efs, fill_byte)
	struct ef_struct *efs;
{
	u_char data[255];
	unsigned recno;
	int rc;

	memset(data, fill_byte, efs->record_len);
	for (recno = 1; recno <= efs->record_count; recno++) {
		rc = update_rec_op(recno, 0x04, data, efs->record_len);
		if (rc < 0)
			return(rc);
	}
	return(0);
}

static
erase_cyclic(efs, fill_byte)
	struct ef_struct *efs;
{
	u_char data[255];
	unsigned count;
	int rc;

	memset(data, fill_byte, efs->record_len);
	for (count = 0; count < efs->record_count; count++) {
		rc = update_rec_op(0, 0x03, data, efs->record_len);
		if (rc < 0)
			return(rc);
	}
	return(0);
}

cmd_erase_file(argc, argv)
	char **argv;
{
	int file_id, rc;
	struct ef_struct efs;
	unsigned fill_byte;

	if (isxdigit(argv[1][0]) && isxdigit(argv[1][1]) &&
	    isxdigit(argv[1][2]) && isxdigit(argv[1][3]) && !argv[1][4])
		file_id = strtoul(argv[1], 0, 16);
	else
		file_id = find_symbolic_file_name(argv[1]);
	if (file_id < 0) {
		fprintf(stderr,
"error: file ID argument is not a hex value or a recognized symbolic name\n");
		return(-1);
	}
	rc = select_op(file_id);
	if (rc < 0)
		return(rc);
	rc = select_resp_get_ef_struct(&efs);
	if (rc < 0)
		return(rc);
	if (argc > 2) {
		fill_byte = strtoul(argv[2], 0, 16);
		if (fill_byte > 0xFF) {
			fprintf(stderr, "error: invalid fill byte argument\n");
			return(-1);
		}
	} else
		fill_byte = 0xFF;
	switch (efs.structure) {
	case 0x01:
		/* transparent */
		rc = erase_transparent(&efs, fill_byte);
		break;
	case 0x02:
		/* record-based */
		rc = erase_records(&efs, fill_byte);
		break;
	case 0x06:
		/* cyclic */
		rc = erase_cyclic(&efs, fill_byte);
		break;
	}
	return(rc);
}