/*
 * This module implements an elementary GET RESPONSE command
 */

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

cmd_get_response(argc, argv, outf)
	char **argv;
	FILE *outf;
{
	u_char cmd[5];
	int rc;
	unsigned len;

	len = strtoul(argv[1], 0, 0);
	if (len < 1 || len > 256) {
		fprintf(stderr, "error: length argument is out of range\n");
		return(-1);
	}
	/* GET RESPONSE command APDU */
	cmd[0] = 0x00;
	cmd[1] = 0xC0;
	cmd[2] = 0;
	cmd[3] = 0;
	cmd[4] = len;
	rc = apdu_exchange(cmd, 5);
	if (rc < 0)
		return(rc);
	if (sim_resp_sw != 0x9000) {
		fprintf(stderr, "bad SW resp to GET RESPONSE: %04X\n",
			sim_resp_sw);
		return(-1);
	}
	display_sim_resp_in_hex(outf);
	return(0);
}

get_response_op()
{
	u_char cmd[5];
	int rc;
	unsigned expect_resp_len;

	expect_resp_len = sim_resp_sw & 0xFF;
	/* GET RESPONSE command APDU */
	cmd[0] = 0x00;
	cmd[1] = 0xC0;
	cmd[2] = 0;
	cmd[3] = 0;
	cmd[4] = expect_resp_len;
	rc = apdu_exchange(cmd, 5);
	if (rc < 0)
		return(rc);
	if (sim_resp_sw != 0x9000) {
		fprintf(stderr, "bad SW resp to GET RESPONSE: %04X\n",
			sim_resp_sw);
		return(-1);
	}
	if (sim_resp_data_len != expect_resp_len) {
		fprintf(stderr,
			"error: GET RESPONSE returned %u bytes, expected %u\n",
			sim_resp_data_len, expect_resp_len);
		return(-1);
	}
	return(0);
}