#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);

}