archive_read_support_compression_compress.c [plain text]
#include "archive_platform.h"
__FBSDID("$FreeBSD: src/lib/libarchive/archive_read_support_compression_compress.c,v 1.11 2008/12/06 06:45:15 kientzle Exp $");
#ifdef HAVE_ERRNO_H
#include <errno.h>
#endif
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include "archive.h"
#include "archive_private.h"
#include "archive_read_private.h"
struct private_data {
const unsigned char *next_in;
size_t avail_in;
int bit_buffer;
int bits_avail;
size_t bytes_in_section;
size_t out_block_size;
void *out_block;
int use_reset_code;
int end_of_stream;
int maxcode;
int maxcode_bits;
int section_end_code;
int bits;
int oldcode;
int finbyte;
int free_ent;
unsigned char suffix[65536];
uint16_t prefix[65536];
unsigned char *stackp;
unsigned char stack[65300];
};
static int compress_reader_bid(struct archive_reader *, const void *, size_t);
static struct archive_read_source *compress_reader_init(struct archive_read *,
struct archive_reader *, struct archive_read_source *,
const void *, size_t);
static int compress_reader_free(struct archive_reader *);
static ssize_t compress_source_read(struct archive_read_source *, const void **);
static int compress_source_close(struct archive_read_source *);
static int getbits(struct archive_read_source *, int n);
static int next_code(struct archive_read_source *);
int
archive_read_support_compression_compress(struct archive *_a)
{
struct archive_read *a = (struct archive_read *)_a;
struct archive_reader *reader = __archive_read_get_reader(a);
if (reader == NULL)
return (ARCHIVE_FATAL);
reader->data = NULL;
reader->bid = compress_reader_bid;
reader->init = compress_reader_init;
reader->free = compress_reader_free;
return (ARCHIVE_OK);
}
static int
compress_reader_bid(struct archive_reader *self, const void *buff, size_t len)
{
const unsigned char *buffer;
int bits_checked;
(void)self;
if (len < 1)
return (0);
buffer = (const unsigned char *)buff;
bits_checked = 0;
if (buffer[0] != 037)
return (0);
bits_checked += 8;
if (len < 2)
return (bits_checked);
if (buffer[1] != 0235)
return (0);
bits_checked += 8;
if (len < 3)
return (bits_checked);
return (bits_checked);
}
static struct archive_read_source *
compress_reader_init(struct archive_read *a, struct archive_reader *reader,
struct archive_read_source *upstream, const void *buff, size_t n)
{
struct archive_read_source *self;
struct private_data *state;
int code;
(void)reader;
a->archive.compression_code = ARCHIVE_COMPRESSION_COMPRESS;
a->archive.compression_name = "compress (.Z)";
self = calloc(sizeof(*self), 1);
if (self == NULL)
return (NULL);
self->read = compress_source_read;
self->skip = NULL;
self->close = compress_source_close;
self->upstream = upstream;
self->archive = a;
state = (struct private_data *)calloc(sizeof(*state), 1);
if (state == NULL) {
archive_set_error(&a->archive, ENOMEM,
"Can't allocate data for %s decompression",
a->archive.compression_name);
free(self);
return (NULL);
}
self->data = state;
state->out_block_size = 64 * 1024;
state->out_block = malloc(state->out_block_size);
if (state->out_block == NULL) {
archive_set_error(&a->archive, ENOMEM,
"Can't allocate %s decompression buffers",
a->archive.compression_name);
goto fatal;
}
state->next_in = (const unsigned char *)buff;
state->avail_in = n;
code = getbits(self, 8);
if (code != 037)
goto fatal;
code = getbits(self, 8);
if (code != 0235) {
archive_set_error(&a->archive, ARCHIVE_ERRNO_FILE_FORMAT,
"Compress signature did not match.");
goto fatal;
}
code = getbits(self, 8);
state->maxcode_bits = code & 0x1f;
state->maxcode = (1 << state->maxcode_bits);
state->use_reset_code = code & 0x80;
state->free_ent = 256;
state->stackp = state->stack;
if (state->use_reset_code)
state->free_ent++;
state->bits = 9;
state->section_end_code = (1<<state->bits) - 1;
state->oldcode = -1;
for (code = 255; code >= 0; code--) {
state->prefix[code] = 0;
state->suffix[code] = code;
}
next_code(self);
return (self);
fatal:
compress_source_close(self);
return (NULL);
}
static ssize_t
compress_source_read(struct archive_read_source *self, const void **pblock)
{
struct private_data *state;
unsigned char *p, *start, *end;
int ret;
state = (struct private_data *)self->data;
if (state->end_of_stream) {
*pblock = NULL;
return (0);
}
p = start = (unsigned char *)state->out_block;
end = start + state->out_block_size;
while (p < end && !state->end_of_stream) {
if (state->stackp > state->stack) {
*p++ = *--state->stackp;
} else {
ret = next_code(self);
if (ret == ARCHIVE_EOF)
state->end_of_stream = ret;
else if (ret != ARCHIVE_OK)
return (ret);
}
}
*pblock = start;
return (p - start);
}
static int
compress_reader_free(struct archive_reader *self)
{
self->data = NULL;
return (ARCHIVE_OK);
}
static int
compress_source_close(struct archive_read_source *self)
{
struct private_data *state = (struct private_data *)self->data;
free(state->out_block);
free(state);
free(self);
return (ARCHIVE_OK);
}
static int
next_code(struct archive_read_source *self)
{
struct private_data *state = (struct private_data *)self->data;
int code, newcode;
static int debug_buff[1024];
static unsigned debug_index;
code = newcode = getbits(self, state->bits);
if (code < 0)
return (code);
debug_buff[debug_index++] = code;
if (debug_index >= sizeof(debug_buff)/sizeof(debug_buff[0]))
debug_index = 0;
if ((code == 256) && state->use_reset_code) {
int skip_bytes = state->bits -
(state->bytes_in_section % state->bits);
skip_bytes %= state->bits;
state->bits_avail = 0;
while (skip_bytes-- > 0) {
code = getbits(self, 8);
if (code < 0)
return (code);
}
state->bytes_in_section = 0;
state->bits = 9;
state->section_end_code = (1 << state->bits) - 1;
state->free_ent = 257;
state->oldcode = -1;
return (next_code(self));
}
if (code > state->free_ent) {
archive_set_error(&(self->archive->archive), -1,
"Invalid compressed data");
return (ARCHIVE_FATAL);
}
if (code >= state->free_ent) {
*state->stackp++ = state->finbyte;
code = state->oldcode;
}
while (code >= 256) {
*state->stackp++ = state->suffix[code];
code = state->prefix[code];
}
*state->stackp++ = state->finbyte = code;
code = state->free_ent;
if (code < state->maxcode && state->oldcode >= 0) {
state->prefix[code] = state->oldcode;
state->suffix[code] = state->finbyte;
++state->free_ent;
}
if (state->free_ent > state->section_end_code) {
state->bits++;
state->bytes_in_section = 0;
if (state->bits == state->maxcode_bits)
state->section_end_code = state->maxcode;
else
state->section_end_code = (1 << state->bits) - 1;
}
state->oldcode = newcode;
return (ARCHIVE_OK);
}
static int
getbits(struct archive_read_source *self, int n)
{
struct private_data *state = (struct private_data *)self->data;
int code, ret;
static const int mask[] = {
0x00, 0x01, 0x03, 0x07, 0x0f, 0x1f, 0x3f, 0x7f, 0xff,
0x1ff, 0x3ff, 0x7ff, 0xfff, 0x1fff, 0x3fff, 0x7fff, 0xffff
};
const void *read_buf;
while (state->bits_avail < n) {
if (state->avail_in <= 0) {
read_buf = state->next_in;
ret = (self->upstream->read)(self->upstream, &read_buf);
state->next_in = read_buf;
if (ret < 0)
return (ARCHIVE_FATAL);
if (ret == 0)
return (ARCHIVE_EOF);
state->avail_in = ret;
}
state->bit_buffer |= *state->next_in++ << state->bits_avail;
state->avail_in--;
state->bits_avail += 8;
state->bytes_in_section++;
}
code = state->bit_buffer;
state->bit_buffer >>= n;
state->bits_avail -= n;
return (code & mask[n]);
}