ref: e7ec1e13f5e1814f647bcbc18e73eb6be5ce4f16
dir: /3rd/brieflz/brieflz_sliding.h/
//
// BriefLZ - small fast Lempel-Ziv
//
// Lazy parsing with a sliding window of previous positions
//
// Copyright (c) 2016-2020 Joergen Ibsen
//
// This software is provided 'as-is', without any express or implied
// warranty. In no event will the authors be held liable for any damages
// arising from the use of this software.
//
// Permission is granted to anyone to use this software for any purpose,
// including commercial applications, and to alter it and redistribute it
// freely, subject to the following restrictions:
//
// 1. The origin of this software must not be misrepresented; you must
// not claim that you wrote the original software. If you use this
// software in a product, an acknowledgment in the product
// documentation would be appreciated but is not required.
//
// 2. Altered source versions must be plainly marked as such, and must
// not be misrepresented as being the original software.
//
// 3. This notice may not be removed or altered from any source
// distribution.
//
#ifndef BRIEFLZ_SLIDING_H_INCLUDED
#define BRIEFLZ_SLIDING_H_INCLUDED
static size_t
blz_sliding_workmem_size(size_t src_size, int window_log)
{
(void) src_size;
assert(window_log > 0 && window_log < blz_log2(BLZ_WORD_MAX));
return (LOOKUP_SIZE + ((size_t) 1 << window_log)) * sizeof(blz_word);
}
// Lazy parsing with a sliding window of previous positions.
//
// Like blz_pack_hashchain, but the buffer of previous positions is limited to
// a sliding window of 1 << window_log bytes.
//
static unsigned long
blz_pack_sliding(const void *src, void *dst, unsigned long src_size, void *workmem,
const int window_log, const unsigned long max_depth,
const unsigned long accept_len)
{
struct blz_state bs;
blz_word *const lookup = (blz_word *) workmem;
blz_word *const prev = lookup + LOOKUP_SIZE;
const unsigned char *const in = (const unsigned char *) src;
const unsigned long last_match_pos = src_size > 4 ? src_size - 4 : 0;
const unsigned long window_size = 1UL << window_log;
const unsigned long window_mask = window_size - 1;
unsigned long hash_pos = 0;
unsigned long cur = 0;
assert(src_size < BLZ_WORD_MAX);
// Check for empty input
if (src_size == 0) {
return 0;
}
bs.next_out = (unsigned char *) dst;
// First byte verbatim
*bs.next_out++ = in[0];
// Check for 1 byte input
if (src_size == 1) {
return 1;
}
// Initialize first tag
bs.tag_out = bs.next_out;
bs.next_out += 2;
bs.tag = 0;
bs.bits_left = 16;
// Initialize lookup
for (unsigned long i = 0; i < LOOKUP_SIZE; ++i) {
lookup[i] = NO_MATCH_POS;
}
// Main compression loop
for (cur = 1; cur <= last_match_pos; ) {
const unsigned long window_limit = cur >= window_size ? cur - (window_size - 1) : 0;
if (hash_pos < window_limit) {
hash_pos = window_limit;
}
// Update lookup and prev up to current position
while (hash_pos < cur) {
const unsigned long hash = blz_hash4(&in[hash_pos]);
prev[hash_pos & window_mask] = lookup[hash];
lookup[hash] = hash_pos;
hash_pos++;
}
unsigned long best_pos = NO_MATCH_POS;
unsigned long best_len = 0;
// Look up first match for current position
unsigned long pos = lookup[blz_hash4(&in[cur])];
// Drop matches outside window. Technically this is not
// necessary, but it guarantees match positions are limited
// to the window size.
if (pos < window_limit) {
pos = NO_MATCH_POS;
}
const unsigned long len_limit = src_size - cur;
unsigned long num_chain = max_depth;
// Check matches
while (pos != NO_MATCH_POS && num_chain--) {
unsigned long len = 0;
// If next byte matches, so this has a chance to be a longer match
if (best_len < len_limit
&& in[pos + best_len] == in[cur + best_len]) {
// Find match len
while (len < len_limit && in[pos + len] == in[cur + len]) {
++len;
}
}
assert(cur - pos < window_size);
// Update best match
if (blz_match_better(cur, pos, len, best_pos, best_len)) {
best_pos = pos;
best_len = len;
if (best_len >= accept_len) {
break;
}
}
assert(prev[pos & window_mask] == NO_MATCH_POS || prev[pos & window_mask] < pos);
// Go to previous match
pos = prev[pos & window_mask];
if (pos < window_limit) {
pos = NO_MATCH_POS;
}
}
// Check if match at next position is better
if (best_len > 3 && best_len < accept_len && cur < last_match_pos) {
// Update lookup up to next position
const unsigned long hash = blz_hash4(&in[hash_pos]);
prev[hash_pos & window_mask] = lookup[hash];
lookup[hash] = hash_pos;
hash_pos++;
// Look up first match for next position
unsigned long next_pos = lookup[blz_hash4(&in[cur + 1])];
if (next_pos <= window_limit) {
next_pos = NO_MATCH_POS;
}
const unsigned long next_len_limit = src_size - (cur + 1);
num_chain = max_depth;
// Check matches
while (next_pos != NO_MATCH_POS && num_chain--) {
unsigned long next_len = 0;
// Check match
if (best_len - 1 < next_len_limit
&& in[next_pos + best_len - 1] == in[cur + 1 + best_len - 1]) {
while (next_len < next_len_limit
&& in[next_pos + next_len] == in[cur + 1 + next_len]) {
++next_len;
}
}
assert(cur + 1 - next_pos < window_size);
if (next_len >= best_len) {
// Replace with next match if it extends backwards
if (next_pos > 0 && in[next_pos - 1] == in[cur]) {
if (blz_match_better(cur, next_pos - 1, next_len + 1, best_pos, best_len)) {
best_pos = next_pos - 1;
best_len = next_len + 1;
}
}
else {
// Drop current match if next match is better
if (blz_next_match_better(cur, next_pos, next_len, best_pos, best_len)) {
best_len = 0;
break;
}
}
}
assert(prev[next_pos & window_mask] == NO_MATCH_POS || prev[next_pos & window_mask] < next_pos);
// Go to previous match
next_pos = prev[next_pos & window_mask];
if (next_pos <= window_limit) {
next_pos = NO_MATCH_POS;
}
}
}
// Output match or literal
if (best_len > 4 || (best_len == 4 && cur - best_pos - 1 < 0x3FE00UL)) {
const unsigned long offs = cur - best_pos - 1;
// Output match tag
blz_putbit(&bs, 1);
// Output match length
blz_putgamma(&bs, best_len - 2);
// Output match offset
blz_putgamma(&bs, (offs >> 8) + 2);
*bs.next_out++ = offs & 0x00FF;
cur += best_len;
}
else {
// Output literal tag
blz_putbit(&bs, 0);
// Copy literal
*bs.next_out++ = in[cur++];
}
}
// Output any remaining literals
while (cur < src_size) {
// Output literal tag
blz_putbit(&bs, 0);
// Copy literal
*bs.next_out++ = in[cur++];
}
// Trailing one bit to delimit any literal tags
blz_putbit(&bs, 1);
// Shift last tag into position and store
bs.tag <<= bs.bits_left;
bs.tag_out[0] = bs.tag & 0x00FF;
bs.tag_out[1] = (bs.tag >> 8) & 0x00FF;
// Return compressed size
return (unsigned long) (bs.next_out - (unsigned char *) dst);
}
#endif /* BRIEFLZ_SLIDING_H_INCLUDED */