/*
 * Chunk management functions.
 *
 * Copyright 2000-2012 Willy Tarreau <w@1wt.eu>
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version
 * 2 of the License, or (at your option) any later version.
 *
 */

#include <ctype.h>
#include <stdarg.h>
#include <stdio.h>
#include <string.h>

#include <haproxy/api.h>
#include <haproxy/buf.h>
#include <haproxy/chunk.h>
#include <haproxy/global.h>
#include <haproxy/tools.h>

/* trash chunks used for various conversions */
static THREAD_LOCAL struct buffer *trash_chunk;
static THREAD_LOCAL struct buffer trash_chunk1;
static THREAD_LOCAL struct buffer trash_chunk2;

/* trash buffers used for various conversions */
static int trash_size __read_mostly;
static THREAD_LOCAL char *trash_buf1;
static THREAD_LOCAL char *trash_buf2;

/* the trash pool for reentrant allocations */
struct pool_head *pool_head_trash __read_mostly = NULL;

/* this is used to drain data, and as a temporary buffer for sprintf()... */
THREAD_LOCAL struct buffer trash = { };

/* large trash chunks used for various conversions */
static THREAD_LOCAL struct buffer *large_trash_chunk;
static THREAD_LOCAL struct buffer large_trash_chunk1;
static THREAD_LOCAL struct buffer large_trash_chunk2;

/* large trash buffers used for various conversions */
static int large_trash_size __read_mostly = 0;
static THREAD_LOCAL char *large_trash_buf1 = NULL;
static THREAD_LOCAL char *large_trash_buf2 = NULL;

/* the trash pool for reentrant allocations */
struct pool_head *pool_head_large_trash __read_mostly = NULL;

/* this is used to drain data, and as a temporary large buffer */
THREAD_LOCAL struct buffer trash_large = { };

/* small trash chunks used for various conversions */
static THREAD_LOCAL struct buffer *small_trash_chunk;
static THREAD_LOCAL struct buffer small_trash_chunk1;
static THREAD_LOCAL struct buffer small_trash_chunk2;

/* small trash buffers used for various conversions */
static int small_trash_size __read_mostly = 0;
static THREAD_LOCAL char *small_trash_buf1 = NULL;
static THREAD_LOCAL char *small_trash_buf2 = NULL;

/* the trash pool for reentrant allocations */
struct pool_head *pool_head_small_trash __read_mostly = NULL;

/* this is used to drain data, and as a temporary small buffer */
THREAD_LOCAL struct buffer trash_small = { };

/*
* Returns a pre-allocated and initialized trash chunk that can be used for any
* type of conversion. Two chunks and their respective buffers are alternatively
* returned so that it is always possible to iterate data transformations without
* losing the data being transformed. The blocks are initialized to the size of
* a standard buffer, so they should be enough for everything. For convenience,
* a zero is always emitted at the beginning of the string so that it may be
* used as an empty string as well.
*/
struct buffer *get_trash_chunk(void)
{
	char *trash_buf;

	if (trash_chunk == &trash_chunk1) {
		trash_chunk = &trash_chunk2;
		trash_buf = trash_buf2;
	}
	else {
		trash_chunk = &trash_chunk1;
		trash_buf = trash_buf1;
	}
	*trash_buf = 0;
	chunk_init(trash_chunk, trash_buf, trash_size);
	return trash_chunk;
}

/* Similar to get_trash_chunk() but return a pre-allocated large chunk
 * instead. Because large buffers are not enabled by default, this function may
 * return NULL.
 */
struct buffer *get_large_trash_chunk(void)
{
	char *large_trash_buf;

	if (!large_trash_size)
		return NULL;

	if (large_trash_chunk == &large_trash_chunk1) {
		large_trash_chunk = &large_trash_chunk2;
		large_trash_buf = large_trash_buf2;
	}
	else {
		large_trash_chunk = &large_trash_chunk1;
		large_trash_buf = large_trash_buf1;
	}
	*large_trash_buf = 0;
	chunk_init(large_trash_chunk, large_trash_buf, large_trash_size);
	return large_trash_chunk;
}

/* Similar to get_trash_chunk() but returns a pre-allocated small chunk
 * instead. Because small buffers are not enabled by default, this function may
 * return NULL.
 */
struct buffer *get_small_trash_chunk(void)
{
	char *small_trash_buf;

	if (!small_trash_size)
		return NULL;

	if (small_trash_chunk == &small_trash_chunk1) {
		small_trash_chunk = &small_trash_chunk2;
		small_trash_buf = small_trash_buf2;
	}
	else {
		small_trash_chunk = &small_trash_chunk1;
		small_trash_buf = small_trash_buf1;
	}
	*small_trash_buf = 0;
	chunk_init(small_trash_chunk, small_trash_buf, small_trash_size);
	return small_trash_chunk;
}

/* Returns a trash chunk accordingly to the requested size. This function may
 * fail if the requested size is too big or if the large chubks are not
 * configured.
 */
struct buffer *get_trash_chunk_sz(size_t size)
{
	if (likely(size > small_trash_size && size <= trash_size))
		return get_trash_chunk();
	else if (small_trash_size && size <= small_trash_size)
		return get_small_trash_chunk();
	else if (large_trash_size && size <= large_trash_size)
		return get_large_trash_chunk();
	else
		return NULL;
}

/* Returns a larger buffer than <chk> if possible or NULL otherwise. If a larger
 * buffer is returned, content of <chk> are copied.
 */
struct buffer *get_larger_trash_chunk(struct buffer *chk)
{
	struct buffer *chunk = NULL;

	if (!chk || chk->size == small_trash_size) {
		/* no chunk or a small one, use a regular buffer */
		chunk = get_trash_chunk();
	}
	else if (large_trash_size && chk->size < large_trash_size) {
		/* a regular byffer, use a large buffer if possible */
		chunk = get_large_trash_chunk();
	}

	if (chk && chunk)
		b_xfer(chunk, chk, b_data(chk));

	return chunk;
}

/* (re)allocates the trash buffers. Returns 0 in case of failure. It is
 * possible to call this function multiple times if the trash size changes.
 */
static int alloc_trash_buffers(int bufsize)
{
	chunk_init(&trash, my_realloc2(trash.area, bufsize), bufsize);
	trash_size = bufsize;
	trash_buf1 = (char *)my_realloc2(trash_buf1, bufsize);
	trash_buf2 = (char *)my_realloc2(trash_buf2, bufsize);
	return trash.area && trash_buf1 && trash_buf2;
}

/* allocates the trash large buffers if necessary. Returns 0 in case of
 * failure. Unlike alloc_trash_buffers(), It is unexpected to call this function
 * multiple times. Large buffers are not used during configuration parsing.
 */
static int alloc_large_trash_buffers(int bufsize)
{
	large_trash_size = bufsize;
	if (!large_trash_size)
		return 1;

	BUG_ON(trash_large.area && large_trash_buf1 && large_trash_buf2);

	chunk_init(&trash_large, my_realloc2(trash_large.area, bufsize), bufsize);
	large_trash_buf1 = (char *)my_realloc2(large_trash_buf1, bufsize);
	large_trash_buf2 = (char *)my_realloc2(large_trash_buf2, bufsize);
	return trash_large.area && large_trash_buf1 && large_trash_buf2;
}

/* allocates the trash small buffers if necessary. Returns 0 in case of
 * failure. Unlike alloc_trash_buffers(), It is unexpected to call this function
 * multiple times. Small buffers are not used during configuration parsing.
 */
static int alloc_small_trash_buffers(int bufsize)
{
	small_trash_size = bufsize;
	if (!small_trash_size)
		return 1;

	BUG_ON(trash_small.area && small_trash_buf1 && small_trash_buf2);

	chunk_init(&trash_small, my_realloc2(trash_small.area, bufsize), bufsize);
	small_trash_buf1 = (char *)my_realloc2(small_trash_buf1, bufsize);
	small_trash_buf2 = (char *)my_realloc2(small_trash_buf2, bufsize);
	return trash_small.area && small_trash_buf1 && small_trash_buf2;
}

static int alloc_trash_buffers_per_thread()
{
	return (alloc_trash_buffers(global.tune.bufsize) &&
		alloc_large_trash_buffers(global.tune.bufsize_large) &&
		alloc_small_trash_buffers(global.tune.bufsize_small));
}

static void free_trash_buffers_per_thread()
{
	chunk_destroy(&trash);
	ha_free(&trash_buf2);
	ha_free(&trash_buf1);

	chunk_destroy(&trash_large);
	ha_free(&large_trash_buf2);
	ha_free(&large_trash_buf1);

	chunk_destroy(&trash_small);
	ha_free(&small_trash_buf2);
	ha_free(&small_trash_buf1);
}

/* Initialize the trash buffers. It returns 0 if an error occurred. */
int init_trash_buffers(int first)
{
	/* first, make sure we don't keep any trash in object in pools nor cache */
	if (pool_head_trash) {
		if (!(pool_debugging & POOL_DBG_NO_CACHE))
			pool_evict_from_local_cache(pool_head_trash, 1);
		pool_flush(pool_head_trash);
	}

	BUG_ON(!first && pool_used(pool_head_trash) > 0); /* we tried to keep a trash buffer after reinit the pool */
	pool_destroy(pool_head_trash);
	pool_head_trash = create_pool("trash",
				      sizeof(struct buffer) + global.tune.bufsize,
				      MEM_F_EXACT);
	if (!pool_head_trash || !alloc_trash_buffers(global.tune.bufsize))
		return 0;

	if (!first && global.tune.bufsize_large) {
		pool_head_large_trash = create_pool("large_trash",
						    sizeof(struct buffer) + global.tune.bufsize_large,
						    MEM_F_EXACT);
		if (!pool_head_large_trash)
			return 0;
	}

	if (!first && global.tune.bufsize_small) {
		pool_head_small_trash = create_pool("small_trash",
						    sizeof(struct buffer) + global.tune.bufsize_small,
						    MEM_F_EXACT);
		if (!pool_head_small_trash)
			return 0;
	}
	return 1;
}

/* This is called during STG_POOL to allocate trash buffers early. They will
 * be reallocated later once their final size is known. It returns 0 if an
 * error occurred.
 */
static int alloc_early_trash(void)
{
	return init_trash_buffers(1);
}

/*
 * Does an snprintf() at the beginning of chunk <chk>, respecting the limit of
 * at most chk->size chars. If the chk->len is over, nothing is added. Returns
 * the new chunk size, or < 0 in case of failure.
 */
int chunk_printf(struct buffer *chk, const char *fmt, ...)
{
	va_list argp;
	int ret;

	if (!chk->area || !chk->size)
		return 0;

	va_start(argp, fmt);
	ret = vsnprintf(chk->area, chk->size, fmt, argp);
	va_end(argp);

	if (ret >= chk->size)
		return -1;

	chk->data = ret;
	return chk->data;
}

/*
 * Does an snprintf() at the end of chunk <chk>, respecting the limit of
 * at most chk->size chars. If the chk->len is over, nothing is added. Returns
 * the new chunk size.
 */
int chunk_appendf(struct buffer *chk, const char *fmt, ...)
{
	va_list argp;
	size_t room;
	int ret;

	if (!chk->area || !chk->size)
		return 0;

	room = chk->size - chk->data;
	if (!room)
		return chk->data;

	va_start(argp, fmt);
	ret = vsnprintf(chk->area + chk->data, room, fmt, argp);
	if (ret >= room)
		/* do not copy anything in case of truncation */
		chk->area[chk->data] = 0;
	else
		chk->data += ret;
	va_end(argp);
	return chk->data;
}

/*
 * Encode chunk <src> into chunk <dst>, respecting the limit of at most
 * chk->size chars. Replace non-printable or special characters with "&#%d;".
 * If the chk->len is over, nothing is added. Returns the new chunk size.
 */
int chunk_htmlencode(struct buffer *dst, struct buffer *src)
{
	int i, l;
	int olen, free;
	char c;

	olen = dst->data;

	for (i = 0; i < src->data; i++) {
		free = dst->size - dst->data;

		if (!free) {
			dst->data = olen;
			return dst->data;
		}

		c = src->area[i];

		if (!isascii((unsigned char)c) || !isprint((unsigned char)c) || c == '&' || c == '"' || c == '\'' || c == '<' || c == '>') {
			l = snprintf(dst->area + dst->data, free, "&#%u;",
				     (unsigned char)c);

			if (free < l) {
				dst->data = olen;
				return dst->data;
			}

			dst->data += l;
		} else {
			dst->area[dst->data] = c;
			dst->data++;
		}
	}

	return dst->data;
}

/*
 * Encode chunk <src> into chunk <dst>, respecting the limit of at most
 * chk->size chars. Replace non-printable or char passed in qc with "<%02X>".
 * If the chk->len is over, nothing is added. Returns the new chunk size.
 */
int chunk_asciiencode(struct buffer *dst, struct buffer *src, char qc)
{
	int i, l;
	int olen, free;
	char c;

	olen = dst->data;

	for (i = 0; i < src->data; i++) {
		free = dst->size - dst->data;

		if (!free) {
			dst->data = olen;
			return dst->data;
		}

		c = src->area[i];

		if (!isascii((unsigned char)c) || !isprint((unsigned char)c) || c == '<' || c == '>' || c == qc) {
			l = snprintf(dst->area + dst->data, free, "<%02X>",
				     (unsigned char)c);

			if (free < l) {
				dst->data = olen;
				return dst->data;
			}

			dst->data += l;
		} else {
			dst->area[dst->data] = c;
			dst->data++;
		}
	}

	return dst->data;
}

/* Compares the string in chunk <chk> with the string in <str> which must be
 * zero-terminated. Return is the same as with strcmp(). Neither is allowed
 * to be null.
 */
int chunk_strcmp(const struct buffer *chk, const char *str)
{
	const char *s1 = chk->area;
	int len = chk->data;
	int diff = 0;

	do {
		if (--len < 0) {
			diff = (unsigned char)0 - (unsigned char)*str;
			break;
		}
		diff = (unsigned char)*(s1++) - (unsigned char)*(str++);
	} while (!diff);
	return diff;
}

/* Case-insensitively compares the string in chunk <chk> with the string in
 * <str> which must be zero-terminated. Return is the same as with strcmp().
 * Neither is allowed to be null.
 */
int chunk_strcasecmp(const struct buffer *chk, const char *str)
{
	const char *s1 = chk->area;
	int len = chk->data;
	int diff = 0;

	do {
		if (--len < 0) {
			diff = (unsigned char)0 - (unsigned char)*str;
			break;
		}
		diff = (unsigned char)*s1 - (unsigned char)*str;
		if (unlikely(diff)) {
			unsigned int l = (unsigned char)*s1;
			unsigned int r = (unsigned char)*str;

			l -= 'a';
			r -= 'a';

			if (likely(l <= (unsigned char)'z' - 'a'))
				l -= 'a' - 'A';
			if (likely(r <= (unsigned char)'z' - 'a'))
				r -= 'a' - 'A';
			diff = l - r;
		}
		s1++; str++;
	} while (!diff);
	return diff;
}

INITCALL0(STG_POOL, alloc_early_trash);
REGISTER_PER_THREAD_ALLOC(alloc_trash_buffers_per_thread);
REGISTER_PER_THREAD_FREE(free_trash_buffers_per_thread);
REGISTER_POST_DEINIT(free_trash_buffers_per_thread);

/*
 * Local variables:
 *  c-indent-level: 8
 *  c-basic-offset: 8
 * End:
 */
