blob: 56070e28ac5c09ce04188c8102368c6db3184131 [file] [log] [blame]
/*
* 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 <common/config.h>
#include <common/chunk.h>
#include <common/standard.h>
#include <types/global.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;
static THREAD_LOCAL char *trash_buf1;
static THREAD_LOCAL char *trash_buf2;
/* the trash pool for reentrant allocations */
struct pool_head *pool_head_trash = NULL;
/* this is used to drain data, and as a temporary buffer for sprintf()... */
THREAD_LOCAL struct buffer trash = { };
/*
* 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;
}
/* (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;
}
static int init_trash_buffers_per_thread()
{
return alloc_trash_buffers(global.tune.bufsize);
}
static void deinit_trash_buffers_per_thread()
{
chunk_destroy(&trash);
free(trash_buf2);
free(trash_buf1);
trash_buf2 = NULL;
trash_buf1 = NULL;
}
/* Initialize the trash buffers. It returns 0 if an error occurred. */
int init_trash_buffers(int first)
{
if (!first) {
hap_register_per_thread_init(init_trash_buffers_per_thread);
hap_register_per_thread_deinit(deinit_trash_buffers_per_thread);
}
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;
return 1;
}
/*
* free the trash buffers
*/
void deinit_trash_buffers(void)
{
pool_destroy(pool_head_trash);
}
/*
* Allocate a trash chunk from the reentrant pool. The buffer starts at the
* end of the chunk. This chunk must be freed using free_trash_chunk(). This
* call may fail and the caller is responsible for checking that the returned
* pointer is not NULL.
*/
struct buffer *alloc_trash_chunk(void)
{
struct buffer *chunk;
chunk = pool_alloc(pool_head_trash);
if (chunk) {
char *buf = (char *)chunk + sizeof(struct buffer);
*buf = 0;
chunk_init(chunk, buf,
pool_head_trash->size - sizeof(struct buffer));
}
return chunk;
}
/*
* 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);
chk->data = ret;
if (ret >= chk->size)
ret = -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;
int ret;
if (chk->data < 0 || !chk->area || !chk->size)
return 0;
va_start(argp, fmt);
ret = vsnprintf(chk->area + chk->data, chk->size - chk->data, fmt,
argp);
if (ret >= chk->size - chk->data)
/* 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 chracters 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;
if (dst->data < 0)
return dst->data;
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(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;
if (dst->data < 0)
return dst->data;
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(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;
}
/*
* Local variables:
* c-indent-level: 8
* c-basic-offset: 8
* End:
*/