// Stolen from nuvrec: http://mars.tuwien.ac.at/~roman/nuppelvideo/
#include <sys/soundcard.h>
#include <fcntl.h>
#include <sys/ioctl.h>
#include <stdio.h>
#include <signal.h>

int ostr=0;
long audio_buffer_size=0;

static void sighandler(int i)
{
  if (ostr) {
    close(ostr);
  }
  printf ("\n");
  exit(0);
}

int main (int argc, char** argv) {
	int afmt, afd, frag, channels, rate, blocksize, trigger, lastread;
	char audiodevice[] = "/dev/dsp";
	unsigned char* buffer;

	ostr=open(argv[1],O_WRONLY|O_CREAT, 0644);

	if (ostr==-1) return(-1);

	if (-1 == (afd = open(audiodevice, O_RDONLY))) {
		fprintf(stderr, "\n%s\n", "Cannot open DSP, exiting");
		exit(1);
	}

	signal(SIGINT, sighandler); // install sighaendler
                                                                               
	ioctl(afd, SNDCTL_DSP_RESET, 0);
                                                                               
	frag=(8<<16)|(10);//8 buffers, 1024 bytes each
	ioctl(afd, SNDCTL_DSP_SETFRAGMENT, &frag);

	afmt = AFMT_S16_LE;
	ioctl(afd, SNDCTL_DSP_SETFMT, &afmt);
	if (afmt != AFMT_S16_LE) {
		fprintf(stderr, "\n%s\n", "Can't get 16 bit DSP, exiting");
		exit;
	}

	channels = 2;
	ioctl(afd, SNDCTL_DSP_CHANNELS, &channels);
                                                                                
	// sample rate 
	rate = 44100;
	ioctl(afd, SNDCTL_DSP_SPEED,    &rate);

	if (-1 == ioctl(afd, SNDCTL_DSP_GETBLKSIZE,  &blocksize)) {
		fprintf(stderr, "\n%s\n", "Can't get DSP blocksize, exiting");
		exit;
	}

	blocksize*=4;  // allways read 4*blocksize
	audio_buffer_size = blocksize;

// This doesn't work!! Throws: Resource temporarily unavailable!
// when reading.
	// trigger record 
	trigger = ~PCM_ENABLE_INPUT;
	ioctl(afd,SNDCTL_DSP_SETTRIGGER,&trigger);
                                                                               
	trigger = PCM_ENABLE_INPUT;
	ioctl(afd,SNDCTL_DSP_SETTRIGGER,&trigger);
//

	buffer = (char *)malloc(audio_buffer_size);

	while(1) {
		if (audio_buffer_size != (lastread = read(afd,buffer,audio_buffer_size))) 
		{
			fprintf(stderr, "only read %d from %ld bytes from '%s'\n", lastread, audio_buffer_size,
				audiodevice);
			perror("read /dev*audiodevice");
			if (lastread == -1)
				exit (1);
		}
		else {
			fprintf(stderr, ".");
			write(ostr, buffer, audio_buffer_size);
		}
	}
}