#include "libxml.h"
#include "ruby_xml_schema.h"

VALUE cXMLSchema;

static void
ruby_xml_schema_mark(ruby_xml_schema *rxschema) {
  return;
}

void
ruby_xml_schema_free(ruby_xml_schema *rxschema) {
  if (rxschema->schema != NULL) {
    xmlSchemaFree(rxschema->schema);
    rxschema->schema = NULL;
  }

  free(rxschema);
}

/*
 * call-seq:
 *    XML::Schema.new(schema_uri) => schema
 * 
 * Create a new schema from the specified URI.
 */
VALUE
ruby_xml_schema_init_from_uri(int argc, VALUE *argv, VALUE class) {
  VALUE uri;
  xmlSchemaParserCtxtPtr parser;
  xmlSchemaPtr sptr;

  switch (argc) {
  case 1:
    rb_scan_args(argc, argv, "10", &uri);

    Check_Type(uri, T_STRING);

 	parser = xmlSchemaNewParserCtxt(StringValuePtr(uri));
 	sptr = xmlSchemaParse(parser);
 	xmlSchemaFreeParserCtxt(parser);
    break;
  default:
    rb_raise(rb_eArgError, "wrong number of arguments (need 1)");
  }
  return Qnil;
}

/*
 * call-seq:
 *    XML::Schema.from_string("schema_data") => "value"
 * 
 * Create a new schema using the specified string.
 */
VALUE
ruby_xml_schema_init_from_str(int argc, VALUE *argv, VALUE class) {
  VALUE schema_str;

  xmlSchemaParserCtxtPtr  parser;
  //xmlSchemaPtr            sptr;
  ruby_xml_schema *rxschema;

  switch (argc) {
  case 1:
    rb_scan_args(argc, argv, "10", &schema_str);

    Check_Type(schema_str, T_STRING);

    parser = xmlSchemaNewMemParserCtxt(StringValuePtr(schema_str), strlen(StringValuePtr(schema_str)));
    rxschema = ALLOC(ruby_xml_schema);
    rxschema->schema = xmlSchemaParse(parser);
 	xmlSchemaFreeParserCtxt(parser);

    return( Data_Wrap_Struct(cXMLSchema, ruby_xml_schema_mark, ruby_xml_schema_free, rxschema) );
  default:
    rb_raise(rb_eArgError, "wrong number of arguments (need 1)");
  }
  return Qnil;
}
  
/* TODO what is this patch doing here?
 
 	xmlSchemaParserCtxtPtr  parser;
 	xmlSchemaPtr            sptr;
 	xmlSchemaValidCtxtPtr   vptr;
+	int                     is_invalid;
 	
 	if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &source) == FAILURE) {
 		return;
@@ -598,26 +598,24 @@
 			convert_to_string_ex(&source);
 			parser = xmlSchemaNewParserCtxt(Z_STRVAL_P(source));
 			sptr = xmlSchemaParse(parser);
 			break;
 		case SCHEMA_BLOB:
 			convert_to_string_ex(&source);
 			parser = xmlSchemaNewMemParserCtxt(Z_STRVAL_P(source), Z_STRLEN_P(source));
 			sptr = xmlSchemaParse(parser);
 			break;
 	}
 
 	vptr = xmlSchemaNewValidCtxt(sptr);
+	is_invalid = xmlSchemaValidateDoc(vptr, (xmlDocPtr) sxe->document->ptr);
 	xmlSchemaFree(sptr);
 	xmlSchemaFreeValidCtxt(vptr);
 	xmlSchemaFreeParserCtxt(parser);
 
-	if (is_valid) {
-		RETURN_TRUE;
-	} else {
+	if (is_invalid) {
 		RETURN_FALSE;
+	} else {
+		RETURN_TRUE;
 	}
 }
  }}} 
@@ -695,7 +693,7 @@
 {
 	if (!strcmp(method, "xsearch")) {
 		simplexml_ce_xpath_search(INTERNAL_FUNCTION_PARAM_PASSTHRU);
-#ifdef xmlSchemaParserCtxtPtr
+#ifdef LIBXML_SCHEMAS_ENABLED
 	} else if (!strcmp(method, "validate_schema_file")) {
 		simplexml_ce_schema_validate(INTERNAL_FUNCTION_PARAM_PASSTHRU, SCHEMA_FILE);	
 	} else if (!strcmp(method, "validate_schema_buffer")) {
*/

void  ruby_schema_free(ruby_xml_schema *rxs) {
}

// Rdoc needs to know 
#ifdef RDOC_NEVER_DEFINED
  mXML = rb_define_module("XML");
#endif

void  ruby_init_xml_schema(void) {
  cXMLSchema = rb_define_class_under(mXML, "Schema", rb_cObject);
  rb_define_singleton_method(cXMLSchema, "new",         ruby_xml_schema_init_from_uri, -1);
  rb_define_singleton_method(cXMLSchema, "from_string", ruby_xml_schema_init_from_str, -1);
}