#include "fitz.h"
#include "muxps.h"

#include <ctype.h> /* for toupper() */

void
xps_set_color(xps_context *ctx, fz_colorspace *colorspace, float *samples)
{
	int i;
	ctx->colorspace = colorspace;
	for (i = 0; i < colorspace->n; i++)
		ctx->color[i] = samples[i + 1];
	ctx->alpha = samples[0] * ctx->opacity[ctx->opacity_top];
}

static int unhex(int chr)
{
	const char *hextable = "0123456789ABCDEF";
	return strchr(hextable, (toupper(chr))) - hextable;
}

static int count_commas(char *s)
{
	int n = 0;
	while (*s)
	{
		if (*s == ',')
			n ++;
		s ++;
	}
	return n;
}

void
xps_parse_color(xps_context *ctx, char *base_uri, char *string,
		fz_colorspace **csp, float *samples)
{
	char *p;
	int i, n;
	char buf[1024];
	char *profile;

	*csp = fz_devicergb;

	samples[0] = 1.0;
	samples[1] = 0.0;
	samples[2] = 0.0;
	samples[3] = 0.0;

	if (string[0] == '#')
	{
		if (strlen(string) == 9)
		{
			samples[0] = unhex(string[1]) * 16 + unhex(string[2]);
			samples[1] = unhex(string[3]) * 16 + unhex(string[4]);
			samples[2] = unhex(string[5]) * 16 + unhex(string[6]);
			samples[3] = unhex(string[7]) * 16 + unhex(string[8]);
		}
		else
		{
			samples[0] = 255.0;
			samples[1] = unhex(string[1]) * 16 + unhex(string[2]);
			samples[2] = unhex(string[3]) * 16 + unhex(string[4]);
			samples[3] = unhex(string[5]) * 16 + unhex(string[6]);
		}

		samples[0] /= 255.0;
		samples[1] /= 255.0;
		samples[2] /= 255.0;
		samples[3] /= 255.0;
	}

	else if (string[0] == 's' && string[1] == 'c' && string[2] == '#')
	{
		if (count_commas(string) == 2)
			sscanf(string, "sc#%g,%g,%g", samples + 1, samples + 2, samples + 3);
		if (count_commas(string) == 3)
			sscanf(string, "sc#%g,%g,%g,%g", samples, samples + 1, samples + 2, samples + 3);
	}

	else if (strstr(string, "ContextColor ") == string)
	{
		/* Crack the string for profile name and sample values */
		strcpy(buf, string);

		profile = strchr(buf, ' ');
		if (!profile)
		{
			fz_warn("cannot find icc profile uri in '%s'", string);
			return;
		}

		*profile++ = 0;
		p = strchr(profile, ' ');
		if (!p)
		{
			fz_warn("cannot find component values in '%s'", profile);
			return;
		}

		*p++ = 0;
		n = count_commas(p) + 1;
		i = 0;
		while (i < n)
		{
			samples[i++] = atof(p);
			p = strchr(p, ',');
			if (!p)
				break;
			p ++;
			if (*p == ' ')
				p ++;
		}
		while (i < n)
		{
			samples[i++] = 0.0;
		}

		*csp = xps_read_icc_colorspace(ctx, base_uri, profile);
		if (!*csp)
		{
			/* Default fallbacks if the ICC stuff fails */
			switch (n)
			{
			case 2: *csp = fz_devicegray; break; /* alpha + tint */
			case 4: *csp = fz_devicergb; break; /* alpha + RGB */
			case 5: *csp = fz_devicecmyk; break; /* alpha + CMYK */
			default: *csp = fz_devicegray; break;
			}
		}
	}
}

fz_colorspace *
xps_read_icc_colorspace(xps_context *ctx, char *base_uri, char *profilename)
{
#if 0
	fz_colorspace *space;
	xps_part *part;
	char partname[1024];

	/* Find ICC colorspace part */
	xps_absolute_path(partname, base_uri, profilename, sizeof partname);

	/* See if we cached the profile */
	space = xps_hash_lookup(ctx->colorspace_table, partname);
	if (!space)
	{
		part = xps_read_part(ctx, partname);

		/* Problem finding profile. Don't fail, just use default */
		if (!part) {
			fz_warn("cannot find icc profile part: %s", partname);
			return NULL;
		}

		/* Create the profile */
		profile = gsicc_profile_new(NULL, ctx->memory, NULL, 0);

		/* Set buffer */
		profile->buffer = part->data;
		profile->buffer_size = part->size;

		/* Parse */
		gsicc_init_profile_info(profile);

		/* Problem with profile. Don't fail, just use the default */
		if (profile->profile_handle == NULL)
		{
			gsicc_profile_reference(profile, -1);
			fz_warn("there was a problem with the profile: %s", partname);
			return NULL;
		}

		/* Create a new colorspace and associate with the profile */
		gs_cspace_build_ICC(&space, NULL, ctx->memory);
		space->cmm_icc_profile_data = profile;

		/* Steal the buffer data before freeing the part */
		part->data = NULL;
		xps_free_part(ctx, part);

		/* Add colorspace to xps color cache. */
		xps_hash_insert(ctx, ctx->colorspace_table, fz_strdup(partname), space);
	}

	return space;
#else
	return NULL;
#endif
}