/* add a namespace */
static int
raptor_dot_serializer_declare_namespace(raptor_serializer* serializer,
raptor_uri* uri,
const unsigned char *prefix)
{
raptor_dot_context * context = (raptor_dot_context *)serializer->context;
raptor_namespace *ns;
int rc;
ns = raptor_new_namespace_from_uri(context->nstack, prefix, uri, 0);
rc = raptor_dot_serializer_declare_namespace_from_namespace(serializer, ns);
raptor_free_namespace(ns);
return rc;
}
/* add a namespace */
static int
raptor_turtle_serialize_declare_namespace(raptor_serializer* serializer,
raptor_uri *uri,
const unsigned char *prefix)
{
raptor_turtle_context* context=(raptor_turtle_context*)serializer->context;
raptor_namespace *ns;
int rc;
ns=raptor_new_namespace_from_uri(context->nstack, prefix, uri,
TURTLE_NAMESPACE_DEPTH);
rc=raptor_turtle_serialize_declare_namespace_from_namespace(serializer, ns);
raptor_free_namespace(ns);
return rc;
}
/* destroy a serializer */
static void
raptor_turtle_serialize_terminate(raptor_serializer* serializer)
{
raptor_turtle_context* context=(raptor_turtle_context*)serializer->context;
if(context->turtle_writer) {
raptor_free_turtle_writer(context->turtle_writer);
context->turtle_writer=NULL;
}
if(context->rdf_nspace) {
raptor_free_namespace(context->rdf_nspace);
context->rdf_nspace=NULL;
}
if(context->namespaces) {
int i;
/* Note: item 0 in the list is rdf:RDF's namespace and freed above */
for(i=1; i< raptor_sequence_size(context->namespaces); i++) {
raptor_namespace* ns;
ns =(raptor_namespace*)raptor_sequence_get_at(context->namespaces, i);
if(ns)
raptor_free_namespace(ns);
}
raptor_free_sequence(context->namespaces);
context->namespaces=NULL;
}
if(context->subjects) {
raptor_free_avltree(context->subjects);
context->subjects=NULL;
}
if(context->blanks) {
raptor_free_avltree(context->blanks);
context->blanks=NULL;
}
if(context->nodes) {
raptor_free_avltree(context->nodes);
context->nodes=NULL;
}
if(context->nstack) {
raptor_free_namespaces(context->nstack);
context->nstack=NULL;
}
if(context->rdf_type) {
raptor_free_abbrev_node(context->rdf_type);
context->rdf_type=NULL;
}
if(context->rdf_xml_literal_uri) {
raptor_free_uri_v2(serializer->world, context->rdf_xml_literal_uri);
context->rdf_xml_literal_uri=NULL;
}
if(context->rdf_first_uri) {
raptor_free_uri_v2(serializer->world, context->rdf_first_uri);
context->rdf_first_uri=NULL;
}
if(context->rdf_rest_uri) {
raptor_free_uri_v2(serializer->world, context->rdf_rest_uri);
context->rdf_rest_uri=NULL;
}
if(context->rdf_nil_uri) {
raptor_free_uri_v2(serializer->world, context->rdf_nil_uri);
context->rdf_nil_uri=NULL;
}
}
/*
* raptor_new_qname_from_resource:
* @namespaces: sequence of namespaces (corresponding to nstack)
* @nstack: #raptor_namespace_stack to use/update
* @namespace_count: size of nstack (may be modified)
* @node: #raptor_abbrev_node to use
*
* Make an XML QName from the URI associated with the node.
*
* Return value: the QName or NULL on failure
**/
raptor_qname*
raptor_new_qname_from_resource(raptor_sequence* namespaces,
raptor_namespace_stack* nstack,
int* namespace_count,
raptor_abbrev_node* node)
{
unsigned char* name=NULL; /* where to split predicate name */
size_t name_len=1;
unsigned char *uri_string;
size_t uri_len;
unsigned char c;
unsigned char *p;
raptor_uri *ns_uri;
raptor_namespace *ns;
raptor_qname *qname;
if(node->type != RAPTOR_IDENTIFIER_TYPE_RESOURCE) {
RAPTOR_FATAL1("Node must be a resource\n");
return NULL;
}
qname=raptor_namespaces_qname_from_uri(nstack,
node->value.resource.uri, 10);
if(qname)
return qname;
uri_string = raptor_uri_as_counted_string(node->value.resource.uri, &uri_len);
p= uri_string;
name_len=uri_len;
while(name_len >0) {
if(raptor_xml_name_check(p, name_len, 10)) {
name=p;
break;
}
p++; name_len--;
}
if(!name || (name == uri_string))
return NULL;
c=*name; *name='\0';
ns_uri=raptor_new_uri(uri_string);
if(!ns_uri)
return NULL;
*name=c;
ns = raptor_namespaces_find_namespace_by_uri(nstack, ns_uri);
if(!ns) {
/* The namespace was not declared, so create one */
unsigned char prefix[2 + MAX_ASCII_INT_SIZE + 1];
*namespace_count = *namespace_count + 1;
sprintf((char *)prefix, "ns%d", *namespace_count);
ns = raptor_new_namespace_from_uri(nstack, prefix, ns_uri, 0);
/* We'll most likely need this namespace again. Push it on our
* stack. It will be deleted in
* raptor_rdfxmla_serialize_terminate
*/
if(raptor_sequence_push(namespaces, ns)) {
/* namespaces sequence has no free handler so we have to free the ns ourselves on error */
raptor_free_namespace(ns);
raptor_free_uri(ns_uri);
return NULL;
}
}
qname = raptor_new_qname_from_namespace_local_name(ns, name, NULL);
raptor_free_uri(ns_uri);
return qname;
}
int
main(int argc, char *argv[])
{
raptor_world *world;
const char *program = raptor_basename(argv[0]);
raptor_iostream *iostr;
raptor_namespace_stack *nstack;
raptor_namespace* foo_ns;
raptor_xml_writer* xml_writer;
raptor_uri* base_uri;
raptor_qname* el_name;
raptor_xml_element *element;
unsigned long offset;
raptor_qname **attrs;
raptor_uri* base_uri_copy = NULL;
/* for raptor_new_iostream_to_string */
void *string = NULL;
size_t string_len = 0;
world = raptor_new_world();
if(!world || raptor_world_open(world))
exit(1);
iostr = raptor_new_iostream_to_string(world, &string, &string_len, NULL);
if(!iostr) {
fprintf(stderr, "%s: Failed to create iostream to string\n", program);
exit(1);
}
nstack = raptor_new_namespaces(world, 1);
xml_writer = raptor_new_xml_writer(world, nstack, iostr);
if(!xml_writer) {
fprintf(stderr, "%s: Failed to create xml_writer to iostream\n", program);
exit(1);
}
base_uri = raptor_new_uri(world, base_uri_string);
foo_ns = raptor_new_namespace(nstack,
(const unsigned char*)"foo",
(const unsigned char*)"http://example.org/foo-ns#",
0);
el_name = raptor_new_qname_from_namespace_local_name(world,
foo_ns,
(const unsigned char*)"bar",
NULL);
base_uri_copy = base_uri ? raptor_uri_copy(base_uri) : NULL;
element = raptor_new_xml_element(el_name,
NULL, /* language */
base_uri_copy);
raptor_xml_writer_start_element(xml_writer, element);
raptor_xml_writer_cdata_counted(xml_writer, (const unsigned char*)"hello\n", 6);
raptor_xml_writer_comment_counted(xml_writer, (const unsigned char*)"comment", 7);
raptor_xml_writer_cdata(xml_writer, (const unsigned char*)"\n");
raptor_xml_writer_end_element(xml_writer, element);
raptor_free_xml_element(element);
raptor_xml_writer_cdata(xml_writer, (const unsigned char*)"\n");
el_name = raptor_new_qname(nstack,
(const unsigned char*)"blah",
NULL /* no attribute value - element */);
base_uri_copy = base_uri ? raptor_uri_copy(base_uri) : NULL;
element = raptor_new_xml_element(el_name,
NULL, /* language */
base_uri_copy);
attrs = (raptor_qname **)RAPTOR_CALLOC(qnamearray, 1, sizeof(raptor_qname*));
attrs[0] = raptor_new_qname(nstack,
(const unsigned char*)"a",
(const unsigned char*)"b" /* attribute value */);
raptor_xml_element_set_attributes(element, attrs, 1);
raptor_xml_writer_empty_element(xml_writer, element);
raptor_xml_writer_cdata(xml_writer, (const unsigned char*)"\n");
raptor_free_xml_writer(xml_writer);
raptor_free_xml_element(element);
raptor_free_namespace(foo_ns);
raptor_free_namespaces(nstack);
raptor_free_uri(base_uri);
offset = raptor_iostream_tell(iostr);
#if RAPTOR_DEBUG > 1
fprintf(stderr, "%s: Freeing iostream\n", program);
#endif
raptor_free_iostream(iostr);
if(offset != OUT_BYTES_COUNT) {
fprintf(stderr, "%s: I/O stream wrote %d bytes, expected %d\n", program,
(int)offset, (int)OUT_BYTES_COUNT);
fputs("[[", stderr);
(void)fwrite(string, 1, string_len, stderr);
fputs("]]\n", stderr);
return 1;
}
if(!string) {
fprintf(stderr, "%s: I/O stream failed to create a string\n", program);
return 1;
}
string_len = strlen((const char*)string);
if(string_len != offset) {
fprintf(stderr, "%s: I/O stream created a string length %d, expected %d\n", program, (int)string_len, (int)offset);
return 1;
}
#if RAPTOR_DEBUG > 1
fprintf(stderr, "%s: Made XML string of %d bytes\n", program, (int)string_len);
fputs("[[", stderr);
(void)fwrite(string, 1, string_len, stderr);
fputs("]]\n", stderr);
#endif
raptor_free_memory(string);
raptor_free_world(world);
/* keep gcc -Wall happy */
return(0);
}
/*
* rasqal_query_results_write_sparql_xml:
* @iostr: #raptor_iostream to write the query results to
* @results: #rasqal_query_results query results input
* @base_uri: #raptor_uri base URI of the output format
*
* Write the fourth version of the SPARQL XML query results format to an
* iostream in a format - INTERNAL.
*
* If the writing succeeds, the query results will be exhausted.
*
* Return value: non-0 on failure
**/
static int
rasqal_query_results_write_sparql_xml(rasqal_query_results_formatter* formatter,
raptor_iostream *iostr,
rasqal_query_results* results,
raptor_uri *base_uri)
{
int rc=1;
rasqal_world* world = rasqal_query_results_get_world(results);
raptor_xml_writer* xml_writer=NULL;
raptor_namespace *res_ns=NULL;
raptor_namespace_stack *nstack=NULL;
raptor_xml_element *sparql_element=NULL;
raptor_xml_element *results_element=NULL;
raptor_xml_element *result_element=NULL;
raptor_xml_element *element1=NULL;
raptor_xml_element *binding_element=NULL;
raptor_xml_element *variable_element=NULL;
raptor_qname **attrs=NULL;
int i;
if(!rasqal_query_results_is_bindings(results) &&
!rasqal_query_results_is_boolean(results)) {
rasqal_log_error_simple(world, RAPTOR_LOG_LEVEL_ERROR,
NULL,
"Can only write XML format v3 for variable binding and boolean results");
return 1;
}
nstack = raptor_new_namespaces(world->raptor_world_ptr, 1);
if(!nstack)
return 1;
xml_writer = raptor_new_xml_writer(world->raptor_world_ptr,
nstack,
iostr);
if(!xml_writer)
goto tidy;
res_ns=raptor_new_namespace(nstack,
NULL,
(const unsigned char*)"http://www.w3.org/2005/sparql-results#",
0);
if(!res_ns)
goto tidy;
sparql_element=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"sparql",
NULL, base_uri);
if(!sparql_element)
goto tidy;
raptor_xml_writer_start_element(xml_writer, sparql_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
/* <head> */
element1=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"head",
NULL, base_uri);
if(!element1)
goto tidy;
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 2);
raptor_xml_writer_start_element(xml_writer, element1);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
if(rasqal_query_results_is_bindings(results)) {
for(i=0; 1; i++) {
const unsigned char *name;
name=rasqal_query_results_get_binding_name(results, i);
if(!name)
break;
/* <variable name="x"/> */
variable_element=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"variable",
NULL, base_uri);
if(!variable_element)
goto tidy;
attrs=(raptor_qname **)raptor_alloc_memory(sizeof(raptor_qname*));
if(!attrs)
goto tidy;
attrs[0] = raptor_new_qname_from_namespace_local_name(world->raptor_world_ptr,
res_ns,
(const unsigned char*)"name",
(const unsigned char*)name); /* attribute value */
if(!attrs[0]) {
raptor_free_memory((void*)attrs);
goto tidy;
}
raptor_xml_element_set_attributes(variable_element, attrs, 1);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 4);
raptor_xml_writer_empty_element(xml_writer, variable_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
raptor_free_xml_element(variable_element);
variable_element=NULL;
}
}
/* FIXME - could add <link> inside <head> */
/* </head> */
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 2);
raptor_xml_writer_end_element(xml_writer, element1);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
raptor_free_xml_element(element1);
element1=NULL;
/* Boolean Results */
if(rasqal_query_results_is_boolean(results)) {
result_element=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"boolean",
NULL, base_uri);
if(!result_element)
goto tidy;
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 2);
raptor_xml_writer_start_element(xml_writer, result_element);
if(rasqal_query_results_get_boolean(results))
raptor_xml_writer_raw(xml_writer, RASQAL_XSD_BOOLEAN_TRUE);
else
raptor_xml_writer_raw(xml_writer, RASQAL_XSD_BOOLEAN_FALSE);
raptor_xml_writer_end_element(xml_writer, result_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
goto results3done;
}
/* Variable Binding Results */
/* <results> */
results_element=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"results",
NULL, base_uri);
if(!results_element)
goto tidy;
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 2);
raptor_xml_writer_start_element(xml_writer, results_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
/* declare result element for later multiple use */
result_element=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"result",
NULL, base_uri);
if(!result_element)
goto tidy;
while(!rasqal_query_results_finished(results)) {
/* <result> */
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 4);
raptor_xml_writer_start_element(xml_writer, result_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
for(i=0; i<rasqal_query_results_get_bindings_count(results); i++) {
const unsigned char *name=rasqal_query_results_get_binding_name(results, i);
rasqal_literal *l=rasqal_query_results_get_binding_value(results, i);
/* <binding> */
binding_element=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"binding",
NULL, base_uri);
if(!binding_element)
goto tidy;
attrs=(raptor_qname **)raptor_alloc_memory(sizeof(raptor_qname*));
if(!attrs)
goto tidy;
attrs[0] = raptor_new_qname_from_namespace_local_name(world->raptor_world_ptr,
res_ns,
(const unsigned char*)"name",
name);
if(!attrs[0]) {
raptor_free_memory((void*)attrs);
goto tidy;
}
raptor_xml_element_set_attributes(binding_element, attrs, 1);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 6);
raptor_xml_writer_start_element(xml_writer, binding_element);
if(!l) {
element1=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"unbound",
NULL, base_uri);
if(!element1)
goto tidy;
raptor_xml_writer_empty_element(xml_writer, element1);
} else switch(l->type) {
case RASQAL_LITERAL_URI:
element1=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"uri",
NULL, base_uri);
if(!element1)
goto tidy;
raptor_xml_writer_start_element(xml_writer, element1);
raptor_xml_writer_cdata(xml_writer, (const unsigned char*)raptor_uri_as_string(l->value.uri));
raptor_xml_writer_end_element(xml_writer, element1);
break;
case RASQAL_LITERAL_BLANK:
element1=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"bnode",
NULL, base_uri);
if(!element1)
goto tidy;
raptor_xml_writer_start_element(xml_writer, element1);
raptor_xml_writer_cdata(xml_writer, (const unsigned char*)l->string);
raptor_xml_writer_end_element(xml_writer, element1);
break;
case RASQAL_LITERAL_STRING:
case RASQAL_LITERAL_UDT:
element1=raptor_new_xml_element_from_namespace_local_name(res_ns,
(const unsigned char*)"literal",
NULL, base_uri);
if(!element1)
goto tidy;
if(l->language || l->datatype) {
attrs=(raptor_qname **)raptor_alloc_memory(sizeof(raptor_qname*));
if(!attrs)
goto tidy;
if(l->language)
attrs[0]=raptor_new_qname(nstack,
(const unsigned char*)"xml:lang",
(const unsigned char*)l->language);
else
attrs[0] = raptor_new_qname_from_namespace_local_name(world->raptor_world_ptr,
res_ns,
(const unsigned char*)"datatype",
(const unsigned char*)raptor_uri_as_string(l->datatype));
if(!attrs[0]) {
raptor_free_memory((void*)attrs);
goto tidy;
}
raptor_xml_element_set_attributes(element1, attrs, 1);
}
raptor_xml_writer_start_element(xml_writer, element1);
raptor_xml_writer_cdata_counted(xml_writer,
(const unsigned char*)l->string,
l->string_len);
raptor_xml_writer_end_element(xml_writer, element1);
break;
case RASQAL_LITERAL_PATTERN:
case RASQAL_LITERAL_QNAME:
case RASQAL_LITERAL_INTEGER:
case RASQAL_LITERAL_XSD_STRING:
case RASQAL_LITERAL_BOOLEAN:
case RASQAL_LITERAL_DOUBLE:
case RASQAL_LITERAL_FLOAT:
case RASQAL_LITERAL_VARIABLE:
case RASQAL_LITERAL_DECIMAL:
case RASQAL_LITERAL_DATETIME:
case RASQAL_LITERAL_INTEGER_SUBTYPE:
case RASQAL_LITERAL_UNKNOWN:
default:
rasqal_log_error_simple(world, RAPTOR_LOG_LEVEL_ERROR,
NULL,
"Cannot turn literal type %d into XML",
l->type);
goto tidy;
}
if(element1) {
raptor_free_xml_element(element1);
element1=NULL;
}
/* </binding> */
raptor_xml_writer_end_element(xml_writer, binding_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
raptor_free_xml_element(binding_element);
binding_element=NULL;
}
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 4);
raptor_xml_writer_end_element(xml_writer, result_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
rasqal_query_results_next(results);
}
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)" ", 2);
raptor_xml_writer_end_element(xml_writer, results_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
results3done:
rc=0;
raptor_xml_writer_end_element(xml_writer, sparql_element);
raptor_xml_writer_raw_counted(xml_writer, (const unsigned char*)"\n", 1);
tidy:
if(element1)
raptor_free_xml_element(element1);
if(variable_element)
raptor_free_xml_element(variable_element);
if(binding_element)
raptor_free_xml_element(binding_element);
if(result_element)
raptor_free_xml_element(result_element);
if(results_element)
raptor_free_xml_element(results_element);
if(sparql_element)
raptor_free_xml_element(sparql_element);
if(res_ns)
raptor_free_namespace(res_ns);
if(xml_writer)
raptor_free_xml_writer(xml_writer);
if(nstack)
raptor_free_namespaces(nstack);
return rc;
}
int
main(int argc, char *argv[])
{
raptor_world *world;
const char *program = raptor_basename(argv[0]);
raptor_iostream *iostr;
raptor_namespace_stack *nstack;
raptor_namespace* ex_ns;
raptor_turtle_writer* turtle_writer;
raptor_uri* base_uri;
raptor_qname* el_name;
unsigned long count;
raptor_uri* datatype;
/* for raptor_new_iostream_to_string */
void *string = NULL;
size_t string_len = 0;
world = raptor_new_world();
if(!world || raptor_world_open(world))
exit(1);
iostr = raptor_new_iostream_to_string(world, &string, &string_len, NULL);
if(!iostr) {
fprintf(stderr, "%s: Failed to create iostream to string\n", program);
exit(1);
}
nstack = raptor_new_namespaces(world, 1);
base_uri = raptor_new_uri(world, base_uri_string);
turtle_writer = raptor_new_turtle_writer(world, base_uri, 1, nstack, iostr);
if(!turtle_writer) {
fprintf(stderr, "%s: Failed to create turtle_writer to iostream\n", program);
exit(1);
}
raptor_turtle_writer_set_option(turtle_writer,
RAPTOR_OPTION_WRITER_AUTO_INDENT, 1);
ex_ns = raptor_new_namespace(nstack,
(const unsigned char*)"ex",
(const unsigned char*)"http://example.org/ns#",
0);
raptor_turtle_writer_namespace_prefix(turtle_writer, ex_ns);
raptor_turtle_writer_reference(turtle_writer, base_uri);
raptor_turtle_writer_increase_indent(turtle_writer);
raptor_turtle_writer_newline(turtle_writer);
raptor_turtle_writer_raw(turtle_writer, (const unsigned char*)"ex:foo ");
raptor_turtle_writer_quoted_counted_string(turtle_writer, longstr,
strlen((const char*)longstr));
raptor_turtle_writer_raw_counted(turtle_writer,
(const unsigned char*)" ;", 2);
raptor_turtle_writer_newline(turtle_writer);
el_name = raptor_new_qname_from_namespace_local_name(world,
ex_ns,
(const unsigned char*)"bar",
NULL);
raptor_turtle_writer_qname(turtle_writer, el_name);
raptor_free_qname(el_name);
raptor_turtle_writer_raw_counted(turtle_writer, (const unsigned char*)" ", 1);
datatype = raptor_new_uri(world, (const unsigned char*)"http://www.w3.org/2001/XMLSchema#decimal");
raptor_turtle_writer_literal(turtle_writer, nstack,
(const unsigned char*)"10.0", NULL,
datatype);
raptor_free_uri(datatype);
raptor_turtle_writer_newline(turtle_writer);
raptor_turtle_writer_decrease_indent(turtle_writer);
raptor_turtle_writer_raw_counted(turtle_writer, (const unsigned char*)".", 1);
raptor_turtle_writer_newline(turtle_writer);
raptor_free_turtle_writer(turtle_writer);
raptor_free_namespace(ex_ns);
raptor_free_namespaces(nstack);
raptor_free_uri(base_uri);
count = raptor_iostream_tell(iostr);
#if RAPTOR_DEBUG > 1
fprintf(stderr, "%s: Freeing iostream\n", program);
#endif
raptor_free_iostream(iostr);
if(count != OUT_BYTES_COUNT) {
fprintf(stderr, "%s: I/O stream wrote %d bytes, expected %d\n", program,
(int)count, (int)OUT_BYTES_COUNT);
fputs("[[", stderr);
(void)fwrite(string, 1, string_len, stderr);
fputs("]]\n", stderr);
return 1;
}
if(!string) {
fprintf(stderr, "%s: I/O stream failed to create a string\n", program);
return 1;
}
string_len = strlen((const char*)string);
if(string_len != count) {
fprintf(stderr, "%s: I/O stream created a string length %d, expected %d\n", program, (int)string_len, (int)count);
return 1;
}
#if RAPTOR_DEBUG > 1
fprintf(stderr, "%s: Made Turtle string of %d bytes\n", program, (int)string_len);
fputs("[[", stderr);
(void)fwrite(string, 1, string_len, stderr);
fputs("]]\n", stderr);
#endif
raptor_free_memory(string);
raptor_free_world(world);
/* keep gcc -Wall happy */
return(0);
}
