Improve automake handling of the docbook documentation.

[platform/upstream/libvorbis.git] / vq / auxpartition.pl

diff --git a/vq/auxpartition.pl b/vq/auxpartition.pl
index e69de29..05c5ed9 100755 (executable)
--- a/vq/auxpartition.pl
+++ b/vq/auxpartition.pl
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+
+if($#ARGV<0){
+    &usage;
+}
+
+$|=1;
+
+$bands=0;
+
+foreach $arg (@ARGV){
+    ($entries[$bands],$file[$bands])=split(/,/,$arg);
+    $bands++;
+}
+
+# no time to deal with globs right now
+if($bands>0){
+    die unless open(ONE,"<".$file[0]);
+}
+if($bands>1){
+    die unless open(TWO,"<".$file[1]);
+}
+if($bands>2){
+    die unless open(THREE,"<".$file[2]);
+}
+
+
+while (<ONE>) {    
+    my@nums = ();
+    @nums = split(/,/);
+    my$cols=$#nums;
+    for($i=0;$i<$cols;$i++){
+       print 0+$nums[$i].", ";
+    }
+    if($bands>1){
+       $_=<TWO>;
+       @nums = ();
+       @nums = split(/,/);
+       $cols=$#nums;
+       for($i=0;$i<$cols;$i++){
+           print $nums[$i]+$entries[0].", ";
+       }
+       if($bands>2){
+           $_=<THREE>;
+           @nums = ();
+           @nums = split(/,/);
+           $cols=$#nums;
+           for($i=0;$i<$cols;$i++){
+               print $nums[$i]+$entries[0]+$entries[1].", ";
+           }
+       }
+    }
+    print "\n";
+
+}
+
+if($bands>0){
+    close ONE;
+}
+if($bands>1){
+    close TWO;
+}
+if($bands>2){
+    close THREE;
+}
+    
+sub usage{
+    print "\nOggVorbis auxbook spectral partitioner\n\n";
+    print "auxpartition.pl <part_entries>,file [<part_entries>,file...]\n\n";
+    exit(1);
+}