Mercurial > pygar
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