#include <string.h>
#include <strings.h>
#include <stdio.h>
#include <stdlib.h>
#include <pcsclite.h>
#include <winscard.h>

SCARDCONTEXT hContext;
SCARDHANDLE hCard;
char *reader_name_buf;

setup_pcsc_context()
{
	LONG rv;

	rv = SCardEstablishContext(SCARD_SCOPE_SYSTEM, NULL, NULL, &hContext);
	if (rv != SCARD_S_SUCCESS) {
		fprintf(stderr, "SCardEstablishContext: %s\n",
			pcsc_stringify_error(rv));
		exit(1);
	}
	return(0);
}

get_reader_name()
{
	LONG rv;
	DWORD dwReaders;

	rv = SCardListReaders(hContext, NULL, NULL, &dwReaders);
	if (rv != SCARD_S_SUCCESS) {
		fprintf(stderr, "SCardListReaders 1st call: %s\n",
			pcsc_stringify_error(rv));
		SCardReleaseContext(hContext);
		exit(1);
	}
	if (dwReaders < 1) {
		fprintf(stderr,
	"error: dwReaders returned by SCardListReaders() is less than 1\n");
		SCardReleaseContext(hContext);
		exit(1);
	}
	reader_name_buf = malloc(dwReaders);
	if (!reader_name_buf) {
		perror("malloc for readers list");
		SCardReleaseContext(hContext);
		exit(1);
	}
	reader_name_buf[0] = '\0';
	rv = SCardListReaders(hContext, NULL, reader_name_buf, &dwReaders);
	if (rv != SCARD_S_SUCCESS) {
		fprintf(stderr, "SCardListReaders 2nd call: %s\n",
			pcsc_stringify_error(rv));
		SCardReleaseContext(hContext);
		exit(1);
	}
	if (reader_name_buf[0] == '\0') {
		fprintf(stderr,
	"error: list returned by SCardListReaders() begins with a NUL byte\n");
		SCardReleaseContext(hContext);
		exit(1);
	}
	if (!memchr(reader_name_buf, 0, dwReaders)) {
		fprintf(stderr,
"error: list returned by SCardListReaders() does not contain a NUL byte\n");
		SCardReleaseContext(hContext);
		exit(1);
	}
	return(0);
}

connect_to_card()
{
	LONG rv;
	DWORD dwActiveProtocol;

	rv = SCardConnect(hContext, reader_name_buf, SCARD_SHARE_EXCLUSIVE,
			  SCARD_PROTOCOL_T0, &hCard, &dwActiveProtocol);
	if (rv != SCARD_S_SUCCESS) {
		fprintf(stderr, "SCardConnect: %s\n", pcsc_stringify_error(rv));
		SCardReleaseContext(hContext);
		exit(1);
	}
	return(0);
}