#!/usr/bin/perl -w

# VARIABLE SET AND OUTPUT FILES
my @list = glob("Synth\/*");
my $line;
my @params = ("synthMode","synthNoteOnLevel","synthNoteOffLevel","synthAmpDynamic","synthFilterDynamic","synthCutoff","synthResonance","synthLevel","synthMix","synthTone","synthOsc1DetuneCoarse","synthOsc1DetuneFine","synthOsc1Amp","synthOsc1Pan","synthOsc2DetuneCoarse","synthOsc2DetuneFine","synthOsc2Amp","synthOsc2Pan","synthOsc3DetuneCoarse","synthOsc3DetuneFine","synthOsc3Amp","synthOsc3Pan","synthAttack","synthRelease","synthPortamento","synthEnvelope","octaverOct1Level","octaverOct2Level","octaverOctaveUpLevel","octaverDryLevel");


# OUTPUT FILE
open(OUTFILE, "> presets.csv");

print(OUTFILE "Filename");
for (my $j=0; $j<=$#params; $j++)
{
    print(OUTFILE ",".$params[$j]);
}
print(OUTFILE "\n");

# LOOP
foreach (@list)
{
    my @newarr;
    my @valuearr;

    open(INFILE, "< $_");

    $_ =~ s/,//;
    print $_."\n";
    while($line=<INFILE>)
    {
#	chomp $line;
	push(@newarr,$line);
	$line =~ s/  \<param name=\"//;
	$line =~ s/\" value=\"//;
	$line =~ s/"\/\>//;
	for (my $i=0; $i<=$#params; $i++)
	{
	    $line =~ s/$params[$i]//;
	}
	$line =~ s/\s+|\s+//g;
	push(@valuearr,$line);
    }
    close(INFILE);
    print(OUTFILE $_);
    
#    print(OUTFILE "$valuearr[0]");
    for (my $j=4; $j<=$#valuearr-1; $j++)
    {
	print(OUTFILE ",".$valuearr[$j]);
    }
    print(OUTFILE "\n");
}

close(OUTFILE);

# PROGRAM END