#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->dquote)
    {
	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->dquote);
	    }
	    else
		cnt_dquot++;
	}
	g_free(pending->dquote);
	pending->dquote=NULL;
    }
    if (pending->squote)
    {
	if (!pending->continuing_quote ||
	  !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->squote);
	    }
	    else
		cnt_squot++;
	}
	g_free(pending->squote);
	pending->squote=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)
{
    int quote_straight,quote_curved,difference;
    quote_straight=matching_difference(counters,CHAR_DQUOTE);
    quote_curved=matching_difference(counters,CHAR_LD_QUOTE);
    if (quote_straight || quote_curved)
    {
	pending->dquote=
	  g_strdup_printf("    Line %ld - Mismatched quotes",linecnt);
	if (pswit[QPARA_SWITCH] || quote_curved && quote_curved!=1 ||
	  quote_straight && quote_curved)
	    /*
	     * Flag it to be noted regardless of the
	     * first line of the next para.
	     */
	    pending->continuing_quote=NULL;
	else if (quote_straight)
	    pending->continuing_quote=utf8_strnfill(quote_straight,CHAR_DQUOTE);
	else
	    pending->continuing_quote=utf8_strnfill(quote_curved,CHAR_LD_QUOTE);
    }
    if (pswit[SQUOTE_SWITCH])
    {
	if (matching_count(counters,CHAR_SQUOTE,TRUE))
	    quote_straight=matching_difference(counters,CHAR_SQUOTE);
	else
	    quote_straight=0;
	if (matching_count(counters,CHAR_LS_QUOTE,TRUE))
	    quote_curved=matching_difference(counters,CHAR_LS_QUOTE);
	else
	    quote_curved=0;
	if (quote_straight || quote_curved)
	    pending->squote=
	      g_strdup_printf("    Line %ld - Mismatched singlequotes?",
	      linecnt);
	if (pending->continuing_quote)
	{
	    /*
	     * Flag it to be noted regardless of the
	     * first line of the next para.
	     */
	    g_free(pending->continuing_quote);
	    pending->continuing_quote=NULL;
	}
	if (pswit[QPARA_SWITCH] || quote_straight && quote_straight!=1 ||
	  quote_curved && quote_curved!=1 || quote_straight && quote_curved)
	    pending->continuing_quote=NULL;
	else if (quote_straight)
	    pending->continuing_quote=utf8_strnfill(quote_straight,CHAR_SQUOTE);
	else
	    pending->continuing_quote=utf8_strnfill(quote_curved,CHAR_LS_QUOTE);
    }
    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);
}