home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 9 / CD_ASCQ_09_1193.iso / news / 4441 / mpegcode / src / parse_hu.pl < prev    next >
Text File  |  1993-09-27  |  7KB  |  199 lines
  1. # 
  2. # Copyright (c) 1993 The Regents of the University of California.
  3. # All rights reserved.
  4. # 
  5. # Permission to use, copy, modify, and distribute this software and its
  6. # documentation for any purpose, without fee, and without written agreement is
  7. # hereby granted, provided that the above copyright notice and the following
  8. # two paragraphs appear in all copies of this software.
  9. # 
  10. # IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
  11. # DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
  12. # OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
  13. # CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  14. # 
  15. # THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
  16. # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  17. # AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  18. # ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
  19. # PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  20. # 
  21.  
  22. #  
  23. #  $Header: /n/picasso/users/dwallach/vid2/mpeg_encode/RCS/parse_huff.pl,v 1.3 1993/01/18 10:56:03 dwallach Exp $
  24. #  $Log: parse_huff.pl,v $
  25. # Revision 1.3  1993/01/18  10:56:03  dwallach
  26. # got RCS headers in huff.c and huff.h working
  27. #
  28. # Revision 1.3  1993/01/18  10:56:03  dwallach
  29. # got RCS headers in huff.c and huff.h working
  30. #
  31. # Revision 1.2  1993/01/18  10:17:29  dwallach
  32. # RCS headers installed, code indented uniformly
  33. #
  34. # Revision 1.2  1993/01/18  10:17:29  dwallach
  35. # RCS headers installed, code indented uniformly
  36. #
  37. #
  38.  
  39. # this program's purpose in life is to parse the Huffman tables
  40. # and output C code which is awfully useful for translation
  41.  
  42. # typical usage:
  43. # perl parse_huff.pl huffman.table
  44. # ---> generates huff.c and huff.h
  45.  
  46. # source format:  # is a comment character
  47. # Otherwise, there are three tab-separated fields in a line:
  48. #    Run, Level, and VLC Code
  49. # Run and Level are integers, corresponding to the RLE coding.
  50. # The VLC code is what bits to generate, and is expected to be
  51. #    composed of 1, 0, space, and 's'.  Spaces are ignored, and
  52. #    s corresponds to the sign bit.  In the output of this program,
  53. #    We'll completely right-shift the data, with a 0 for the sign
  54. #    bit.  The encoder will make appropriate changes before outputing.
  55.  
  56.  
  57. open(HUFFC, "> huff.c") || die "Can't write huff.c: $!\n";
  58. open(HUFFH, "> huff.h") || die "Can't write huff.h: $!\n";
  59.  
  60. sub encode {
  61.     local($run, $level, $vlc) = @_;
  62.     local($result) = 0;
  63.     local($tmp);
  64.     $vlc =~ s/\s//g;           # remove whitespace
  65.  
  66.     local($bits) = length($vlc);
  67.  
  68.     foreach (split(//, $vlc)) {
  69.     $_ = 0 if $_ eq 's';
  70.     $result = ($result << 1) + $_;
  71.     }
  72.  
  73.     $tmp = sprintf("0x%x", $result);
  74.     eval "\$vlc$run[$level] = \$tmp";
  75.     eval "\$bits$run[$level] = \$bits";
  76. }
  77.  
  78. while(<>) {
  79.     chop;
  80.     s/\s*#.*$//;       # remove comments
  81.     next if /^\s*$/;   # continue if the line is purely whitespace
  82.  
  83.     ($run, $level, $vlc) = split(/\t/);
  84.     &encode($run, $level, $vlc);
  85.  
  86.     #
  87.     # we have the +1's to insure the sizes of C arrays are correct
  88.     #
  89.     $maxlevel[$run] = $level+1 if $level >= $maxlevel[$run];
  90.     $maxlevel = $level+1 if $level >= $maxlevel;
  91.     $maxrun = $run+1 if $run >= $maxrun;
  92. }
  93.  
  94. #
  95. # fix the entries that aren't defined
  96. #
  97. for($run = 0; $run < $maxrun; $run++) {
  98.     eval "\$vlc$run[0] = '0x0' if \$vlc$run[0] eq ''";
  99.     eval "\$bits$run[0] = '0' if \$bits$run[0] eq ''";
  100. }
  101.  
  102. #
  103. # now, output some C code
  104. #
  105.  
  106. printf HUFFC <<'EOF', $maxrun, join(", ", @maxlevel);
  107. /*
  108.  * Copyright (c) 1993 The Regents of the University of California.
  109.  * All rights reserved.
  110.  *
  111.  * Permission to use, copy, modify, and distribute this software and its
  112.  * documentation for any purpose, without fee, and without written agreement is
  113.  * hereby granted, provided that the above copyright notice and the following
  114.  * two paragraphs appear in all copies of this software.
  115.  *
  116.  * IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
  117.  * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
  118.  * OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
  119.  * CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  120.  *
  121.  * THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
  122.  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  123.  * AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  124.  * ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
  125.  * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  126.  */
  127.  
  128. /*  
  129.  *  $Header: /n/picasso/users/dwallach/vid2/mpeg_encode/RCS/parse_huff.pl,v 1.3 1993/01/18 10:56:03 dwallach Exp $
  130.  */
  131.  
  132. /*  
  133.  *  THIS FILE IS MACHINE GENERATED!  DO NOT EDIT!
  134.  */
  135. #include "mtypes.h"
  136. #include "huff.h"
  137.  
  138. int huff_maxlevel[%s] = { %s };
  139.  
  140. EOF
  141. for($run = 0; $run < $maxrun; $run++) {
  142.     printf HUFFC <<EOF, eval "join(', ', \@vlc$run)", eval "join(', ', \@bits$run)";
  143. uint32 huff_table$run[$maxlevel[$run]] = { %s };
  144. int huff_bits$run[$maxlevel[$run]] = { %s };
  145.  
  146. EOF
  147. }
  148.  
  149. printf HUFFC "uint32 *huff_table[$maxrun] = { ";
  150. for($run = 0; $run < $maxrun; $run++) {
  151.     printf HUFFC "%shuff_table$run", ($run)?", ":"";
  152. }
  153. printf HUFFC " };\n";
  154.  
  155. printf HUFFC "int *huff_bits[$maxrun] = { ";
  156. for($run = 0; $run < $maxrun; $run++) {
  157.     printf HUFFC "%shuff_bits$run", ($run)?", ":"";
  158. }
  159. printf HUFFC " };\n";
  160. close HUFFC;
  161.  
  162. printf HUFFH <<'EOF', $maxrun, $maxlevel;
  163. /*
  164.  * Copyright (c) 1993 The Regents of the University of California.
  165.  * All rights reserved.
  166.  *
  167.  * Permission to use, copy, modify, and distribute this software and its
  168.  * documentation for any purpose, without fee, and without written agreement is
  169.  * hereby granted, provided that the above copyright notice and the following
  170.  * two paragraphs appear in all copies of this software.
  171.  *
  172.  * IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
  173.  * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
  174.  * OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
  175.  * CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  176.  *
  177.  * THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
  178.  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  179.  * AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  180.  * ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
  181.  * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  182.  */
  183.  
  184. /*  
  185.  *  $Header: /n/picasso/users/dwallach/vid2/mpeg_encode/RCS/parse_huff.pl,v 1.3 1993/01/18 10:56:03 dwallach Exp $
  186.  */
  187.  
  188. /*  
  189.  *  THIS FILE IS MACHINE GENERATED!  DO NOT EDIT!
  190.  */
  191. #define HUFF_MAXRUN    %s
  192. #define HUFF_MAXLEVEL    %s
  193.  
  194. extern int huff_maxlevel[];
  195. extern uint32 *huff_table[];
  196. extern int *huff_bits[];
  197. EOF
  198.  
  199.