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

#include "palette.h"
#include "debug.h"
#include "types.h"

Palette *
palette_clone(const Palette *p)
{
	Palette *res;

	/* TODO: better malloc (place list and num together) */
	res = malloc(sizeof(Palette));
	res->clist = malloc(p->num*sizeof(*p->clist));

	res->num = p->num;
	memcpy(res->clist, p->clist, p->num * sizeof(*p->clist));

	return res;
}

static char *
palette_intern_get_num(char *s, int *a)
{
	while (*s == ' ' || *s == '\t')
		++s;
	if (*s == '\n')
		*a = -1;
	else {
		*a = 0;
		while (*s >= '0' && *s <= '9') {
			*a = (*a) * 10;
			*a += (int) (*s-'0');
			++s;
		}
	}

	return s;
}

static uint8
palette_intern_get_color(char *s, Color *c)
{
	int a;
	char *st = s;

	st = palette_intern_get_num(st, &a);
	if (a < 0 || a > 255) return 1;
	c->r = a;

	st = palette_intern_get_num(st, &a);
	if (a < 0 || a > 255) return 1;
	c->g = a;

	st = palette_intern_get_num(st, &a);
	if (a < 0 || a > 255) return 1;
	c->b = a;

	return 0;
}

static uint
palette_intern_get_color_number(const char *s)
{
	FILE *fp;
	char line[1024];
	size_t len = 1024;
	uint ans = 0;

	fp = fopen(s, "r");
	while (fgets(line, len, fp)) {
		if (line[0] >= '0' && line[0] <= '9')
			++ans;
	}
	fclose(fp);

	return ans;
}

Palette *
palette_open_gpl(const char *p)
{
	/* TODO: check if file exists */
	/* TODO: better parsing */
	/* TODO: better malloc (place list and num together) */
	Palette *res;
	FILE *fp;
	Color *c;
	char line[1024];
	size_t len = 1024;

	res = malloc(sizeof(Palette));
	res->num = palette_intern_get_color_number(p);
	res->clist = malloc(res->num*sizeof(*res->clist));
	c = res->clist;

	fp = fopen(p, "r");
	while (fgets(line, len, fp)) {
		if (line[0] >= '0' && line[0] <= '9') {
			if (palette_intern_get_color(line, c)) {
				free(res->clist);
				free(res);
				return NULL;
			}
			c++;
		}
	}
	fclose(fp);

	return res;
}