3 # quick, very dirty little script so that we can put all the
4 # information for building a residue book set (except the original
5 # partitioning) in one spec file.
10 # haux res0_96_128aux.vqd 0,4,2
11 # :1 res0_128_128_1.vqd, 4, nonseq cull, 0 +- 1
12 # +a 4, nonseq, 0 +- .25 .5
13 # :2 res0_128_128_2.vqd, 4, nonseq, 0 +- 1 2
14 # :3 res0_128_128_3.vqd, 4, nonseq, 0 +- 1 3 5
15 # :4 res0_128_128_4.vqd, 2, nonseq, 0 +- 1 3 5 8 11
16 # :5 res0_128_128_5.vqd, 1, nonseq, 0 +- 1 3 5 8 11 14 17 20 24 28 31 35 39
17 # +a 4, nonseq, 0 +- .5 1
20 die "Could not open $ARGV[0]: $!" unless open (F,$ARGV[0]);
24 print "\n#### $line\n\n";
33 # haux res0_96_128aux.vqd 0,4,2
35 # build a huffman book (no mapping)
36 my($name,$datafile,$arg)=split(' ',$1);
37 my $command="huffbuild $datafile $arg > $globalname$name.vqh";
38 print ">>> $command\n";
39 die "Couldn't build huffbook.\n\tcommand:$command\n"
44 # :1 res0_128_128_1.vqd, 4, nonseq, 0 +- 1
46 my($namedata,$dim,$seqp,$vals)=split(',',$1);
47 my($name,$datafile)=split(' ',$namedata);
52 foreach my$val (split(' ',$vals)){
53 if($val=~/\-?\+?\d+/){
66 die "Couldn't open temp file temp$$.vql: $!" unless
67 open(G,">temp$$.vql");
68 print G "$count $dim 0 ";
76 my $command="latticebuild temp$$.vql > $globalname$name.vqh";
77 print ">>> $command\n";
78 die "Couldn't build latticebook.\n\tcommand:$command\n"
81 my $command="latticehint $globalname$name.vqh > temp$$.vqh";
82 print ">>> $command\n";
83 die "Couldn't pre-hint latticebook.\n\tcommand:$command\n"
87 my $command="restune temp$$.vqh $datafile 1 > $globalname$name.vqh";
88 print ">>> $command\n";
89 die "Couldn't tune latticebook.\n\tcommand:$command\n"
92 my $command="restune temp$$.vqh $datafile > $globalname$name.vqh";
93 print ">>> $command\n";
94 die "Couldn't tune latticebook.\n\tcommand:$command\n"
98 my $command="latticehint $globalname$name.vqh > temp$$.vqh";
99 print ">>> $command\n";
100 die "Couldn't post-hint latticebook.\n\tcommand:$command\n"
103 my $command="mv temp$$.vqh $globalname$name.vqh";
104 print ">>> $command\n";
105 die "Couldn't rename latticebook.\n\tcommand:$command\n"
108 my $command="rm temp$$.vql";
109 print ">>> $command\n";
110 die "Couldn't remove temp files.\n\tcommand:$command\n"