#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <glib.h>

#include <bl/bl.h>

#include "testcaseparser.h"

#include "testcaseio.h"

/*

 * Read a testcase in from a file.

 * On error, print a suitable message on stderr and return NULL.

 * The returned testcase should be freed with testcase_free().

 */

Testcase *testcase_parse_file(const char *filename)

{

    Testcase *testcase;

    TestcaseParser *parser;

    char *s;

    const char *tag,*text;

    gboolean found_tag=FALSE;

    parser=testcase_parser_new_from_file(filename);

    if (!parser)

	return NULL;

    if (!*testcase_parser_get_flag(parser))

    {

	fprintf(stderr,"%s: Not a valid testcase (flag)\n",filename);

	testcase_parser_free(parser);

	return NULL;

    }

    testcase=g_new0(Testcase,1);

    testcase->basename=g_path_get_basename(filename);

    s=strrchr(testcase->basename,'.');

    if (s)

	*s='\0';

    while(testcase_parser_get_next_tag(parser,&tag,&text))

    {

	if (!testcase->input && !strcmp(tag,"INPUT"))

	    testcase->input=g_strdup(text);

	else if (!testcase->expected && !strcmp(tag,"EXPECTED"))

	    testcase->expected=g_strdup(text);

	else if (!testcase->encoding && !strcmp(tag,"ENCODING"))

	    testcase->encoding=g_strchomp(g_strdup(text));

	else

	{

	    fprintf(stderr,"%s: Not a valid testcase (%s)\n",filename,tag);

	    testcase_free(testcase);

	    testcase_parser_free(parser);

	    return NULL;

	}

	found_tag=TRUE;

    }

    if (!testcase_parser_at_eof(parser))

    {

	if (found_tag)

	    fprintf(stderr,"%s: Not a valid testcase (garbage at end)\n",

	      filename);

	else

	    fprintf(stderr,"%s: Not a valid testcase (no valid tags)\n",

	      filename);

	testcase_free(testcase);

	testcase_parser_free(parser);

	return NULL;

    }

    testcase_parser_free(parser);

    return testcase;

}