/*

 * Copyright (C) 2012 Intel Corporation

 *

 * Authors: Krzesimir Nowak <krnowak@openismus.com>

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Library General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Library General Public License for more details.

 *

 * You should have received a copy of the GNU Library General Public

 * License along with this library; if not, write to the

 * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

 * Boston, MA 02110-1301, USA.

 */

#include <libxml/parser.h>

#include <libxml/xmlschemas.h>

#include "xsd-data.h"

struct _XSDData {

        xmlSchemaPtr schema;

        xmlSchemaValidCtxtPtr valid_context;

};

XSDData *

xsd_data_new (const gchar *xsd_file)

{

        XSDData *xsd_data = g_slice_new0 (XSDData);

        gboolean failed = TRUE;

        xmlSchemaParserCtxtPtr context = xmlSchemaNewParserCtxt (xsd_file);

        if (context == NULL)

                /* unable to create a parser context for the schema */

                goto out;

        xsd_data->schema = xmlSchemaParse (context);

        if (xsd_data->schema == NULL)

                /* the schema itself is not valid */

                goto out;

        xsd_data->valid_context = xmlSchemaNewValidCtxt (xsd_data->schema);

        if (xsd_data->valid_context == NULL)

                /* unable to create a validation context for the schema */

                goto out;

        failed = FALSE;

 out:

        if (context != NULL)

                xmlSchemaFreeParserCtxt (context);

        if (failed) {

                xsd_data_free (xsd_data);

                xsd_data = NULL;

        }

        return xsd_data;

}

void

xsd_data_free (XSDData *xsd_data)

{

        if (xsd_data == NULL)

                return;

        if (xsd_data->valid_context != NULL)

                xmlSchemaFreeValidCtxt (xsd_data->valid_context);

        if (xsd_data->schema != NULL)

                xmlSchemaFree (xsd_data->schema);

        g_slice_free (XSDData, xsd_data);

}

gboolean

xsd_data_validate_doc (XSDData *xsd_data,

                       xmlDoc  *doc)

{

        static xmlSAXHandler empty_handler = {

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                NULL,

                XML_SAX2_MAGIC,

                NULL,

                NULL,

                NULL,

                NULL

        };

        xmlChar *dump = NULL;

        int size = 0;

        xmlParserInputBufferPtr buffer = NULL;

        gboolean result = FALSE;

        if (xsd_data == NULL)

                return TRUE;

        xmlDocDumpMemory (doc, &dump, &size);

        if (dump == NULL)

                goto out;

        g_debug ("Doc dump:\n%s", dump);

        buffer = xmlParserInputBufferCreateMem ((char *) dump,

                                                   size,

                                                   XML_CHAR_ENCODING_NONE);

        if (buffer == NULL)

                goto out;

        if (!xmlSchemaValidateStream (xsd_data->valid_context,

                                      buffer,

                                      XML_CHAR_ENCODING_NONE,

                                      &empty_handler,

                                      NULL))

                result = TRUE;

 out:

        /* Commented out, because it crashes because of double free. I

         * suppose that it is freed by xmlSchemaValidateStream.

         */

        /*

        if (buffer)

                xmlFreeParserInputBuffer (buffer);

        */

        if (dump != NULL)

                xmlFree (dump);

        return result;

}