Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2026-01-13 08:05:52 +01:00
Code Issues Releases Wiki Activity

Update libvorbis to 1.3.3.

Browse Source
This commit is contained in:
lllucius
2013-10-24 18:24:47 +00:00
parent 78309687be
commit 3a33e2f717
374 changed files with 119632 additions and 45432 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lib-src/libvorbis/vq/make_residue_books.pl
View File

@@ -114,8 +114,8 @@ while($line=<F>){
$plusminus=$val;
}
}
die "Couldn't open temp file temp$$.vql: $!" unless
open(G,">temp$$.vql");
die "Couldn't open temp file $globalname$name.vql: $!" unless
open(G,">$globalname$name.vql");
print G "$count $dim 0 ";
if($seqp=~/non/){
print G "0\n$list\n";
@@ -124,16 +124,11 @@ while($line=<F>){
}
close(G);
my $command="latticebuild temp$$.vql > $globalname$name.vqh";
my $command="latticebuild $globalname$name.vql > $globalname$name.vqh";
print ">>> $command\n";
die "Couldn't build latticebook.\n\tcommand:$command\n"
if syst($command);
my $command="latticehint $globalname$name.vqh $thlist > temp$$.vqh";
print ">>> $command\n";
die "Couldn't pre-hint latticebook.\n\tcommand:$command\n"
if syst($command);
if(-e $datafile){
if($interleave=~/non/){
@@ -143,32 +138,27 @@ while($line=<F>){
}
if($seqp=~/cull/){
my $command="$restune temp$$.vqh $datafile 1 > $globalname$name.vqh";
my $command="$restune $globalname$name.vqh $datafile 1 > temp$$.vqh";
print ">>> $command\n";
die "Couldn't tune latticebook.\n\tcommand:$command\n"
if syst($command);
}else{
my $command="$restune temp$$.vqh $datafile > $globalname$name.vqh";
my $command="$restune $globalname$name.vqh $datafile > temp$$.vqh";
print ">>> $command\n";
die "Couldn't tune latticebook.\n\tcommand:$command\n"
if syst($command);
}
my $command="latticehint $globalname$name.vqh $thlist > temp$$.vqh";
my $command="mv temp$$.vqh $globalname$name.vqh";
print ">>> $command\n";
die "Couldn't post-hint latticebook.\n\tcommand:$command\n"
die "Couldn't rename latticebook.\n\tcommand:$command\n"
if syst($command);
}else{
print "No matching training file; leaving this codebook untrained.\n";
}
my $command="mv temp$$.vqh $globalname$name.vqh";
print ">>> $command\n";
die "Couldn't rename latticebook.\n\tcommand:$command\n"
if syst($command);
my $command="rm temp$$.vql";
my $command="rm $globalname$name.vql";
print ">>> $command\n";
die "Couldn't remove temp files.\n\tcommand:$command\n"
if syst($command);