/**
 * mds — A micro-display server
 * Copyright © 2014, 2015, 2016, 2017  Mattias Andrée (maandree@kth.se)
 * 
 * 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 3 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
#include "parse-error.h"

#include "paths.h"

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



/**
 * Print information about a parsing error
 * 
 * @param  this    The error structure
 * @param  output  The output file
 * @param  desc    The description of the error
 */
static void
print(const mds_kbdc_parse_error_t *restrict this, FILE *restrict output, const char *restrict desc)
{
	size_t i, n, start = 0, end = 0;
	const char *restrict code = this->code;
	char *restrict path = relpath(this->pathname, NULL);

	/* Convert bytes count to character count for the code position. */
	for (i = 0, n = this->start; i < n; i++)
		if ((code[i] & 0xC0) != 0x80)
			start++;
	for (n = this->end; i < n; i++)
		if ((code[i] & 0xC0) != 0x80)
			end++;
	end += start;

	/* Print error information. */
	fprintf(output, "\033[01m%s\033[21m:", path ? path : this->pathname);
	free(path);
	if (this->error_is_in_file)
		fprintf(output, "%zu:%zu–%zu:", this->line + 1, start, end);
	switch (this->severity) {
	case MDS_KBDC_PARSE_ERROR_NOTE:           fprintf(output, " \033[01;36mnote:\033[00m ");           break;
	case MDS_KBDC_PARSE_ERROR_WARNING:        fprintf(output, " \033[01;35mwarning:\033[00m ");        break;
	case MDS_KBDC_PARSE_ERROR_ERROR:          fprintf(output, " \033[01;31merror:\033[00m ");          break;
	case MDS_KBDC_PARSE_ERROR_INTERNAL_ERROR: fprintf(output, " \033[01;31minternal error:\033[00m "); break;
	default:
		abort();
		break;
	}
	if (this->error_is_in_file) {
		fprintf(output, "%s\n %s\n \033[01;32m", desc, code);
		i = 0;
		for (n = start; i < n; i++) fputc(' ', output);
		for (n = end;   i < n; i++) fputc('^', output);
	} else {
		fprintf(output, "%s\n", desc);
	}
	fprintf(output, "\033[00m\n");
}


/**
 * Print information about a parsing error
 * 
 * @param  this    The error structure
 * @param  output  The output file
 */
void
mds_kbdc_parse_error_print(const mds_kbdc_parse_error_t *restrict this, FILE *restrict output)
{
	size_t n;
	char *desc;
	char *dend = this->description + strlen(this->description);
	char *dstart;
	char *dptr;
	char *p;
	char *q;

	/* Count the number points in the description we should modify to format it. */
	for (p = this->description, n = 0;;) {
		if (!(q = strstr(p, "‘")))
			q = dend;
		if (!(p = strstr(p, "’")))
			p = dend;
		if (q < p)
			p = q;
		if (*p++)
			n++;
		else
			break;
	}

	/* Allocate string for the formatted description. */
	n = 1 + strlen(this->description) + strlen("\033[xxm’") * n;
	dptr = desc = alloca(n * sizeof(char));

	/* Format description. */
	for (p = this->description;;) {
		dstart = p;
		if (!(q = strstr(p, "‘")))
			q = dend;
		if (!(p = strstr(p, "’")))
			p = dend;
		if (q < p)
			p = q;
		if ((n = (size_t)(p - dstart)))
			memcpy(dptr, dstart, n), dptr += n;
		if (p == dend)
			break;
		if (strstr(p, "‘") == p)
			dptr += sprintf(dptr, "\033[01m‘"), p += strlen("‘");
		else
			dptr += sprintf(dptr, "’\033[21m"), p += strlen("’");
	}
	*dptr = '\0';

	/* Print the error. */
	print(this, output, desc);
}



/**
 * Release all resources allocated in a `mds_kbdc_parse_error_t*`
 * 
 * @param  this  The error structure
 */
void
mds_kbdc_parse_error_destroy(mds_kbdc_parse_error_t *restrict this)
{
	if (!this)
		return;
	free(this->pathname),    this->pathname    = NULL;
	free(this->code),        this->code        = NULL;
	free(this->description), this->description = NULL;
}


/**
 * Release all resources allocated in a `mds_kbdc_parse_error_t*`
 * and release the allocation of the structure itself
 * 
 * @param  this  The error structure
 */
void
mds_kbdc_parse_error_free(mds_kbdc_parse_error_t *restrict this)
{
	mds_kbdc_parse_error_destroy(this);
	free(this);
}


/**
 * Release all resources allocated in a `NULL`-terminated group
 * of `mds_kbdc_parse_error_t*`:s
 * 
 * @param  this  The group of error structures
 */
void
mds_kbdc_parse_error_destroy_all(mds_kbdc_parse_error_t **restrict these)
{
	mds_kbdc_parse_error_t *restrict that;
	if (!these)
		return;
	while ((that = *these))
		mds_kbdc_parse_error_free(that), *these++ = NULL;
}


/**
 * Release all resources allocated in a `NULL`-terminated group of
 * `mds_kbdc_parse_error_t*`:s and release the allocation of the group itself
 * 
 * @param  this  The group of error structures
 */
void
mds_kbdc_parse_error_free_all(mds_kbdc_parse_error_t**restrict these)
{
	mds_kbdc_parse_error_destroy_all(these);
	free(these);
}