#include <stdlib.h>
#include <string.h>
#include <glib.h>
#include <bl/bl.h>
#include "bookloupe.h"
#include "pending.h"

/*
 * print_pending:
 *
 * If we are in a state of unbalanced quotes, and this line
 * doesn't begin with a quote, output the stored error message.
 * If the -p switch was used, print the warning even if the
 * new para starts with quotes.
 */
void print_pending(const char *aline,const char *parastart,
  struct pending *pending)
{
    if (aline)
	while (g_unichar_isspace(g_utf8_get_char(aline)))
	    aline=g_utf8_next_char(aline);
    if (pending->illustration.warning_text)
    {
	if (aline)
	{
	    if (pswit[ECHO_SWITCH] && !pending->illustration.queried_line)
		pending->illustration.queried_line=g_strdup(parastart);
	}
	else
	{
	    if (!pswit[OVERVIEW_SWITCH])
	    {
		if (pending->illustration.queried_line)
		    g_print("\n%s\n",pending->illustration.queried_line);
		g_print("%s\n",pending->illustration.warning_text);
	    }
	    else
		cnt_brack++;
	    g_free(pending->illustration.warning_text);
	    pending->illustration.warning_text=NULL;
	    g_free(pending->illustration.queried_line);
	    pending->illustration.queried_line=NULL;
	}
    }
    if (pending->quote)
    {
	if (!pending->continuing_quote || !aline ||
	  !g_str_has_prefix(aline,pending->continuing_quote))
	{
	    if (!pswit[OVERVIEW_SWITCH])
	    {
		if (pswit[ECHO_SWITCH])
		    g_print("\n%s\n",parastart);
		g_print("%s\n",pending->quote);
	    }
	    else
		cnt_quote++;
	}
	g_free(pending->quote);
	pending->quote=NULL;
    }
    g_free(pending->continuing_quote);
    pending->continuing_quote=NULL;
    if (pending->rbrack)
    {
	if (!pswit[OVERVIEW_SWITCH])
	{
	    if (pswit[ECHO_SWITCH])
		g_print("\n%s\n",parastart);
	    g_print("%s\n",pending->rbrack);
	}
	else
	    cnt_brack++;
	g_free(pending->rbrack);
	pending->rbrack=NULL;
    }
    if (pending->sbrack)
    {
	if (!pswit[OVERVIEW_SWITCH])
	{
	    if (pswit[ECHO_SWITCH])
		g_print("\n%s\n",parastart);
	    g_print("%s\n",pending->sbrack);
	}
	else
	    cnt_brack++;
	g_free(pending->sbrack);
	pending->sbrack=NULL;
    }
    if (pending->cbrack)
    {
	if (!pswit[OVERVIEW_SWITCH])
	{
	    if (pswit[ECHO_SWITCH])
		g_print("\n%s\n",parastart);
	    g_print("%s\n",pending->cbrack);
	}
	else
	    cnt_brack++;
	g_free(pending->cbrack);
	pending->cbrack=NULL;
    }
    if (pending->unders)
    {
	if (!pswit[OVERVIEW_SWITCH])
	{
	    if (pswit[ECHO_SWITCH])
		g_print("\n%s\n",parastart);
	    g_print("%s\n",pending->unders);
	}
	else
	    cnt_brack++;
	g_free(pending->unders);
	pending->unders=NULL;
    }
}

void reset_pending(struct pending *pending)
{
    memset(pending,0,sizeof(*pending));
}

/*
 * check_for_mismatched_quotes:
 *
 * At end of paragraph, check for mismatched quotes.
 *
 * We don't want to report an error immediately, since it is a
 * common convention to omit the quotes at end of paragraph if
 * the next paragraph is a continuation of the same speaker.
 * Where this is the case, the next para should begin with a
 * quote, so we store the warning message and only display it
 * at the top of the next iteration if the new para doesn't
 * start with a quote.
 * The -p switch overrides this default, and warns of unclosed
 * quotes on _every_ paragraph, whether the next begins with a
 * quote or not.
 */
void check_for_mismatched_quotes(struct counters *counters,
  struct pending *pending)
{
    gboolean all_single;
    gunichar c;
    int difference;
    const char *quote_type;
    GString *str;
    if (counters->open_quotes)
    {
	str=g_string_new(NULL);
	counters->open_quotes=g_slist_reverse(counters->open_quotes);
	all_single=TRUE;
	while(counters->open_quotes)
	{
	    c=GPOINTER_TO_INT(counters->open_quotes->data);
	    if (!CHAR_IS_SQUOTE(c))
		all_single=FALSE;
	    g_string_append_unichar(str,c);
	    counters->open_quotes=g_slist_delete_link(counters->open_quotes,
	      counters->open_quotes);
	}
	pending->continuing_quote=g_string_free(str,FALSE);
	if (all_single)
	    quote_type="singlequotes?";
	else
	    quote_type="quotes";
	pending->quote=g_strdup_printf("    Line %ld - Mismatched %s",linecnt,
	  quote_type);
    }
    difference=matching_difference(counters,COUNTER_ILLUSTRATION);
    if (difference)
    {
	if (difference<0 && pending->illustration.warning_text)
	{
	    difference++;
	    g_free(pending->illustration.queried_line);
	    pending->illustration.queried_line=NULL;
	    g_free(pending->illustration.warning_text);
	    pending->illustration.warning_text=NULL;
	}
	if (difference<0)
	{
	    increment_matching(counters,CHAR_OPEN_SBRACK,FALSE);
	    difference++;
	}
	if (difference)
	{
	    if (pending->illustration.warning_text)
	    {
		if (!pswit[OVERVIEW_SWITCH])
		{
		    if (pending->illustration.queried_line)
			g_print("\n%s\n",pending->illustration.queried_line);
		    g_print("%s\n",pending->illustration.warning_text);
		}
		else
		    cnt_brack++;
		g_free(pending->illustration.warning_text);
	    }
	    pending->illustration.warning_text=g_strdup_printf(
	      "    Line %ld - Mismatched illustration tag?",linecnt);
	    g_free(pending->illustration.queried_line);
	    pending->illustration.queried_line=NULL;
	}
    }
    if (matching_difference(counters,CHAR_OPEN_RBRACK))
	pending->rbrack=
	  g_strdup_printf("    Line %ld - Mismatched round brackets?",linecnt);
    if (matching_difference(counters,CHAR_OPEN_SBRACK))
	pending->sbrack=
	  g_strdup_printf("    Line %ld - Mismatched square brackets?",linecnt);
    if (matching_difference(counters,CHAR_OPEN_CBRACK))
	pending->cbrack=
	  g_strdup_printf("    Line %ld - Mismatched curly brackets?",linecnt);
    if (counters->c_unders%2)
	pending->unders=
	  g_strdup_printf("    Line %ld - Mismatched underscores?",linecnt);
}