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

const char *get_type(unsigned int type)
{
	switch (type) {
	case 0:
		return "Boolean";
	case 1:
		return "Byte";
	case 2:
		return "Word";
	case 3:
		return "DWord";
	case 4:
		return "User";
	default:
		return "Unknown";
	}
}

void main(void)
{
	int cards, card, device, direction, idx, count, err;
	void *handle, *chandle;
	struct snd_ctl_hw_info info;
	struct snd_ctl_switch ctl_switch;
	snd_mixer_switch_t mixer_switch;
	snd_pcm_info_t pcm_info;
	snd_pcm_switch_t pcm_switch;
	snd_rawmidi_switch_t rmidi_switch;
	snd_rawmidi_info_t rmidi_info;

	cards = snd_cards();
	printf("Detected %i soundcard%s...\n", cards, cards > 1 ? "s" : "");
	if (cards <= 0) {
		printf("Giving up...\n");
		return;
	}
	/* control interface */
	for (card = 0; card < cards; card++) {
		if ((err = snd_ctl_open(&handle, card)) < 0) {
			printf("CTL open error: %s\n", snd_strerror(err));
			continue;
		}
		if ((err = snd_ctl_hw_info(handle, &info)) < 0) {
			printf("CTL hw info error: %s\n", snd_strerror(err));
			continue;
		}
		if ((count = snd_ctl_switches(handle)) < 0) {
			printf("CTL switches error: %s\n", snd_strerror(count));
			continue;
		}
		for (idx = 0; idx < count; idx++) {
			if ((err = snd_ctl_switch_read(handle, idx, &ctl_switch)) < 0) {
				printf("CTL switch read error: %s\n", snd_strerror(count));
				continue;
			}
			printf("CTL switch: '%s' %s (%i-%i)\n", ctl_switch.name, get_type(ctl_switch.type), ctl_switch.low, ctl_switch.high);
			if ((err = snd_ctl_switch_write(handle, idx, &ctl_switch)) < 0) {
				printf("CTL switch write error: %s\n", snd_strerror(count));
				continue;
			}
		}
		if (count <= 0)
			printf("No CTL switches detected for soundcard #%i '%s'...\n", idx, info.name);
		snd_ctl_close(handle);
	}

	/* mixer interface */
	for (card = 0; card < cards; card++) {
		if ((err = snd_ctl_open(&handle, card)) < 0) {
			printf("CTL open error: %s\n", snd_strerror(err));
			continue;
		}
		if ((err = snd_ctl_hw_info(handle, &info)) < 0) {
			printf("CTL hw info error: %s\n", snd_strerror(err));
			continue;
		}
		snd_ctl_close(handle);
		for (device = 0; device < info.mixerdevs; device++) {
			if ((err = snd_mixer_open(&handle, card, device)) < 0) {
				printf("Mixer open error: %s\n", snd_strerror(err));
				continue;
			}
			if ((count = snd_mixer_switches(handle)) < 0) {
				printf("Mixer switches error: %s\n", snd_strerror(count));
				continue;
			}
			for (idx = 0; idx < count; idx++) {
				if ((err = snd_mixer_switch_read(handle, idx, &mixer_switch)) < 0) {
					printf("Mixer switch read error: %s\n", snd_strerror(count));
					continue;
				}
				printf("Mixer switch: '%s' %s (%i-%i)\n", mixer_switch.name, get_type(mixer_switch.type), mixer_switch.low, mixer_switch.high);
				if ((err = snd_mixer_switch_write(handle, idx, &mixer_switch)) < 0) {
					printf("Mixer switch write error: %s\n", snd_strerror(count));
					continue;
				}
			}
			if (count <= 0)
				printf("No mixer switches detected for soundcard #%i '%s'...\n", idx, info.name);
			snd_mixer_close(handle);
		}
	}

	/* pcm switches */
	for (card = 0; card < cards; card++) {
		if ((err = snd_ctl_open(&chandle, card)) < 0) {
			printf("CTL open error: %s\n", snd_strerror(err));
			continue;
		}
		if ((err = snd_ctl_hw_info(chandle, &info)) < 0) {
			printf("CTL hw info error: %s\n", snd_strerror(err));
			continue;
		}
		for (device = 0; device < info.pcmdevs; device++) {
			if ((err = snd_ctl_pcm_info(chandle, device, &pcm_info)) < 0) {
				printf("CTL PCM info error: %s\n", snd_strerror(err));
				continue;
			}
			for (direction = 0; direction < 2; direction++) {
				int (*switches) (void *handle);
				int (*switch_read) (void *handle, int switchn, snd_pcm_switch_t * data);
				int (*switch_write) (void *handle, int switchn, snd_pcm_switch_t * data);
				char *str;

				if (!(pcm_info.flags & (!direction ? SND_PCM_INFO_PLAYBACK : SND_PCM_INFO_RECORD)))
					continue;
				if ((err = snd_pcm_open(&handle, card, device, !direction ? SND_PCM_OPEN_PLAYBACK : SND_PCM_OPEN_RECORD)) < 0) {
					printf("PCM open error: %s\n", snd_strerror(err));
					continue;
				}
				if (!direction) {
					switches = snd_pcm_playback_switches;
					switch_read = snd_pcm_playback_switch_read;
					switch_write = snd_pcm_playback_switch_write;
					str = "playback";
				} else {
					switches = snd_pcm_record_switches;
					switch_read = snd_pcm_record_switch_read;
					switch_write = snd_pcm_record_switch_write;
					str = "record";
				}
				if ((count = switches(handle)) < 0) {
					printf("PCM %s switches error: %s\n", str, snd_strerror(count));
					continue;
				}
				for (idx = 0; idx < count; idx++) {
					if ((err = switch_read(handle, idx, &pcm_switch)) < 0) {
						printf("PCM %s switch read error: %s\n", str, snd_strerror(count));
						continue;
					}
					printf("PCM switch: '%s' %s (%i-%i)\n", pcm_switch.name, get_type(pcm_switch.type), pcm_switch.low, pcm_switch.high);
					if ((err = switch_write(handle, idx, &pcm_switch)) < 0) {
						printf("PCM %s switch write error: %s\n", str, snd_strerror(count));
						continue;
					}
				}
				if (count <= 0)
					printf("No PCM %s switches detected for soundcard #%i/#%i '%s'/'%s'...\n", str, idx, device, info.name, pcm_info.name);
				snd_pcm_close(handle);
			}
		}
		snd_ctl_close(chandle);
	}

	/* rawmidi switches */
	for (card = 0; card < cards; card++) {
		if ((err = snd_ctl_open(&chandle, card)) < 0) {
			printf("CTL open error: %s\n", snd_strerror(err));
			continue;
		}
		if ((err = snd_ctl_hw_info(chandle, &info)) < 0) {
			printf("CTL hw info error: %s\n", snd_strerror(err));
			continue;
		}
		for (device = 0; device < info.mididevs; device++) {
			if ((err = snd_ctl_rawmidi_info(chandle, device, &rmidi_info)) < 0) {
				printf("CTL RawMIDI info error: %s\n", snd_strerror(err));
				continue;
			}
			for (direction = 0; direction < 2; direction++) {
				int (*switches) (void *handle);
				int (*switch_read) (void *handle, int switchn, snd_rawmidi_switch_t * data);
				int (*switch_write) (void *handle, int switchn, snd_rawmidi_switch_t * data);
				char *str;

				if (!(pcm_info.flags & (!direction ? SND_RAWMIDI_INFO_OUTPUT : SND_RAWMIDI_INFO_INPUT)))
					continue;
				if ((err = snd_rawmidi_open(&handle, card, device, !direction ? SND_RAWMIDI_OPEN_OUTPUT : SND_RAWMIDI_OPEN_INPUT)) < 0) {
					printf("RawMIDI CTL open error: %s\n", snd_strerror(err));
					continue;
				}
				if (!direction) {
					switches = snd_rawmidi_output_switches;
					switch_read = snd_rawmidi_output_switch_read;
					switch_write = snd_rawmidi_output_switch_write;
					str = "output";
				} else {
					switches = snd_rawmidi_input_switches;
					switch_read = snd_rawmidi_input_switch_read;
					switch_write = snd_rawmidi_input_switch_write;
					str = "input";
				}
				if ((count = switches(handle)) < 0) {
					printf("RawMIDI %s switches error: %s\n", str, snd_strerror(count));
					continue;
				}
				for (idx = 0; idx < count; idx++) {
					if ((err = switch_read(handle, idx, &rmidi_switch)) < 0) {
						printf("RawMIDI %s switch read error: %s\n", str, snd_strerror(count));
						continue;
					}
					printf("RawMIDI switch: '%s' %s (%i-%i)\n", rmidi_switch.name, get_type(rmidi_switch.type), rmidi_switch.low, rmidi_switch.high);
					if ((err = switch_write(handle, idx, &rmidi_switch)) < 0) {
						printf("RawMIDI %s switch write error: %s\n", str, snd_strerror(count));
						continue;
					}
				}
				if (count <= 0)
					printf("No RawMIDI %s switches detected for soundcard #%i/#%i '%s'/'%s'...\n", str, idx, device, info.name, rmidi_info.name);
				snd_rawmidi_close(handle);
			}
		}
		snd_ctl_close(chandle);
	}

}