#include <sys/types.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include "simresp.h"

extern unsigned last_sel_file_record_len;

cmd_readbin(argc, argv, outf)
	char **argv;
	FILE *outf;
{
	unsigned offset, len;
	int rc;

	offset = strtoul(argv[1], 0, 0);
	if (offset > 0x7FFF) {
		fprintf(stderr, "error: offset argument is out of range\n");
		return(-1);
	}
	len = strtoul(argv[2], 0, 0);
	if (len < 1 || len > 256) {
		fprintf(stderr, "error: length argument is out of range\n");
		return(-1);
	}
	rc = readbin_op(offset, len);
	if (rc < 0)
		return(rc);
	display_sim_resp_in_hex(outf);
	return(0);
}

cmd_readrec(argc, argv, outf)
	char **argv;
	FILE *outf;
{
	unsigned recno, len;
	int rc;

	recno = strtoul(argv[1], 0, 0);
	if (recno < 1 || recno > 255) {
		fprintf(stderr,
			"error: record number argument is out of range\n");
		return(-1);
	}
	if (argv[2]) {
		len = strtoul(argv[2], 0, 0);
		if (len < 1 || len > 255) {
			fprintf(stderr,
				"error: length argument is out of range\n");
			return(-1);
		}
	} else {
		if (!last_sel_file_record_len) {
			fprintf(stderr,
			"error: no current file record length is available\n");
			return(-1);
		}
		len = last_sel_file_record_len;
	}
	rc = readrec_op(recno, 0x04, len);
	if (rc < 0)
		return(rc);
	display_sim_resp_in_hex(outf);
	return(0);
}

cmd_readef(argc, argv, outf)
	char **argv;
	FILE *outf;
{
	int file_id, rc;
	unsigned file_len, readlen;

	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_transparent(&file_len);
	if (rc < 0)
		return(rc);
	fprintf(outf, "Transparent EF of %u byte(s)\n", file_len);
	if (!file_len)
		return(0);
	readlen = file_len;
	if (readlen > 256)
		readlen = 256;
	rc = readbin_op(0, readlen);
	if (rc < 0)
		return(rc);
	display_sim_resp_in_hex(outf);
	return(0);
}