home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / bbs / programs / amiga / pastex13.lha / DVIPS / dvips5519.lha / dvips / unpack.c < prev    next >
C/C++ Source or Header  |  1993-08-12  |  5KB  |  184 lines
  1. /*
  2.  *   Unpacks the raster data from the packed buffer.  This code was 
  3.  *   translated from pktopx.web using an automatic translator, then
  4.  *   converted for this purpose.  This little routine can be very useful
  5.  *   in other drivers as well.
  6.  */
  7. #include "dvips.h" /* The copyright notice in that file is included too! */
  8.  
  9. /*
  10.  * external procedures
  11.  */
  12. extern void error();
  13.  
  14. /*
  15.  *   Some statics for use here.
  16.  */
  17. static halfword bitweight ; 
  18. static halfword dynf ;
  19. static halfword gpower[17] = { 0 , 1 , 3 , 7 , 15 , 31 , 63 , 127 ,
  20.      255 , 511 , 1023 , 2047 , 4095 , 8191 , 16383 , 32767 , 65535 } ; 
  21. static long repeatcount ;
  22. static quarterword *p ;
  23.  
  24. /*
  25.  *   We need procedures to get a nybble, bit, and packed word from the
  26.  *   packed data structure.
  27.  */
  28.  
  29. shalfword
  30. getnyb ()
  31. {
  32.     if ( bitweight == 0 ) 
  33.     { bitweight = 16 ; 
  34.       return(*p++ & 15) ;
  35.     } else {
  36.       bitweight = 0 ;
  37.       return(*p >> 4) ;
  38.     }
  39. } 
  40.  
  41. Boolean
  42. getbit ()
  43. {
  44.     bitweight >>= 1 ; 
  45.     if ( bitweight == 0 ) 
  46.     { p++ ;
  47.       bitweight = 128 ;
  48.     } 
  49.     return(*p & bitweight) ;
  50. } 
  51.  
  52. long pkpackednum () {
  53.     register halfword i;
  54.     register long j ; 
  55.     i = getnyb () ; 
  56.     if ( i == 0 ) {
  57.        do { j = getnyb () ; 
  58.           i++ ; 
  59.           } while ( j == 0 ) ; 
  60.        while ( i != 0 ) {
  61.           j = j * 16 + ((long) getnyb ()) ; 
  62.           i-- ; 
  63.           } 
  64.        return ( j - 15 + ( 13 - dynf ) * 16 + dynf ) ; 
  65.     }
  66.     else if ( i <= dynf ) return ( i ) ; 
  67.     else if ( i < 14 ) return ( ( i - dynf - 1 )*16 + getnyb() + dynf + 1 ) ; 
  68.     else {
  69.        if (repeatcount != 0)
  70.           error("! recursive repeat count in pk file") ;
  71.        repeatcount = 1 ;
  72.        if ( i == 14 ) repeatcount = pkpackednum () ; 
  73.        return ( pkpackednum() ) ;
  74.     } 
  75. } 
  76.  
  77. void flip(s, howmany)
  78. register char *s ;
  79. register long howmany ;
  80. {
  81.    register char t ;
  82.  
  83.    while (howmany > 0) {
  84.       t = *s ;
  85.       *s = s[1] ;
  86.       s[1] = t ;
  87.       howmany-- ;
  88.       s += 2 ;
  89.    }
  90. }
  91. /*
  92.  *   And now we have our main routine.
  93.  */
  94. static halfword bftest = 1 ;
  95. long
  96. unpack(pack, raster, cwidth, cheight, cmd)
  97.         quarterword *pack ;
  98.         halfword *raster ;
  99.         halfword cwidth, cheight, cmd ;
  100. { 
  101.   register integer i, j ; 
  102.   shalfword wordwidth ; 
  103.   register halfword word, wordweight ;
  104.   shalfword rowsleft ; 
  105.   Boolean turnon ; 
  106.   shalfword hbit, ww ; 
  107.   long count ; 
  108.   halfword *oraster ;
  109.  
  110.       oraster = raster ;
  111.       p = pack ;
  112.       dynf = cmd / 16 ; 
  113.       turnon = cmd & 8 ; 
  114.       wordwidth = (cwidth + 15)/16 ;
  115.       if ( dynf == 14 ) 
  116.       { bitweight = 256 ; 
  117.         for ( i = 1 ; i <= cheight ; i ++ ) 
  118.           { word = 0 ; 
  119.             wordweight = 32768 ; 
  120.             for ( j = 1 ; j <= cwidth ; j ++ ) 
  121.               { if ( getbit () ) word += wordweight ; 
  122.                 wordweight >>= 1 ;
  123.                 if ( wordweight == 0 ) 
  124.                 { *raster++ = word ; 
  125.                   word = 0 ;
  126.                   wordweight = 32768 ; 
  127.                   } 
  128.                 } 
  129.               if ( wordweight != 32768 ) 
  130.                  *raster++ = word ; 
  131.             } 
  132.       } else {
  133.         rowsleft = cheight ; 
  134.         hbit = cwidth ; 
  135.         repeatcount = 0 ; 
  136.         ww = 16 ; 
  137.         word = 0 ; 
  138.         bitweight = 16 ;
  139.         while ( rowsleft > 0 ) 
  140.           { count = pkpackednum() ; 
  141.             while ( count != 0 ) 
  142.               { if ( ( count <= ww ) && ( count < hbit ) ) 
  143.                 { if ( turnon ) word += gpower [ ww ] - gpower 
  144.                   [ ww - count ] ; 
  145.                   hbit -= count ; 
  146.                   ww -= count ; 
  147.                   count = 0 ; 
  148.                   } 
  149.                 else if ( ( count >= hbit ) && ( hbit <= ww ) ) 
  150.                 { if ( turnon )
  151.                      word += gpower[ww] - gpower[ww-hbit] ; 
  152.                   *raster++ = word ; 
  153.                   for ( i = 1 ; i <= repeatcount ; i ++ ) {
  154.                     for ( j = 1 ; j <= wordwidth ; j ++ ) {
  155.                       *raster = *(raster - wordwidth) ;
  156.                       raster++ ;
  157.                     }
  158.                   }
  159.                   rowsleft -= repeatcount + 1 ; 
  160.                   repeatcount = 0 ; 
  161.                   word = 0 ; 
  162.                   ww = 16 ; 
  163.                   count -= hbit ; 
  164.                   hbit = cwidth ; 
  165.                   } 
  166.                 else 
  167.                 { if ( turnon ) word += gpower [ ww ] ; 
  168.                   *raster++ = word ;
  169.                   word = 0 ; 
  170.                   count -= ww ; 
  171.                   hbit -= ww ; 
  172.                   ww = 16 ; 
  173.                   } 
  174.                 } 
  175.               turnon = ! turnon ; 
  176.             } 
  177.           if ( ( rowsleft != 0 ) || ( (unsigned)hbit != cwidth ) ) 
  178.              error ( "! error while unpacking; more bits than required" ) ; 
  179.         } 
  180.     if (*(char *)&bftest) /* is the hardware LittleEndian? */
  181.        flip((char *)oraster, ((cwidth + 15) >> 4) * (long)cheight) ;
  182.    return(p-pack) ;
  183. }
  184.