#include <stdio.h>
#include <sys/ioctl.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/soundcard.h>
#include <errno.h>
#include <string.h>

//Макрос создания структуры идентификатора с описанием
#define IS(x) { x, #x }
//Структура - идентификатор с описанием
typedef struct {
	int id;
	char *s;
} is;

//Десткрипторы устройств
is mixer={ 0 , "/dev/mixer"};
is numberic={ 0 , "/dev/dsp"};
is file={ 0 , NULL};

#define returnclean(err_string) {clean_up(err_string); return  0 ;}
#define returncleanone(err_string, err_param) {char __s[ 1024 ]; sprintf(__s, err_string, err_param); returnclean(__s);}
void clean_up(char *err_string) {
#define CLEAN_UP(x) 		\
   if (x.id> 0 ) { 			\
		if (close(x.id)) printf("ERROR: Can't may close %s\n", x.s);	\
		else		     printf("%s closed\n", x.s); 					\
		x.id=0;				\
   }
	printf("%s", err_string);
	CLEAN_UP(mixer);
	CLEAN_UP(numberic);
	CLEAN_UP(file);
#undef CLEAN_UP
}

#define opening(x, reg) \
    if ((x.id=open(x.s, reg))==-1) returncleanone("ERROR: Can't open %s\n", x.s) \
    else printf("%s opened\n", x.s);

/********************************************************************************************************************/

#define print_std(x) \
    for (i= 0  ; i<x##s_std_n ; i++) { \
        printf("%s %s(%02x) \t%s\n", #x, x##s_std[i].s,x##s_std[i].id , (mask & x##s_std[i].id) ? "supported" : "not supported"); \
		mask = mask & (~(x##s_std[i].id)); \
    } \
    printf("Not parsed mask: %02x\n", mask);

			//MIXER
#define channels_std_n  16 
int test_mixer() {
    int i;
	//Маски каналов
    is channels_std[channels_std_n]={IS(SOUND_MASK_VOLUME), IS(SOUND_MASK_TREBLE), IS(SOUND_MASK_BASS),
									IS(SOUND_MASK_SYNTH), IS(SOUND_MASK_PCM), IS(SOUND_MASK_SPEAKER),
									IS(SOUND_MASK_LINE), IS(SOUND_MASK_MIC), IS(SOUND_MASK_CD),
									IS(SOUND_MASK_RECLEV),
									IS(SOUND_MASK_ALTPCM), IS(SOUND_MASK_RADIO), IS(SOUND_MASK_VIDEO),
									IS(SOUND_MASK_PHONEIN), IS(SOUND_MASK_PHONEOUT), IS(SOUND_MASK_MONITOR)};
	opening(mixer, O_RDWR);
    int mask= 0 ;
    if (ioctl(mixer.id, SOUND_MIXER_READ_DEVMASK, &mask)==- 1 ) returnclean("ERROR: Can't get list of channals\n");
	print_std(channel);

    returnclean("Closing mixer... ");
}

#define formats_std_n 11
int test_numberic() {
    int i;
	//Маски форматов
    is formats_std[formats_std_n]={IS(AFMT_MU_LAW),  IS(AFMT_A_LAW), IS(AFMT_IMA_ADPCM), IS(AFMT_U8),
                                    IS(AFMT_S16_LE), IS(AFMT_S16_BE), IS(AFMT_S8),
									IS(AFMT_U16_LE), IS(AFMT_U16_BE), IS(AFMT_MPEG), IS(AFMT_AC3)};
	opening(numberic, O_RDONLY);
    int mask=AFMT_QUERY;
    if (ioctl(numberic.id, SNDCTL_DSP_GETFMTS, &mask)) returnclean("ERROR: Can't get formats\n");
    print_std(format);

    returnclean("Closing numbering... ");
}

/*******************************************************************************************************************/

#define BUF_SIZE  1024 
#define VOLUME  70 
int play_file() {
	//Описание формата файла
	int file_tag;
	int file_channels;
	long file_rate;
	int file_bits;

    //Устанавливаем микшер
    opening(mixer, O_RDWR);
    int g_vol= 0 ;
    if (ioctl(mixer.id, SOUND_MIXER_READ_VOLUME, &g_vol)) returnclean("ERROR: Can't get global volume\n")
    else printf("Global volume seted to %d\n", g_vol);
    if (g_vol != VOLUME) {
		g_vol=VOLUME;
		if (ioctl(mixer.id, SOUND_MIXER_WRITE_VOLUME, &g_vol)) returnclean("ERROR: Can't set global volume\n");
		if (g_vol != VOLUME) returncleanone("ERROR: Can't set global volume to %d\n", VOLUME);
		printf("Global volume setting to %d\n", VOLUME);
    }


    //Проигрываем файл
    opening(file, O_RDONLY);
    opening(numberic, O_WRONLY);

    //Определяем формат
    int format, _format;
    int channels, _channels;
    int rate, _rate;

    int actlen, actlen2, offset;
    unsigned char buf[BUF_SIZE];
    actlen=read(file.id, buf, 16);
    if (actlen!=16) returnclean("ERROR: Can't read RIFFxxxxWAVEfmt \n");
    actlen=read(file.id, &offset,  4 );
    if (actlen!= 4 ) returnclean("ERROR: Can't read len fmt\n");
    file_tag=0;
    actlen=read(file.id, &file_tag, 2);
    if (actlen!=2) returnclean("ERROR: Can't read tag\n");
    file_channels= 0 ;
    actlen=read(file.id, &file_channels,  2 );
    if (actlen!= 2 ) returnclean("ERROR: Can't read channels\n");
    file_rate=0;
    actlen=read(file.id, &file_rate, 4);
    if (actlen!=4) returnclean("ERROR: Can't read read\n");
    actlen=read(file.id, buf,  6 );
    if (actlen!= 6 ) returnclean("ERROR: Can't read to bits\n");
    file_bits=0;
    actlen=read(file.id, &file_bits, 2);
    if (actlen!=2) returnclean("ERROR: Can't read bits\n");
    if (offset- 16 > 0 ) {
        actlen=read(file.id, buf, offset- 16 );
		if (actlen!=offset- 16 ) returnclean("ERROR: Can't read to end fmt\n");
    }
    actlen2=1;
    while (actlen2 && 8==read(file.id, buf, 8)) {
	if (strncmp((const char *)buf, "data", 4)) {
	    offset=buf[4]+buf[5]*256+buf[6]*256*256+buf[7]*256*256*256;
	    actlen=read(file.id, buf, offset);
	    if (actlen!=offset) returnclean("ERROR: Can't read to end next header\n");
	} else
	    actlen2= 0 ;
    }

    if (actlen2== 1 ) returnclean("Can't may find data\n");

    _channels=channels=file_channels;
    _rate=rate=file_rate;
    format=0;
    switch (file_tag) {
	case 7://MULAW
	    format=AFMT_MU_LAW;
	    break;
	case 1://PCM
	    if (file_bits==16) {
		format=AFMT_S16_LE;
	    }
	    if (file_bits==8) {
		format=AFMT_U8;
	    }
	    break;
    }
    if (format==0) returnclean("ERROR: Can't support this format\n");
    _format=format;

    //setting
    if (ioctl(numberic.id, SNDCTL_DSP_SETFMT, &format)) returnclean("ERROR: Can't set format\n");
    if (format != _format) returncleanone("ERROR: Can't set format (%02x)\n", format);

    if (ioctl(numberic.id, SNDCTL_DSP_CHANNELS, &channels)) returnclean("ERROR: Can't set channels\n");
    if (channels != _channels) returnclean("ERROR: Can't set channels 1\n");

    if (ioctl(numberic.id, SNDCTL_DSP_SPEED, &rate)) returnclean("ERROR: Can't set rate\n");
    if (rate != _rate) returnclean("ERROR: Can't set rate to 8000\n");

    //playing
    printf("Playing started...");
    while ((actlen=read(file.id, buf, BUF_SIZE))> 0 ) {
		if ((actlen2=write(numberic.id, buf, actlen))!=actlen) {
			printf("Error writing!");
			fflush(stdout);
		}
		printf(".");
		fflush(stdout);
    }
    printf("\nPlaying stop\n");

    returnclean("Closing all... \n");
}

/*******************************************************************************************************************/

#include "stdlib.h"
int main(int argc, char **argv) {
	printf(">Testing mixer...\n");
    test_mixer();
	printf("\n>Testing numberic...\n");
    test_numberic();
    printf("\n");

	printf(">Playing file...\n");
    if (argc!= 2 ) {
		printf("Use: ./main <file>\n");
		_exit( 0 );
    }
    file.s=argv[ 1 ];
    play_file();
    printf("\n");

	printf("Program working successfull\n");
    return  0 ;
}