]> git.jsancho.org Git - lugaru.git/blob - libvorbis-1.0.1/vq/auxpartition.pl
Disable AL_EXT_vorbis, as untested.
[lugaru.git] / libvorbis-1.0.1 / vq / auxpartition.pl
1 #!/usr/bin/perl
2
3 if($#ARGV<0){
4     &usage;
5 }
6
7 $|=1;
8
9 $bands=0;
10
11 foreach $arg (@ARGV){
12     ($entries[$bands],$file[$bands])=split(/,/,$arg);
13     $bands++;
14 }
15
16 # no time to deal with globs right now
17 if($bands>0){
18     die unless open(ONE,"<".$file[0]);
19 }
20 if($bands>1){
21     die unless open(TWO,"<".$file[1]);
22 }
23 if($bands>2){
24     die unless open(THREE,"<".$file[2]);
25 }
26
27
28 while (<ONE>) {    
29     my@nums = ();
30     @nums = split(/,/);
31     my$cols=$#nums;
32     for($i=0;$i<$cols;$i++){
33         print 0+$nums[$i].", ";
34     }
35     if($bands>1){
36         $_=<TWO>;
37         @nums = ();
38         @nums = split(/,/);
39         $cols=$#nums;
40         for($i=0;$i<$cols;$i++){
41             print $nums[$i]+$entries[0].", ";
42         }
43         if($bands>2){
44             $_=<THREE>;
45             @nums = ();
46             @nums = split(/,/);
47             $cols=$#nums;
48             for($i=0;$i<$cols;$i++){
49                 print $nums[$i]+$entries[0]+$entries[1].", ";
50             }
51         }
52     }
53     print "\n";
54
55 }
56
57 if($bands>0){
58     close ONE;
59 }
60 if($bands>1){
61     close TWO;
62 }
63 if($bands>2){
64     close THREE;
65 }
66     
67 sub usage{
68     print "\nOggVorbis auxbook spectral partitioner\n\n";
69     print "auxpartition.pl <part_entries>,file [<part_entries>,file...]\n\n";
70     exit(1);
71 }