Mercurial > pygar

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
33:2c8166d205d5 34:1a21b4cd85ee
9 # 9 #
10 # Setup benchmark to run in <destdir> 10 # Setup benchmark to run in <destdir>
11 # 11 #
12 ############################################################## 12 ##############################################################
13 13
14 use strict; 14 #use strict;
15 use warnings; 15 use warnings;
16 use File::Basename; 16 use File::Basename;
17 use Getopt::Long; 17 use Getopt::Long;
18 18
19 sub Usage(); 19 sub Usage();
107 symlink($src_prog, $dst_prog) or ErrorExit("Failed to symlink $dst_prog => $src_prog"); 107 symlink($src_prog, $dst_prog) or ErrorExit("Failed to symlink $dst_prog => $src_prog");
108 108
109 # Copy input data files 109 # Copy input data files
110 if (defined($data)) { 110 if (defined($data)) {
111 # No trailing slash. Just link to a single object 111 # No trailing slash. Just link to a single object
112
113
114 # rlm: oh my gosh here we go with TWO files!
115 print "\nRLM: moving TWO files:\n";
116 print "OHYEAH:: $data\n\n";
117 $data =~ m#^.*/([^/]*)\.wav$#;
118 #print "OHYYYYYYEAH::: $1\n\n\n!!!";
119 $newFile = $1."1.wav";
112 print "data: $data\n"; 120 print "data: $data\n";
113 symlink("${srcdir}/${data}", "input.wav") or die("Failed to link to $data"); 121 print "rlm: data2: $newFile\n";
122 print "\nrlm: move ${srcdir}/${data} to input.wav\n\n";
123
124 symlink("${srcdir}/${data}", "../input.wav") or die("Failed to link to $data");
125 symlink("${srcdir}/../benchmarks/audio_processor_test/$newFile", "../input1.wav") or die("Failed to link to $newFile");
126
127
114 } 128 }
115 # this came from processor bit and not sure what it is expecting 129 # this came from processor bit and not sure what it is expecting
116 # Copy input data files 130 # Copy input data files
117 # if (defined($data)) { 131 # if (defined($data)) {
118 # if ($data =~ /\.tar\.gz$/) { 132 # if ($data =~ /\.tar\.gz$/) {