Merge datatype and/or language into node

This moves closer to the sord API, and is more convenient in most cases.

1 files changed, 18 insertions, 8 deletions

diff --git a/src/n3.c b/src/n3.c
index 38acdb46..6c904c1a 100644
--- a/src/n3.c
+++ b/src/n3.c
@@ -778,7 +778,11 @@ read_0_9(SerdReader* reader, Ref str, bool at_least_one)
 }
 
 static SerdStatus
-read_number(SerdReader* reader, Ref* dest, Ref* datatype, bool* ate_dot)
+read_number(SerdReader*    reader,
+            Ref*           dest,
+            Ref*           datatype,
+            SerdNodeFlags* flags,
+            bool*          ate_dot)
 {
 	#define XSD_DECIMAL NS_XSD "decimal"
 	#define XSD_DOUBLE  NS_XSD "double"
@@ -835,6 +839,10 @@ read_number(SerdReader* reader, Ref* dest, Ref* datatype, bool* ate_dot)
 		                      XSD_INTEGER, sizeof(XSD_INTEGER) - 1);
 	}
 
+	if (*datatype) {
+		*flags |= SERD_HAS_DATATYPE;
+	}
+
 	return SERD_SUCCESS;
 }
 
@@ -865,6 +873,7 @@ read_literal(SerdReader* reader, Ref* dest,
 	switch (peek_byte(reader)) {
 	case '@':
 		eat_byte_safe(reader, '@');
+		*flags |= SERD_HAS_LANGUAGE;
 		if ((st = read_LANGTAG(reader, lang))) {
 			*datatype = pop_node(reader, *datatype);
 			*lang     = pop_node(reader, *lang);
@@ -875,6 +884,7 @@ read_literal(SerdReader* reader, Ref* dest,
 	case '^':
 		eat_byte_safe(reader, '^');
 		eat_byte_check(reader, '^');
+		*flags |= SERD_HAS_DATATYPE;
 		if ((st = read_iri(reader, datatype, ate_dot))) {
 			*datatype = pop_node(reader, *datatype);
 			*lang     = pop_node(reader, *lang);
@@ -1012,7 +1022,7 @@ read_anon(SerdReader* reader, ReadContext ctx, bool subject, Ref* dest)
 
 	SerdStatus st = SERD_SUCCESS;
 	if (ctx.subject) {
-		TRY(st, emit_statement(reader, ctx, *dest, 0, 0));
+		TRY(st, emit_statement(reader, ctx, *dest));
 	}
 
 	ctx.subject = *dest;
@@ -1085,7 +1095,7 @@ read_object(SerdReader* reader, ReadContext* ctx, bool emit, bool* ate_dot)
 		break;
 	case '+': case '-': case '.': case '0': case '1': case '2': case '3':
 	case '4': case '5': case '6': case '7': case '8': case '9':
-		ret = read_number(reader, &o, &datatype, ate_dot);
+		ret = read_number(reader, &o, &datatype, &flags, ate_dot);
 		break;
 	case '\"':
 	case '\'':
@@ -1102,6 +1112,7 @@ read_object(SerdReader* reader, ReadContext* ctx, bool emit, bool* ate_dot)
 		     !memcmp(serd_node_string(node), "true", 4)) ||
 		    (node->n_bytes == 5 &&
 		     !memcmp(serd_node_string(node), "false", 5))) {
+			flags      = flags | SERD_HAS_DATATYPE;
 			node->type = SERD_LITERAL;
 			datatype   = push_node(
 				reader, SERD_URI, XSD_BOOLEAN, XSD_BOOLEAN_LEN);
@@ -1122,7 +1133,7 @@ read_object(SerdReader* reader, ReadContext* ctx, bool emit, bool* ate_dot)
 	}
 
 	if (!ret && emit && simple) {
-		ret = emit_statement(reader, *ctx, o, datatype, lang);
+		ret = emit_statement(reader, *ctx, o);
 	} else if (!ret && !emit) {
 		ctx->object   = o;
 		ctx->datatype = datatype;
@@ -1215,7 +1226,7 @@ read_collection(SerdReader* reader, ReadContext ctx, Ref* dest)
 	if (ctx.subject) {
 		// subject predicate _:head
 		*ctx.flags |= (end ? 0 : SERD_LIST_O_BEGIN);
-		TRY(st, emit_statement(reader, ctx, *dest, 0, 0));
+		TRY(st, emit_statement(reader, ctx, *dest));
 		*ctx.flags |= SERD_LIST_CONT;
 	} else {
 		*ctx.flags |= (end ? 0 : SERD_LIST_S_BEGIN);
@@ -1254,8 +1265,7 @@ read_collection(SerdReader* reader, ReadContext ctx, Ref* dest)
 		// _:node rdf:rest _:rest
 		*ctx.flags |= SERD_LIST_CONT;
 		ctx.predicate = reader->rdf_rest;
-		TRY(st, emit_statement(reader, ctx,
-		                       (end ? reader->rdf_nil : rest), 0, 0));
+		TRY(st, emit_statement(reader, ctx, (end ? reader->rdf_nil : rest)));
 
 		ctx.subject = rest;         // _:node = _:rest
 		rest        = node;         // _:rest = (old)_:node
@@ -1616,7 +1626,7 @@ read_nquadsDoc(SerdReader* reader)
 			}
 		}
 
-		TRY(st, emit_statement(reader, ctx, ctx.object, ctx.datatype, ctx.lang));
+		TRY(st, emit_statement(reader, ctx, ctx.object));
 
 		pop_node(reader, ctx.graph);
 		pop_node(reader, ctx.lang);