/*
** v_pack.c
**
** These functions are used to pack and unpack various quantities to/from network
** packet buffers. They do not care about alignment, operating at byte level internally.
** The external byte-ordering used is big-endian (aka "network byte order") for all
** quantities larger than a single byte.
*/

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include "v_pack.h"

size_t vnp_raw_pack_uint8(void *buffer, uint8 data)
{
	*(uint8 *) buffer = data;

	return sizeof data;
}

size_t vnp_raw_unpack_uint8(const void *buffer, uint8 *data)
{
	*data = *(uint8 *) buffer;

	return sizeof *data;
}

size_t vnp_raw_pack_uint8_vector(void *buffer, const uint8 *data, unsigned int length)
{
	memcpy(buffer, data, length);
	return length;
}

size_t vnp_raw_unpack_uint8_vector(const void *buffer, uint8 *data, unsigned int length)
{
	memcpy(data, buffer, length);
	return length;
}

size_t vnp_raw_pack_uint16(void *buffer, uint16 data)
{
	*(uint8 *) buffer = (data & 0xFF00) >> 8;
	*((uint8 *) buffer + 1) = data & 0xFF;
	return sizeof data;
}

size_t vnp_raw_unpack_uint16(const void *buffer, uint16 *data)
{
	register const uint8	*b = buffer;
	register uint16	tmp;

	tmp = ((uint16) *b++) << 8;
	tmp |= (uint16) *b;
	*data = tmp;
	return sizeof *data;
}

size_t vnp_raw_pack_uint16_vector(void *buffer, const uint16 *data, unsigned int length)
{
	register uint8	*b = buffer;
	unsigned int i;
	for(i = 0; i < length; i++)
	{
		*b++ = (*data & 0xFF00) >> 8;
		*b++ = *data & 0xFF;
		data++;
	}
	return length * 2;
}

size_t vnp_raw_unpack_uint16_vector(const void *buffer, uint16 *data, unsigned int length)
{
	register const uint8	*b = buffer;
	uint16 *end;

	for(end = data + length; end != data; data++)
	{
		*data  = ((uint16) *b++) << 8;
		*data |= (uint16) *b++;
	}
	return length * 2;
}

size_t vnp_raw_pack_uint24(void *buffer, uint32 data)
{
	register uint8 *p = buffer;

	data >>= 8;
	*(p++) = (data >> 24) & 0xFF;
	*(p++) = (data >> 16) & 0xFF;
	*(p++) = (data >> 8)  & 0xFF;

	return 3;
}

size_t vnp_raw_unpack_uint24(const void *buffer, uint32 *data)
{
	register const uint8 *p = buffer;
	register uint32	tmp = 0;

	tmp |= ((uint32) *p++) << 24;
	tmp |= ((uint32) *p++) << 16;
	tmp |= ((uint32) *p++) << 8;
	tmp |= tmp >> 24;

	return 3;
}

size_t vnp_raw_pack_uint24_vector(void *buffer, const uint32 *data, unsigned int length)
{
	register uint8	*b = buffer;
	unsigned int i;

	for(i = 0; i < length; i++)
	{
		*b++ = (*data >> 24) & 0xFF;
		*b++ = (*data >> 16) & 0xFF;
		*b++ = (*data >> 8)  & 0xFF;
		data++;
	}
	return length * 3;
}

size_t vnp_raw_unpack_uint24_vector(const void *buffer, uint32 *data, unsigned int length)
{
	register const uint8	*b = buffer;
	register uint32		tmp;
	uint32 *end;
	for(end = data + length; end != data; data++)
	{
		tmp  = ((uint32) *b++) << 24;
		tmp |= ((uint32) *b++) << 16;
		tmp |= ((uint32) *b++) << 8;
		tmp |= tmp >> 24;
		*data = tmp;
	}
	return length * 3;
}

size_t vnp_raw_pack_uint32(void *buffer, uint32 data)
{
	register uint8	*b = buffer;

	*b++ = (data >> 24) & 0xFF;
	*b++ = (data >> 16) & 0xFF;
	*b++ = (data >> 8)  & 0xFF;
	*b++ = data & 0xFF;

	return sizeof data;
}

size_t vnp_raw_unpack_uint32(const void *buffer, uint32 *data)
{
	register const uint8	*b = buffer;

	*data  = ((uint32) *b++) << 24;
	*data |= ((uint32) *b++) << 16;
	*data |= ((uint32) *b++) << 8;
	*data |= *b;
	return sizeof *data;
}

size_t vnp_raw_pack_uint32_vector(void *buffer, const uint32 *data, unsigned int length)
{
	register uint8	*b = buffer;
	unsigned int i;

	for(i = 0; i < length; i++)
	{
		*b++ = (*data >> 24) & 0xFF;
		*b++ = (*data >> 16) & 0xFF;
		*b++ = (*data >> 8)  & 0xFF;
		*b++ = *data & 0xFF;
		data++;
	}
	return length * 4;
}

size_t vnp_raw_unpack_uint32_vector(const void *buffer, uint32 *data, unsigned int length)
{
	register const uint8	*b = buffer;
	uint32 *end;
	for(end = data + length; end != data; data++)
	{
		*data = ((uint32) *b++) << 24;
		*data |= ((uint32) *b++) << 16;
		*data |= ((uint32) *b++) << 8;
		*data |= ((uint32) *b++);
	}
	return length * 4;
}

size_t vnp_raw_pack_real32(void *buffer, real32 data)
{
	union { uint32 uint; real32 real; } punt;
	punt.real = data;
	return vnp_raw_pack_uint32(buffer, punt.uint);
}

size_t vnp_raw_unpack_real32(const void *buffer, real32 *data)
{
	return vnp_raw_unpack_uint32(buffer, (uint32 *) data);
}

size_t vnp_raw_pack_real32_vector(void *buffer, const real32 *data, unsigned int length)
{
	uint32 i;
	for(i = 0; i < length; i++)
		vnp_raw_pack_real32(&((uint8 *)buffer)[i * 4], data[i]);
	return length * 4;
}

size_t vnp_raw_unpack_real32_vector(const void *buffer, real32 *data, unsigned int length)
{
	uint32 i;
	for(i = 0; i < length; i++)
		vnp_raw_unpack_real32(&((uint8 *)buffer)[i * 4], &data[i]);
	return length * 4;
}

size_t vnp_raw_pack_real64(void *buffer, real64 data)
{
	union { uint32 uint[2]; real64 real; } punt;
	uint32	size;

	punt.real = data;
	size = vnp_raw_pack_uint32(buffer, punt.uint[0]);
	buffer = (uint8 *) buffer + size;
	size += vnp_raw_pack_uint32(buffer, punt.uint[1]);
	return size;
}

size_t vnp_raw_unpack_real64(const void *buffer, real64 *data)
{
	union { uint32 uint[2]; real64 real; } punt;
	uint32	size;

	size =  vnp_raw_unpack_uint32(buffer, &punt.uint[0]);
	size += vnp_raw_unpack_uint32(((uint8 *)buffer) + size, &punt.uint[1]);
	*data = punt.real;
	return size;
}

size_t vnp_raw_pack_real64_vector(void *buffer, const real64 *data, unsigned int length)
{
	uint32 i;
	for(i = 0; i < length; i++)
		vnp_raw_pack_real64(&((uint8 *)buffer)[i * 8], data[i]);
	return length * 8;
}

size_t vnp_raw_unpack_real64_vector(const void *buffer, real64 *data, unsigned int length)
{
	uint32 i;
	for(i = 0; i < length; i++)
		vnp_raw_unpack_real64(&((uint8 *)buffer)[i * 8], &data[i]);
	return length * 8;
}

size_t vnp_raw_pack_string(void *buffer, const char *string, size_t max_size)
{
	unsigned int i = 0;
	char *p = buffer;
	if(string != 0)
		for(; i < max_size && string[i] != 0; i++)
			p[i] = string[i];
	p[i] = 0;
	return ++i;
}

size_t vnp_raw_unpack_string(const void *buffer, char *string, size_t max_size, size_t max_size2)
{
	unsigned int i;
	const char *p = buffer;

	max_size--;
	max_size2--;
	for(i = 0; i < max_size && i < max_size2 && p[i] != 0; i++)
		string[i] = p[i];
	string[i] = 0;
	return ++i;
}

/* --------------------------------------------------------------------------------------------------- */

size_t vnp_pack_quat32(void *buffer, const VNQuat32 *data)
{
	uint8	*out = buffer;

	if(data == NULL)
		return 0;
	out += vnp_raw_pack_real32(out, data->x);
	out += vnp_raw_pack_real32(out, data->y);
	out += vnp_raw_pack_real32(out, data->z);
	out += vnp_raw_pack_real32(out, data->w);

	return out - (uint8 *) buffer;
}

size_t vnp_unpack_quat32(const void *buffer, VNQuat32 *data)
{
	const uint8	*in = buffer;

	if(data == NULL)
		return 0;
	in += vnp_raw_unpack_real32(in, &data->x);
	in += vnp_raw_unpack_real32(in, &data->y);
	in += vnp_raw_unpack_real32(in, &data->z);
	in += vnp_raw_unpack_real32(in, &data->w);

	return in - (uint8 *) buffer;
}

size_t vnp_pack_quat64(void *buffer, const VNQuat64 *data)
{
	uint8	*out = buffer;

	if(data == NULL)
		return 0;
	out += vnp_raw_pack_real64(out, data->x);
	out += vnp_raw_pack_real64(out, data->y);
	out += vnp_raw_pack_real64(out, data->z);
	out += vnp_raw_pack_real64(out, data->w);

	return out - (uint8 *) buffer;
}

size_t vnp_unpack_quat64(const void *buffer, VNQuat64 *data)
{
	const uint8	*in = buffer;

	if(data == NULL)
		return 0;
	in += vnp_raw_unpack_real64(in, &data->x);
	in += vnp_raw_unpack_real64(in, &data->y);
	in += vnp_raw_unpack_real64(in, &data->z);
	in += vnp_raw_unpack_real64(in, &data->w);

	return in - (uint8 *) buffer;
}

size_t vnp_pack_audio_block(void *buffer, VNABlockType type, const VNABlock *block)
{
	if(block == NULL)
		return 0;
	switch(type)
	{
		case VN_A_BLOCK_INT8:
			return vnp_raw_pack_uint8_vector(buffer, block->vint8, sizeof block->vint8 / sizeof *block->vint8);
		case VN_A_BLOCK_INT16:
			return vnp_raw_pack_uint16_vector(buffer, block->vint16, sizeof block->vint16 / sizeof *block->vint16);
		case VN_A_BLOCK_INT24:
			return vnp_raw_pack_uint24_vector(buffer, block->vint24, sizeof block->vint24 / sizeof *block->vint24);
		case VN_A_BLOCK_INT32:
			return vnp_raw_pack_uint32_vector(buffer, block->vint32, sizeof block->vint32 / sizeof *block->vint32);
		case VN_A_BLOCK_REAL32:
			return vnp_raw_pack_real32_vector(buffer, block->vreal32, sizeof block->vreal32 / sizeof *block->vreal32);
		case VN_A_BLOCK_REAL64:
			return vnp_raw_pack_real64_vector(buffer, block->vreal64, sizeof block->vreal64 / sizeof *block->vreal64);
	}
	return 0;
}

size_t vnp_unpack_audio_block(const void *buffer, VNABlockType type, VNABlock *block)
{
	if(block == NULL)
		return 0;
	switch(type)
	{
		case VN_A_BLOCK_INT8:
			return vnp_raw_unpack_uint8_vector(buffer, block->vint8, sizeof block->vint8 / sizeof *block->vint8);
		case VN_A_BLOCK_INT16:
			return vnp_raw_unpack_uint16_vector(buffer, block->vint16, sizeof block->vint16 / sizeof *block->vint16);
		case VN_A_BLOCK_INT24:
			return vnp_raw_unpack_uint24_vector(buffer, block->vint24, sizeof block->vint24 / sizeof *block->vint24);
		case VN_A_BLOCK_INT32:
			return vnp_raw_unpack_uint32_vector(buffer, block->vint32, sizeof block->vint32 / sizeof *block->vint32);
		case VN_A_BLOCK_REAL32:
			return vnp_raw_unpack_real32_vector(buffer, block->vreal32, sizeof block->vreal32 / sizeof *block->vreal32);
		case VN_A_BLOCK_REAL64:
			return vnp_raw_unpack_real64_vector(buffer, block->vreal64, sizeof block->vreal64 / sizeof *block->vreal64);
	}
	return 0;
}