PIKApp/plug-ins/file-faxg3/g3.c

278 lines
6.2 KiB
C

/* #ident "@(#)g3.c 3.1 95/08/30 Copyright (c) Gert Doering" */
#include "config.h"
#include <stdlib.h>
#include <stdio.h>
#include <glib.h>
#include "g3.h"
struct g3code t_white[66] = {
{ 0, 0, 0x0ac, 8 },
{ 0, 1, 0x038, 6 },
{ 0, 2, 0x00e, 4 },
{ 0, 3, 0x001, 4 },
{ 0, 4, 0x00d, 4 },
{ 0, 5, 0x003, 4 },
{ 0, 6, 0x007, 4 },
{ 0, 7, 0x00f, 4 },
{ 0, 8, 0x019, 5 },
{ 0, 9, 0x005, 5 },
{ 0, 10, 0x01c, 5 },
{ 0, 11, 0x002, 5 },
{ 0, 12, 0x004, 6 },
{ 0, 13, 0x030, 6 },
{ 0, 14, 0x00b, 6 },
{ 0, 15, 0x02b, 6 },
{ 0, 16, 0x015, 6 },
{ 0, 17, 0x035, 6 },
{ 0, 18, 0x072, 7 },
{ 0, 19, 0x018, 7 },
{ 0, 20, 0x008, 7 },
{ 0, 21, 0x074, 7 },
{ 0, 22, 0x060, 7 },
{ 0, 23, 0x010, 7 },
{ 0, 24, 0x00a, 7 },
{ 0, 25, 0x06a, 7 },
{ 0, 26, 0x064, 7 },
{ 0, 27, 0x012, 7 },
{ 0, 28, 0x00c, 7 },
{ 0, 29, 0x040, 8 },
{ 0, 30, 0x0c0, 8 },
{ 0, 31, 0x058, 8 },
{ 0, 32, 0x0d8, 8 },
{ 0, 33, 0x048, 8 },
{ 0, 34, 0x0c8, 8 },
{ 0, 35, 0x028, 8 },
{ 0, 36, 0x0a8, 8 },
{ 0, 37, 0x068, 8 },
{ 0, 38, 0x0e8, 8 },
{ 0, 39, 0x014, 8 },
{ 0, 40, 0x094, 8 },
{ 0, 41, 0x054, 8 },
{ 0, 42, 0x0d4, 8 },
{ 0, 43, 0x034, 8 },
{ 0, 44, 0x0b4, 8 },
{ 0, 45, 0x020, 8 },
{ 0, 46, 0x0a0, 8 },
{ 0, 47, 0x050, 8 },
{ 0, 48, 0x0d0, 8 },
{ 0, 49, 0x04a, 8 },
{ 0, 50, 0x0ca, 8 },
{ 0, 51, 0x02a, 8 },
{ 0, 52, 0x0aa, 8 },
{ 0, 53, 0x024, 8 },
{ 0, 54, 0x0a4, 8 },
{ 0, 55, 0x01a, 8 },
{ 0, 56, 0x09a, 8 },
{ 0, 57, 0x05a, 8 },
{ 0, 58, 0x0da, 8 },
{ 0, 59, 0x052, 8 },
{ 0, 60, 0x0d2, 8 },
{ 0, 61, 0x04c, 8 },
{ 0, 62, 0x0cc, 8 },
{ 0, 63, 0x02c, 8 },
{ 0, -1, 0, 11 }, /* 11 0-bits == EOL, special handling */
{ 0, -1, 0, 0 }}; /* end of table */
/* make-up codes white */
struct g3code m_white[28] = {
{ 0, 64, 0x01b, 5 },
{ 0, 128, 0x009, 5 },
{ 0, 192, 0x03a, 6 },
{ 0, 256, 0x076, 7 },
{ 0, 320, 0x06c, 8 },
{ 0, 384, 0x0ec, 8 },
{ 0, 448, 0x026, 8 },
{ 0, 512, 0x0a6, 8 },
{ 0, 576, 0x016, 8 },
{ 0, 640, 0x0e6, 8 },
{ 0, 704, 0x066, 9 },
{ 0, 768, 0x166, 9 },
{ 0, 832, 0x096, 9 },
{ 0, 896, 0x196, 9 },
{ 0, 960, 0x056, 9 },
{ 0,1024, 0x156, 9 },
{ 0,1088, 0x0d6, 9 },
{ 0,1152, 0x1d6, 9 },
{ 0,1216, 0x036, 9 },
{ 0,1280, 0x136, 9 },
{ 0,1344, 0x0b6, 9 },
{ 0,1408, 0x1b6, 9 },
{ 0,1472, 0x032, 9 },
{ 0,1536, 0x132, 9 },
{ 0,1600, 0x0b2, 9 },
{ 0,1664, 0x006, 6 },
{ 0,1728, 0x1b2, 9 },
{ 0, -1, 0, 0} };
struct g3code t_black[66] = {
{ 0, 0, 0x3b0, 10 },
{ 0, 1, 0x002, 3 },
{ 0, 2, 0x003, 2 },
{ 0, 3, 0x001, 2 },
{ 0, 4, 0x006, 3 },
{ 0, 5, 0x00c, 4 },
{ 0, 6, 0x004, 4 },
{ 0, 7, 0x018, 5 },
{ 0, 8, 0x028, 6 },
{ 0, 9, 0x008, 6 },
{ 0, 10, 0x010, 7 },
{ 0, 11, 0x050, 7 },
{ 0, 12, 0x070, 7 },
{ 0, 13, 0x020, 8 },
{ 0, 14, 0x0e0, 8 },
{ 0, 15, 0x030, 9 },
{ 0, 16, 0x3a0, 10 },
{ 0, 17, 0x060, 10 },
{ 0, 18, 0x040, 10 },
{ 0, 19, 0x730, 11 },
{ 0, 20, 0x0b0, 11 },
{ 0, 21, 0x1b0, 11 },
{ 0, 22, 0x760, 11 },
{ 0, 23, 0x0a0, 11 },
{ 0, 24, 0x740, 11 },
{ 0, 25, 0x0c0, 11 },
{ 0, 26, 0x530, 12 },
{ 0, 27, 0xd30, 12 },
{ 0, 28, 0x330, 12 },
{ 0, 29, 0xb30, 12 },
{ 0, 30, 0x160, 12 },
{ 0, 31, 0x960, 12 },
{ 0, 32, 0x560, 12 },
{ 0, 33, 0xd60, 12 },
{ 0, 34, 0x4b0, 12 },
{ 0, 35, 0xcb0, 12 },
{ 0, 36, 0x2b0, 12 },
{ 0, 37, 0xab0, 12 },
{ 0, 38, 0x6b0, 12 },
{ 0, 39, 0xeb0, 12 },
{ 0, 40, 0x360, 12 },
{ 0, 41, 0xb60, 12 },
{ 0, 42, 0x5b0, 12 },
{ 0, 43, 0xdb0, 12 },
{ 0, 44, 0x2a0, 12 },
{ 0, 45, 0xaa0, 12 },
{ 0, 46, 0x6a0, 12 },
{ 0, 47, 0xea0, 12 },
{ 0, 48, 0x260, 12 },
{ 0, 49, 0xa60, 12 },
{ 0, 50, 0x4a0, 12 },
{ 0, 51, 0xca0, 12 },
{ 0, 52, 0x240, 12 },
{ 0, 53, 0xec0, 12 },
{ 0, 54, 0x1c0, 12 },
{ 0, 55, 0xe40, 12 },
{ 0, 56, 0x140, 12 },
{ 0, 57, 0x1a0, 12 },
{ 0, 58, 0x9a0, 12 },
{ 0, 59, 0xd40, 12 },
{ 0, 60, 0x340, 12 },
{ 0, 61, 0x5a0, 12 },
{ 0, 62, 0x660, 12 },
{ 0, 63, 0xe60, 12 },
{ 0, -1, 0x000, 11 },
{ 0, -1, 0, 0 } };
struct g3code m_black[28] = {
{ 0, 64, 0x3c0, 10 },
{ 0, 128, 0x130, 12 },
{ 0, 192, 0x930, 12 },
{ 0, 256, 0xda0, 12 },
{ 0, 320, 0xcc0, 12 },
{ 0, 384, 0x2c0, 12 },
{ 0, 448, 0xac0, 12 },
{ 0, 512, 0x6c0, 13 },
{ 0, 576,0x16c0, 13 },
{ 0, 640, 0xa40, 13 },
{ 0, 704,0x1a40, 13 },
{ 0, 768, 0x640, 13 },
{ 0, 832,0x1640, 13 },
{ 0, 896, 0x9c0, 13 },
{ 0, 960,0x19c0, 13 },
{ 0,1024, 0x5c0, 13 },
{ 0,1088,0x15c0, 13 },
{ 0,1152, 0xdc0, 13 },
{ 0,1216,0x1dc0, 13 },
{ 0,1280, 0x940, 13 },
{ 0,1344,0x1940, 13 },
{ 0,1408, 0x540, 13 },
{ 0,1472,0x1540, 13 },
{ 0,1536, 0xb40, 13 },
{ 0,1600,0x1b40, 13 },
{ 0,1664, 0x4c0, 13 },
{ 0,1728,0x14c0, 13 },
{ 0, -1, 0, 0 } };
void tree_add_node( struct g3_tree *p, struct g3code * g3c,
int bit_code, int bit_length )
{
int i;
if ( bit_length <= FBITS ) /* leaf (multiple bits) */
{
g3c->nr_bits = bit_length; /* leaf tag */
if ( bit_length == FBITS ) /* full width */
{
p->nextb[ bit_code ] = (struct g3_tree *) g3c;
}
else /* fill bits */
for ( i=0; i< ( 1 << (FBITS-bit_length)); i++ )
{
p->nextb[ bit_code + ( i << bit_length ) ] = (struct g3_tree *) g3c;
}
}
else /* node */
{
struct g3_tree *p2;
p2 = p->nextb[ bit_code & BITM ];
if ( p2 == 0 ) /* no sub-node exists */
{
p2 = p->nextb[ bit_code & BITM ] =
( struct g3_tree * ) calloc( 1, sizeof( struct g3_tree ));
if ( p2 == NULL ) { perror( "malloc 3" ); exit(11); }
p2->nr_bits = 0; /* node tag */
}
if ( p2->nr_bits != 0 )
{
g_printerr ("internal table setup error\n" ); exit(6);
}
tree_add_node( p2, g3c, bit_code >> FBITS, bit_length - FBITS );
}
}
void build_tree (struct g3_tree ** p, struct g3code * c )
{
if ( *p == NULL )
{
(*p) = (struct g3_tree *) calloc( 1, sizeof(struct g3_tree) );
if ( *p == NULL ) { perror( "malloc(1)" ); exit(10); }
(*p)->nr_bits=0;
}
while ( c->bit_length != 0 )
{
tree_add_node( *p, c, c->bit_code, c->bit_length );
c++;
}
}
void init_byte_tab (int reverse, int byte_tab[] )
{
int i;
if ( reverse ) for ( i=0; i<256; i++ ) byte_tab[i] = i;
else
for ( i=0; i<256; i++ )
byte_tab[i] = ( ((i & 0x01) << 7) | ((i & 0x02) << 5) |
((i & 0x04) << 3) | ((i & 0x08) << 1) |
((i & 0x10) >> 1) | ((i & 0x20) >> 3) |
((i & 0x40) >> 5) | ((i & 0x80) >> 7) );
}