#include <stdlib.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <ctype.h>
#include <sys/types.h>

#include "class.h"
#include "http/request_parser.h"
#include "interface/class.h"
#include "interface/stream_reader.h"
//#include "http/request.h"
//#include "http/request_queue.h"

static
void
httpRequestParserParse(HttpRequestParser);

static
void
ctor(void * _this, va_list * params)
{
	HttpRequestParser this = _this;

	//this->request_queue = va_arg(*params, HttpRequestQueue);

	this->buffer = malloc(HTTP_REQUEST_PARSER_READ_CHUNK);
	this->buffer[0] = 0;
}

static
void
dtor(void * _this)
{
	HttpRequestParser this = _this;

	free(this->buffer);
} 

static
void
_clone(void * _this, void * _base)
{
	HttpRequestParser this = _this;
	HttpRequestParser base = _base;
	size_t            chunks;

	//this->request_queue = base->request_queue;
	this->buffer_used   = base->buffer_used;

	chunks = this->buffer_used / HTTP_REQUEST_PARSER_READ_CHUNK;
	chunks++;

	this->buffer = malloc(chunks * HTTP_REQUEST_PARSER_READ_CHUNK);
	memcpy(this->buffer, base->buffer, this->buffer_used);
}

static
size_t
get_data(void * _this, int fd)
{
	HttpRequestParser this = _this;
	size_t            remaining, chunks;
	char              buffer[1024];

	size_t size = read(fd, buffer, 1024);

	if (0 < size) {
		remaining = this->buffer_used % HTTP_REQUEST_PARSER_READ_CHUNK;
		chunks    = this->buffer_used / HTTP_REQUEST_PARSER_READ_CHUNK;

		/**
		 * because a division always rounds down
		 * chunks holds exactly the currently allocated chunks if
		 * remaining equals 0 but there is no space left.
		 * Else chunks holds the actually allocated amount of chunks
		 * minus 1.
		 * For this reason chunks always has to be increased by 1.
		 */
		chunks++;

		if (size >= remaining) {
			this->buffer =
				realloc(this->buffer, chunks * HTTP_REQUEST_PARSER_READ_CHUNK);
		}

		memcpy(this->buffer + this->buffer_used, buffer, size);
		this->buffer_used += size;
		this->buffer[this->buffer_used] = 0;

		httpRequestParserParse(this);
	}

	return size;
}

INIT_IFACE(Class, ctor, dtor, _clone);
INIT_IFACE(StreamReader, get_data);
CREATE_CLASS(HttpRequestParser, NULL, IFACE(Class), IFACE(StreamReader));

static
inline
int
httpRequestLineGet(HttpRequestParser this, char ** line)
{
	char * line_end = strstr(this->buffer, "\r\n");

	if (NULL == line_end) {
		*line = NULL;
		return -1;
	}

	*line_end = 0;
	*line = malloc(strlen(this->buffer) + 1);
	strcpy(*line, this->buffer);

	line_end+=2;

	memmove(this->buffer,
			line_end,
			this->buffer_used - (line_end-this->buffer) + 1);

	this->buffer_used -= line_end-this->buffer;

	return line_end-this->buffer-2;
}

static
inline
void
httpRequestSkip(HttpRequestParser this)
{
	size_t skip;

	for (skip = 0;
			0 != this->buffer[skip]
			&& ! isalpha(this->buffer[skip])
			&& this->buffer_used > skip;
			skip++);

	memmove(this->buffer,
			&this->buffer[skip],
			this->buffer_used - skip + 1);

	this->buffer_used -= skip;
}

static
void
httpRequestParserParse(HttpRequestParser this)
{
	//static HttpRequest request  = NULL;
	char *             line;
	int                cont = 1;
	int                length;

	//if(NULL == HttpRequest) {
	//	request = new(HttpRequest);
	//}

	while(cont) {
		switch(this->state) {
			case HTTP_REQUEST_GARBAGE:
				puts("==skip garbage==");
				httpRequestSkip(this);

				this->state = HTTP_REQUEST_START;
				break;

			case HTTP_REQUEST_START:
				puts("==request line==");
				if (-1 == httpRequestLineGet(this, &line)) {
					cont = 0;
					break;
				}

				printf("%s\n", line);
				free(line);
				this->state = HTTP_REQUEST_REQEUST_LINE_DONE;
				break;

			case HTTP_REQUEST_REQEUST_LINE_DONE:
				puts("==read header==");
				if (-1 == (length = httpRequestLineGet(this, &line))) {
					cont = 0;
					break;
				}

				if (0 == length) {
					free(line);
					this->state = HTTP_REQUEST_HEADERS_DONE;
					break;
				}

				printf("%s\n", line);
				free(line);
				break;

			case HTTP_REQUEST_HEADERS_DONE:
				puts("==headers done==");
				this->state = HTTP_REQUEST_DONE;
				break;

			case HTTP_REQUEST_DONE:
				puts("==request done==");

				if (0 == this->buffer_used) {
					cont = 0;
				}

				break;

			default:
				break;
		}
	}
}

// vim: set ts=4 sw=4: