diff scripts/setup-mit-6.375-bmark-audio-core @ 34:1a21b4cd85ee pygar svn.35

[svn r35] fixed the perl scripts and c files to handle multiple voices
author rlm
date Tue, 04 May 2010 12:08:19 -0400
parents 0c775e733b81
children 7ac38b0f93fa
line wrap: on
line diff
     1.1 --- a/scripts/setup-mit-6.375-bmark-audio-core	Tue May 04 10:13:53 2010 -0400
     1.2 +++ b/scripts/setup-mit-6.375-bmark-audio-core	Tue May 04 12:08:19 2010 -0400
     1.3 @@ -11,7 +11,7 @@
     1.4  #
     1.5  ##############################################################
     1.6  
     1.7 -use strict;
     1.8 +#use strict;
     1.9  use warnings;
    1.10  use File::Basename;
    1.11  use Getopt::Long;
    1.12 @@ -109,8 +109,22 @@
    1.13  	# Copy input data files
    1.14  	if (defined($data)) {
    1.15  	    # No trailing slash. Just link to a single object
    1.16 +	   
    1.17 +
    1.18 +	    # rlm: oh my gosh here we go with TWO files!
    1.19 +	    print "\nRLM: moving TWO files:\n";
    1.20 +	    print "OHYEAH::   $data\n\n";
    1.21 +	    $data =~ m#^.*/([^/]*)\.wav$#;
    1.22 +	    #print "OHYYYYYYEAH::: $1\n\n\n!!!";
    1.23 +	    $newFile = $1."1.wav";
    1.24  	    print "data: $data\n";
    1.25 -	    symlink("${srcdir}/${data}", "input.wav") or die("Failed to link to $data");
    1.26 +	    print "rlm: data2: $newFile\n";
    1.27 +	    print "\nrlm: move  ${srcdir}/${data} to input.wav\n\n";
    1.28 + 
    1.29 +	    symlink("${srcdir}/${data}", "../input.wav") or die("Failed to link to $data");
    1.30 +	    symlink("${srcdir}/../benchmarks/audio_processor_test/$newFile", "../input1.wav") or die("Failed to link to $newFile");
    1.31 +
    1.32 +
    1.33  	}
    1.34  # this came from processor bit and not sure what it is expecting
    1.35          # Copy input data files