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

 }