#include <stdlib.h>

 #include <stdio.h>

 #include <string.h>

 #include <glib.h>

 #include <bl/bl.h>

 #include "testcaseparser.h"

 /*

  * Get the flag (the string of characters which bracket tags in test cases).

  */

 const char *testcase_parser_get_flag(TestcaseParser *parser)

 {

     char *s=parser->contents;

     if (!parser->flag)

     {

 	parser->flag=g_string_new(NULL);

 	while(*s>' ' && *s<='~')

 	    g_string_append_c(parser->flag,*s++);

     }

     return parser->flag->str;

 }

 /*

  * Test if the parser has reached the end of the input file

  */

 gboolean testcase_parser_at_eof(TestcaseParser *parser)

 {

     return !parser->contents[parser->pos];

 }

 /*

  * Get the next tag (and its associated text, if any) from a test case.

  * Returns: TRUE if successful and FALSE if no more valid tags are present.

  * Callers can call testcase_parser_at_eof() when testcase_parser_get_next_tag()

  * to distinguish EOF and text which isn't a valid tag.

  */

 gboolean testcase_parser_get_next_tag(TestcaseParser *parser,const char **tag,

   const char **text)

 {

     size_t n;

     char *eol,*endp;

     GString *string;

     g_free(parser->tag);

     parser->tag=NULL;

     g_free(parser->tag_text);

     parser->tag_text=NULL;

     (void)testcase_parser_get_flag(parser);

     if (strncmp(parser->contents+parser->pos,parser->flag->str,

       parser->flag->len))

 	return FALSE;

     eol=strchr(parser->contents+parser->pos,'\n');

     if (!eol)

 	return FALSE;

     endp=eol-parser->flag->len;

     if (strncmp(endp,parser->flag->str,parser->flag->len))

 	return FALSE;

     while(endp>parser->contents && g_ascii_isspace(endp[-1]))

 	endp--;

     parser->pos+=parser->flag->len;

     while(g_ascii_isspace(parser->contents[parser->pos]))

 	parser->pos++;

     parser->tag=g_strndup(parser->contents+parser->pos,

       endp-(parser->contents+parser->pos));

     parser->pos=eol-parser->contents+1;

     string=g_string_new(NULL);

     while (!testcase_parser_at_eof(parser) &&

       strncmp(parser->contents+parser->pos,parser->flag->str,parser->flag->len))

     {

 	eol=strchr(parser->contents+parser->pos,'\n');

 	if (eol)

 	    n=eol-(parser->contents+parser->pos)+1;

 	else

 	    n=strlen(parser->contents+parser->pos);

 	g_string_append_len(string,parser->contents+parser->pos,n);

 	parser->pos+=n;

     }

     parser->tag_text=g_string_free(string,FALSE);

     if (!parser->tag_text)

 	parser->tag_text=g_strdup("");

     if (tag)

 	*tag=parser->tag;

     if (text)

 	*text=parser->tag_text;

     return TRUE;

 }

 /*

  * Create a testcase parser to read a regular file.

  */

 TestcaseParser *testcase_parser_new_from_file(const char *filename)

 {

     TestcaseParser *parser;

     gsize len;

     GError *err=NULL;

     parser=g_new0(TestcaseParser,1);

     if (!file_get_contents_text(filename,&parser->contents,&len,&err))

     {

 	g_printerr("%s: %s\n",filename,err->message);

 	g_error_free(err);

 	g_free(parser);

 	return NULL;

     }

     if (!g_utf8_validate(parser->contents,len,NULL))

     {

 	g_printerr("%s: Does not contain valid UTF-8\n",filename);

 	g_free(parser->contents);

 	g_free(parser);

 	return NULL;

     }

     parser->filename=g_strdup(filename);

     return parser;

 }

 /*

  * Free a testcase parser.

  */

 void testcase_parser_free(TestcaseParser *parser)

 {

     g_free(parser->filename);

     g_free(parser->contents);

     if (parser->flag)

 	g_string_free(parser->flag,TRUE);

     g_free(parser->tag);

     g_free(parser->tag_text);

     g_free(parser);

 }