#include <stdio.h>
#include <string.h>
#include "../include/asoundlib.h"

#define BUFFER_SIZE 800000

static char *xitoa(int aaa)
{
	static char str[12];

	sprintf(str, "%i", aaa);
	return str;
}

void setformat(void *phandle, void *rhandle)
{
	int err;
	snd_pcm_format_t format;

	bzero(&format, sizeof(format));
	format.sfmt = SND_PCM_SFMT_S16_LE;
	format.channels = 2;
	format.rate = 22050;
	if ((err = snd_pcm_playback_format(phandle, &format)) < 0) {
		printf("Playback format error: %s\n", snd_strerror(err));
	}
	if ((err = snd_pcm_capture_format(rhandle, &format)) < 0) {
		printf("Record format error: %s\n", snd_strerror(err));
	}
}

void method1(void)
{
	snd_pcm_t *phandle, *rhandle;
	char buffer[BUFFER_SIZE];
	int err;

	if ((err = snd_pcm_open(&phandle, 0, 0, SND_PCM_OPEN_PLAYBACK)) < 0) {
		printf("Playback open error: %s\n", snd_strerror(err));
		return;
	}
	if ((err = snd_pcm_open(&rhandle, 0, 0, SND_PCM_OPEN_CAPTURE)) < 0) {
		printf("Record open error: %s\n", snd_strerror(err));
		return;
	}
	setformat(phandle, rhandle);
	printf("Recording... ");
	fflush(stdout);
	if ((err = snd_pcm_readi(rhandle, buffer, sizeof(buffer))) != sizeof(buffer)) {
		printf("Read error: %s\n", err < 0 ? snd_strerror(err) : xitoa(err));
		return;
	}
	printf("done...\n");
	printf("Playback... ");
	fflush(stdout);
	if ((err = snd_pcm_writei(phandle, buffer, sizeof(buffer))) != sizeof(buffer)) {
		printf("Write error: %s\n", err < 0 ? snd_strerror(err) : xitoa(err));
		return;
	}
	printf("done...\n");
	snd_pcm_close(phandle);
	printf("Playback close...\n");
	snd_pcm_close(rhandle);
	printf("Record close...\n");
}

void method2(void)
{
	snd_pcm_t *phandle, *rhandle;
	char buffer[BUFFER_SIZE];
	int err;

	if ((err = snd_pcm_open(&phandle, 0, 0, SND_PCM_OPEN_PLAYBACK)) < 0) {
		printf("Playback open error: %s\n", snd_strerror(err));
		return;
	}
	if ((err = snd_pcm_open(&rhandle, 0, 0, SND_PCM_OPEN_CAPTURE)) < 0) {
		printf("Record open error: %s\n", snd_strerror(err));
		return;
	}
	setformat(phandle, rhandle);
	printf("Recording... ");
	fflush(stdout);
	if ((err = snd_pcm_readi(rhandle, buffer, sizeof(buffer))) != sizeof(buffer)) {
		printf("Read error: %s\n", err < 0 ? snd_strerror(err) : xitoa(err));
		return;
	}
	printf("done...\n");
	if ((err = snd_pcm_drain_capture(rhandle)) < 0) {
		printf("Record drain error: %s\n", snd_strerror(err));
		return;
	}
	printf("Record drain done...\n");
	printf("Playback... ");
	fflush(stdout);
	if ((err = snd_pcm_writei(phandle, buffer, sizeof(buffer))) != sizeof(buffer)) {
		printf("Write error: %s\n", err < 0 ? snd_strerror(err) : xitoa(err));
		return;
	}
	printf("done...\n");
	if ((err = snd_pcm_drain_playback(phandle)) < 0) {
		printf("Playback drain error: %s\n", snd_strerror(err));
		return;
	}
	printf("Playback drain done...\n");
	snd_pcm_close(phandle);
	printf("Playback close...\n");
	snd_pcm_close(rhandle);
	printf("Record close...\n");
}

void method3(void)
{
	snd_pcm_t *handle;
	char buffer[BUFFER_SIZE];
	int err;

	if ((err = snd_pcm_open(&handle, 0, 0, SND_PCM_OPEN_DUPLEX)) < 0) {
		printf("Duplex open error: %s\n", snd_strerror(err));
		return;
	}
	setformat(handle, handle);
	printf("Recording... ");
	fflush(stdout);
	if ((err = snd_pcm_readi(handle, buffer, sizeof(buffer))) != sizeof(buffer)) {
		printf("Read error: %s\n", err < 0 ? snd_strerror(err) : xitoa(err));
		return;
	}
	printf("done...\n");
	if ((err = snd_pcm_drain_capture(handle)) < 0) {
		printf("Record drain error: %s\n", snd_strerror(err));
		return;
	}
	printf("Record drain done...\n");
	printf("Playback... ");
	fflush(stdout);
	if ((err = snd_pcm_writei(handle, buffer, sizeof(buffer))) != sizeof(buffer)) {
		printf("Write error: %s\n", err < 0 ? snd_strerror(err) : xitoa(err));
		return;
	}
	printf("done...\n");
	if ((err = snd_pcm_drain_playback(handle)) < 0) {
		printf("Playback drain error: %s\n", snd_strerror(err));
		return;
	}
	printf("Playback drain done...\n");
	snd_pcm_close(handle);
	printf("Close...\n");
}


int main(void)
{
	printf(">>>>> METHOD 1\n");
	method1();
	printf(">>>>> METHOD 2\n");
	method2();
	printf(">>>>> METHOD 3\n");
	method3();
	return 0;
}