[tracker/wip/carlosg/sparql1.1: 47/113] libtracker-data: Implement STRDT

[Carlos Garnacho <carlosg src gnome org>]

commit c5787ad1706e3ab59d7ef15fbb442e29c941bb55
Author: Carlos Garnacho <carlosg gnome org>
Date:   Sun Jun 16 00:16:37 2019 +0200

    libtracker-data: Implement STRDT
    
    This function takes a simple literal and a type iri, and returns the
    literal converted to the iri type.

 src/libtracker-data/tracker-sparql.c | 51 +++++++++++++++++++++++++++++++++++-
 1 file changed, 50 insertions(+), 1 deletion(-)
---
diff --git a/src/libtracker-data/tracker-sparql.c b/src/libtracker-data/tracker-sparql.c
index 3ae91fcde..826234d6f 100644
--- a/src/libtracker-data/tracker-sparql.c
+++ b/src/libtracker-data/tracker-sparql.c
@@ -6726,7 +6726,56 @@ translate_BuiltInCall (TrackerSparql  *sparql,
        } else if (_accept (sparql, RULE_TYPE_LITERAL, LITERAL_STRLANG)) {
                _unimplemented ("STRLANG");
        } else if (_accept (sparql, RULE_TYPE_LITERAL, LITERAL_STRDT)) {
-               _unimplemented ("STRDT");
+               TrackerParserNode *expr, *node, *iri_node = NULL;
+               TrackerPropertyType type;
+               gchar *type_iri;
+               gboolean retval = TRUE;
+
+               _expect (sparql, RULE_TYPE_LITERAL, LITERAL_OPEN_PARENS);
+               expr = _skip_rule (sparql, NAMED_RULE_Expression);
+               _expect (sparql, RULE_TYPE_LITERAL, LITERAL_COMMA);
+               node = _skip_rule (sparql, NAMED_RULE_Expression);
+               _expect (sparql, RULE_TYPE_LITERAL, LITERAL_CLOSE_PARENS);
+
+               if (g_node_n_nodes ((GNode *) node, G_TRAVERSE_LEAVES) == 1)
+                       iri_node = tracker_sparql_parser_tree_find_first (node, TRUE);
+
+               if (!iri_node)
+                       _raise (PARSE, "Second argument must be IRI", "STRDT");
+
+               type_iri = _extract_node_string (iri_node, sparql);
+               type = rdf_type_to_property_type (type_iri);
+               g_free (type_iri);
+
+               switch (type) {
+               case TRACKER_PROPERTY_TYPE_UNKNOWN:
+               case TRACKER_PROPERTY_TYPE_STRING:
+               case TRACKER_PROPERTY_TYPE_RESOURCE:
+                       retval = _postprocess_rule (sparql, expr, NULL, error);
+                       break;
+               case TRACKER_PROPERTY_TYPE_BOOLEAN:
+                       retval = _postprocess_rule (sparql, expr, NULL, error);
+                       break;
+               case TRACKER_PROPERTY_TYPE_INTEGER:
+                       _append_string (sparql, "CAST (");
+                       retval = _postprocess_rule (sparql, expr, NULL, error);
+                       _append_string (sparql, "AS INTEGER) ");
+                       break;
+               case TRACKER_PROPERTY_TYPE_DOUBLE:
+                       _append_string (sparql, "CAST (");
+                       retval = _postprocess_rule (sparql, expr, NULL, error);
+                       _append_string (sparql, "AS REAL) ");
+                       break;
+               case TRACKER_PROPERTY_TYPE_DATE:
+               case TRACKER_PROPERTY_TYPE_DATETIME:
+                       retval = _postprocess_rule (sparql, expr, NULL, error);
+                       break;
+               }
+
+               if (!retval)
+                       return FALSE;
+
+               sparql->current_state.expression_type = type;
        } else if (_accept (sparql, RULE_TYPE_LITERAL, LITERAL_SAMETERM)) {
                _expect (sparql, RULE_TYPE_LITERAL, LITERAL_OPEN_PARENS);
                _append_string (sparql, " ( ");