Correct PPTP server firewall rules chain.
[tomato/davidwu.git] / release / src / router / libvorbis / lib / lookups.pl
blobbd92df78b6639b63afd255a367f413519723307d
1 #!/usr/bin/perl
2 print <<'EOD';
3 /********************************************************************
4 * *
5 * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. *
6 * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS *
7 * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
8 * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. *
9 * *
10 * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007 *
11 * by the Xiph.Org Foundation http://www.xiph.org/ *
12 * *
13 ********************************************************************
15 function: lookup data; generated by lookups.pl; edit there
16 last mod: $Id: lookups.pl 13293 2007-07-24 00:09:47Z xiphmont $
18 ********************************************************************/
20 #ifndef _V_LOOKUP_DATA_H_
22 #ifdef FLOAT_LOOKUP
23 EOD
25 $cos_sz=128;
26 $invsq_sz=32;
27 $invsq2exp_min=-32;
28 $invsq2exp_max=32;
30 $fromdB_sz=35;
31 $fromdB_shift=5;
32 $fromdB2_shift=3;
34 $invsq_i_shift=10;
35 $cos_i_shift=9;
36 $delta_shift=6;
38 print "#define COS_LOOKUP_SZ $cos_sz\n";
39 print "static float COS_LOOKUP[COS_LOOKUP_SZ+1]={\n";
41 for($i=0;$i<=$cos_sz;){
42 print "\t";
43 for($j=0;$j<4 && $i<=$cos_sz;$j++){
44 printf "%+.13f,", cos(3.14159265358979323846*($i++)/$cos_sz) ;
46 print "\n";
48 print "};\n\n";
50 print "#define INVSQ_LOOKUP_SZ $invsq_sz\n";
51 print "static float INVSQ_LOOKUP[INVSQ_LOOKUP_SZ+1]={\n";
53 for($i=0;$i<=$invsq_sz;){
54 print "\t";
55 for($j=0;$j<4 && $i<=$invsq_sz;$j++){
56 my$indexmap=$i++/$invsq_sz*.5+.5;
57 printf "%.12f,", 1./sqrt($indexmap);
59 print "\n";
61 print "};\n\n";
63 print "#define INVSQ2EXP_LOOKUP_MIN $invsq2exp_min\n";
64 print "#define INVSQ2EXP_LOOKUP_MAX $invsq2exp_max\n";
65 print "static float INVSQ2EXP_LOOKUP[INVSQ2EXP_LOOKUP_MAX-\\\n".
66 " INVSQ2EXP_LOOKUP_MIN+1]={\n";
68 for($i=$invsq2exp_min;$i<=$invsq2exp_max;){
69 print "\t";
70 for($j=0;$j<4 && $i<=$invsq2exp_max;$j++){
71 printf "%15.10g,", 2**($i++*-.5);
73 print "\n";
75 print "};\n\n#endif\n\n";
78 # 0 to -140 dB
79 $fromdB2_sz=1<<$fromdB_shift;
80 $fromdB_gran=1<<($fromdB_shift-$fromdB2_shift);
81 print "#define FROMdB_LOOKUP_SZ $fromdB_sz\n";
82 print "#define FROMdB2_LOOKUP_SZ $fromdB2_sz\n";
83 print "#define FROMdB_SHIFT $fromdB_shift\n";
84 print "#define FROMdB2_SHIFT $fromdB2_shift\n";
85 print "#define FROMdB2_MASK ".((1<<$fromdB_shift)-1)."\n";
87 print "static float FROMdB_LOOKUP[FROMdB_LOOKUP_SZ]={\n";
89 for($i=0;$i<$fromdB_sz;){
90 print "\t";
91 for($j=0;$j<4 && $i<$fromdB_sz;$j++){
92 printf "%15.10g,", 10**(.05*(-$fromdB_gran*$i++));
94 print "\n";
96 print "};\n\n";
98 print "static float FROMdB2_LOOKUP[FROMdB2_LOOKUP_SZ]={\n";
100 for($i=0;$i<$fromdB2_sz;){
101 print "\t";
102 for($j=0;$j<4 && $i<$fromdB_sz;$j++){
103 printf "%15.10g,", 10**(.05*(-$fromdB_gran/$fromdB2_sz*(.5+$i++)));
105 print "\n";
107 print "};\n\n#ifdef INT_LOOKUP\n\n";
110 $iisz=0x10000>>$invsq_i_shift;
111 print "#define INVSQ_LOOKUP_I_SHIFT $invsq_i_shift\n";
112 print "#define INVSQ_LOOKUP_I_MASK ".(0x0ffff>>(16-$invsq_i_shift))."\n";
113 print "static long INVSQ_LOOKUP_I[$iisz+1]={\n";
114 for($i=0;$i<=$iisz;){
115 print "\t";
116 for($j=0;$j<4 && $i<=$iisz;$j++){
117 my$indexmap=$i++/$iisz*.5+.5;
118 printf "%8d,", int(1./sqrt($indexmap)*65536.+.5);
120 print "\n";
122 print "};\n\n";
124 $cisz=0x10000>>$cos_i_shift;
125 print "#define COS_LOOKUP_I_SHIFT $cos_i_shift\n";
126 print "#define COS_LOOKUP_I_MASK ".(0x0ffff>>(16-$cos_i_shift))."\n";
127 print "#define COS_LOOKUP_I_SZ $cisz\n";
128 print "static long COS_LOOKUP_I[COS_LOOKUP_I_SZ+1]={\n";
130 for($i=0;$i<=$cisz;){
131 print "\t";
132 for($j=0;$j<4 && $i<=$cisz;$j++){
133 printf "%8d,", int(cos(3.14159265358979323846*($i++)/$cos_sz)*16384.+.5) ;
135 print "\n";
137 print "};\n\n";
140 print "#endif\n\n#endif\n";