
/*---------------------------------------------------------------------
 *
 * rdf_fdw - PostgreSQL Foreign-data Wrapper for RDF Triplestores
 *
 * rdf_fdw is free software: you can redistribute it and/or modify
 * it under the terms of the MIT Licence.
 *
 * Copyright (C) 2022-2026 Jim Jones <jim.jones@uni-muenster.de>
 *
 *---------------------------------------------------------------------
 */
#include "postgres.h"

#include <curl/curl.h>
#include <libxml/tree.h>
#include <ctype.h>

#include "sparql.h"
#include "rdf_utils.h"
#include "rdf_fdw.h"
#include "rdfnode.h"

#include "fmgr.h"
#include "access/htup_details.h"
#include "access/reloptions.h"
#include "access/sysattr.h"
#include "access/xact.h"
#include "catalog/indexing.h"
#include "catalog/pg_attribute.h"
#include "catalog/pg_cast.h"
#include "catalog/pg_collation.h"
#include "catalog/pg_foreign_data_wrapper.h"
#include "catalog/pg_foreign_server.h"
#include "catalog/pg_foreign_table.h"
#include "catalog/pg_namespace.h"
#include "catalog/pg_operator.h"
#include "catalog/pg_proc.h"
#include "catalog/pg_user_mapping.h"
#include "catalog/pg_type.h"
#include "commands/defrem.h"
#if PG_VERSION_NUM >= 180000
#include "commands/explain_format.h"
#include "commands/explain_state.h"
#endif
#include "commands/explain.h"
#include "commands/vacuum.h"
#include "foreign/fdwapi.h"
#include "foreign/foreign.h"
#include "libpq/pqsignal.h"
#include "miscadmin.h"
#include "nodes/makefuncs.h"
#include "nodes/nodeFuncs.h"
#include "nodes/pg_list.h"
#if PG_VERSION_NUM < 180000
#include "nodes/bitmapset.h" // Needed for bms_is_empty in versions where it's inline
#endif
#include "optimizer/cost.h"
#include "optimizer/pathnode.h"
#include "optimizer/planmain.h"
#include "optimizer/restrictinfo.h"
#include "optimizer/tlist.h"
#include "parser/parse_relation.h"
#include "parser/parsetree.h"
#include "pgtime.h"
#include "port.h"
#include "storage/ipc.h"
#include "storage/lock.h"
#include "tcop/tcopprot.h"
#include "utils/array.h"
#include "utils/builtins.h"
#include "utils/catcache.h"
#include "utils/date.h"
#include "utils/numeric.h"
#include "utils/timestamp.h"
#include "utils/datetime.h"
#include "utils/elog.h"
#include "utils/fmgroids.h"
#include "utils/formatting.h"
#include "utils/guc.h"
#include "utils/lsyscache.h"
#include "utils/memutils.h"
#include "utils/rel.h"
#include "utils/resowner.h"
#include "utils/timestamp.h"
#include "utils/snapmgr.h"
#include "utils/syscache.h"
#include "utils/timestamp.h"
#include "executor/spi.h"
#if PG_VERSION_NUM < 120000
#include "nodes/relation.h"
#include "optimizer/var.h"
#include "utils/tqual.h"
#else
#include "nodes/pathnodes.h"
#include "optimizer/optimizer.h"
#include "access/heapam.h"
#endif
#include "funcapi.h"
#if PG_VERSION_NUM >= 100000
#include "utils/varlena.h"
#include "common/md5.h"
#else
#include "libpq/md5.h"
#endif
#include "mb/pg_wchar.h"
#include <regex.h>
#if PG_VERSION_NUM >= 190000
#include <math.h>
#endif
#include "parser/parse_type.h"

#define REL_ALIAS_PREFIX "r"
/* Handy macro to add relation name qualification */
#define ADD_REL_QUALIFIER(buf, varno) \
	appendStringInfo((buf), "%s%d.", REL_ALIAS_PREFIX, (varno))

/* Doesn't exist prior PostgreSQL 11 */
#ifndef ALLOCSET_SMALL_SIZES
#define ALLOCSET_SMALL_SIZES \
	ALLOCSET_SMALL_MINSIZE, ALLOCSET_SMALL_INITSIZE, ALLOCSET_SMALL_MAXSIZE
#endif

#if PG_VERSION_NUM >= 90500
/* array_create_iterator has a new signature from 9.5 on */
#define array_create_iterator(arr, slice_ndim) array_create_iterator(arr, slice_ndim, NULL)
#endif /* PG_VERSION_NUM */

#define IntToConst(x) makeConst(INT4OID, -1, InvalidOid, 4, Int32GetDatum((int32)(x)), false, true)
#define OidToConst(x) makeConst(OIDOID, -1, InvalidOid, 4, ObjectIdGetDatum(x), false, true)
#define IRI_SIZE(len) (VARHDRSZ + (len) + 1)
/*
 * This macro is used by DeparseExpr to identify PostgreSQL
 * types that can be translated to SPARQL
 */
#define canHandleType(x) ((x) == TEXTOID || (x) == CHAROID || (x) == BPCHAROID || (x) == VARCHAROID || (x) == NAMEOID || (x) == INT8OID || (x) == INT2OID || (x) == INT4OID || (x) == FLOAT4OID || (x) == FLOAT8OID || (x) == BOOLOID || (x) == NUMERICOID || (x) == DATEOID || (x) == TIMESTAMPOID || (x) == TIMESTAMPTZOID || (x) == TIMEOID || (x) == TIMETZOID || (x) == RDFNODEOID)

/* list API has changed in v13 */
#if PG_VERSION_NUM < 130000
#define list_next(l, e) lnext((e))
#define do_each_cell(cell, list, element) for_each_cell(cell, (element))
#else
#define list_next(l, e) lnext((l), (e))
#define do_each_cell(cell, list, element) for_each_cell(cell, (list), (element))
#endif /* PG_VERSION_NUM */

PG_MODULE_MAGIC;

struct string
{
	char *ptr;
	size_t len;
};

struct MemoryStruct
{
	char *memory;
	size_t size;
};

static struct RDFfdwOption valid_options[] =
	{
		/* Foreign Servers */
		{RDF_SERVER_OPTION_SELECT_URL, ForeignServerRelationId, true, false},
		{RDF_SERVER_OPTION_UPDATE_URL, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_FORMAT, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_HTTP_PROXY, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_HTTPS_PROXY, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_CUSTOMPARAM, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_PROXY_USER, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_PROXY_USER_PASSWORD, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_CONNECTTIMEOUT, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_CONNECTRETRY, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_REQUEST_REDIRECT, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_REQUEST_MAX_REDIRECT, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_ENABLE_PUSHDOWN, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_QUERY_PARAM, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_FETCH_SIZE, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_BASE_URI, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_PREFIX_CONTEXT, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_ENABLE_XML_HUGE, ForeignServerRelationId, false, false},
		{RDF_SERVER_OPTION_BATCH_SIZE, ForeignServerRelationId, false, false},
		/* Foreign Tables */
		{RDF_TABLE_OPTION_SPARQL, ForeignTableRelationId, true, false},
		{RDF_TABLE_OPTION_SPARQL_UPDATE_PATTERN, ForeignTableRelationId, false, false},
		{RDF_TABLE_OPTION_LOG_SPARQL, ForeignTableRelationId, false, false},
		{RDF_TABLE_OPTION_ENABLE_PUSHDOWN, ForeignTableRelationId, false, false},
		{RDF_TABLE_OPTION_FETCH_SIZE, ForeignTableRelationId, false, false},
		/* Options for Foreign Table's Columns */
		{RDF_COLUMN_OPTION_VARIABLE, AttributeRelationId, true, false},
		{RDF_COLUMN_OPTION_EXPRESSION, AttributeRelationId, false, false},
		{RDF_COLUMN_OPTION_LITERALTYPE, AttributeRelationId, false, false},
		{RDF_COLUMN_OPTION_LITERAL_TYPE, AttributeRelationId, false, false},
		{RDF_COLUMN_OPTION_NODETYPE, AttributeRelationId, false, false},
		{RDF_COLUMN_OPTION_LANGUAGE, AttributeRelationId, false, false},
		/* User Mapping */
		{RDF_USERMAPPING_OPTION_USER, UserMappingRelationId, false, false},
		{RDF_USERMAPPING_OPTION_PASSWORD, UserMappingRelationId, false, false},
		/* EOList option */
		{NULL, InvalidOid, false, false}};

Oid RDFNODEOID = InvalidOid;

extern Datum rdf_fdw_handler(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_validator(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_version(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_settings(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_clone_table(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_describe(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_strstarts(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_strends(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_strbefore(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_strafter(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_contains(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_encode_for_uri(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_strlang(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_strdt(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_str(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_lang(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_datatype(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_arguments_compatible(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_iri(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_iri_in(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_iri_out(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_isIRI(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_langmatches(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_isBlank(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_isNumeric(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_isLiteral(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_bnode(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_uuid(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_lcase(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_ucase(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_strlen(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_substr(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_concat(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_lex(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_md5(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_bound(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_sameterm(PG_FUNCTION_ARGS);
extern Datum rdf_fdw_coalesce(PG_FUNCTION_ARGS);

/* rdfnode PostgreSQL data type */
extern Datum rdfnode_in(PG_FUNCTION_ARGS);
extern Datum rdfnode_out(PG_FUNCTION_ARGS);
extern Datum rdfnode_to_text(PG_FUNCTION_ARGS);
extern Datum rdfnode_cmp(PG_FUNCTION_ARGS);

/* rdfnode (custom data type)*/
extern Datum rdfnode_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_rdfnode(PG_FUNCTION_ARGS);

/* numeric data type */
extern Datum rdfnode_to_numeric(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_numeric(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_numeric(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_numeric(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_numeric(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_numeric(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_numeric(PG_FUNCTION_ARGS);
extern Datum numeric_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum numeric_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum numeric_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum numeric_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum numeric_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum numeric_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum numeric_ge_rdfnode(PG_FUNCTION_ARGS);

/* float8 (double precision) data type */
extern Datum rdfnode_eq_float8(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_float8(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_float8(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_float8(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_float8(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_float8(PG_FUNCTION_ARGS);
extern Datum rdfnode_to_float8(PG_FUNCTION_ARGS);
extern Datum float8_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum float8_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum float8_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum float8_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum float8_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum float8_ge_rdfnode(PG_FUNCTION_ARGS);
extern Datum float8_to_rdfnode(PG_FUNCTION_ARGS);

/* float4 (real) data type */
extern Datum rdfnode_to_float4(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_float4(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_float4(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_float4(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_float4(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_float4(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_float4(PG_FUNCTION_ARGS);
extern Datum float4_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum float4_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum float4_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum float4_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum float4_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum float4_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum float4_ge_rdfnode(PG_FUNCTION_ARGS);

/* int8 (bigint) data type*/
extern Datum rdfnode_to_int8(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_int8(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_int8(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_int8(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_int8(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_int8(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_int8(PG_FUNCTION_ARGS);
extern Datum int8_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum int8_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum int8_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum int8_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum int8_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum int8_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum int8_ge_rdfnode(PG_FUNCTION_ARGS);

/* int4 (int) data type */
extern Datum rdfnode_to_int4(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_int4(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_int4(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_int4(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_int4(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_int4(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_int4(PG_FUNCTION_ARGS);
extern Datum int4_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum int4_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum int4_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum int4_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum int4_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum int4_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum int4_ge_rdfnode(PG_FUNCTION_ARGS);

/* int2 (smallint) data type */
extern Datum rdfnode_to_int2(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_int2(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_int2(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_int2(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_int2(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_int2(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_int2(PG_FUNCTION_ARGS);
extern Datum int2_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum int2_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum int2_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum int2_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum int2_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum int2_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum int2_ge_rdfnode(PG_FUNCTION_ARGS);

/* timestamptz (timestamp with time zone) */
extern Datum rdfnode_to_timestamptz(PG_FUNCTION_ARGS);
extern Datum timestamptz_to_rdfnode(PG_FUNCTION_ARGS);

/* timestamp (timestamp without time zone) */
extern Datum rdfnode_to_timestamp(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_timestamp(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_timestamp(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_timestamp(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_timestamp(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_timestamp(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_timestamp(PG_FUNCTION_ARGS);
extern Datum timestamp_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum timestamp_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum timestamp_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum timestamp_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum timestamp_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum timestamp_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum timestamp_ge_rdfnode(PG_FUNCTION_ARGS);

/* date */
extern Datum rdfnode_to_date(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_date(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_date(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_date(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_date(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_date(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_date(PG_FUNCTION_ARGS);
extern Datum date_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum date_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum date_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum date_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum date_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum date_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum date_ge_rdfnode(PG_FUNCTION_ARGS);

/* time (time without time zone) */
extern Datum rdfnode_to_time(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_time(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_time(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_time(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_time(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_time(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_time(PG_FUNCTION_ARGS);
extern Datum time_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum time_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum time_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum time_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum time_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum time_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum time_ge_rdfnode(PG_FUNCTION_ARGS);

/* timetz (time with time zone) */
extern Datum rdfnode_to_timetz(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_timetz(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_timetz(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_timetz(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_timetz(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_timetz(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_timetz(PG_FUNCTION_ARGS);
extern Datum timetz_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum timetz_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum timetz_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum timetz_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum timetz_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum timetz_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum timetz_ge_rdfnode(PG_FUNCTION_ARGS);

/* boolean */
extern Datum rdfnode_to_boolean(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_boolean(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_boolean(PG_FUNCTION_ARGS);
extern Datum boolean_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum boolean_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum boolean_neq_rdfnode(PG_FUNCTION_ARGS);

/* interval */
extern Datum rdfnode_to_interval(PG_FUNCTION_ARGS);
extern Datum rdfnode_eq_interval(PG_FUNCTION_ARGS);
extern Datum rdfnode_neq_interval(PG_FUNCTION_ARGS);
extern Datum rdfnode_lt_interval(PG_FUNCTION_ARGS);
extern Datum rdfnode_gt_interval(PG_FUNCTION_ARGS);
extern Datum rdfnode_le_interval(PG_FUNCTION_ARGS);
extern Datum rdfnode_ge_interval(PG_FUNCTION_ARGS);
extern Datum interval_to_rdfnode(PG_FUNCTION_ARGS);
extern Datum interval_eq_rdfnode(PG_FUNCTION_ARGS);
extern Datum interval_neq_rdfnode(PG_FUNCTION_ARGS);
extern Datum interval_lt_rdfnode(PG_FUNCTION_ARGS);
extern Datum interval_gt_rdfnode(PG_FUNCTION_ARGS);
extern Datum interval_le_rdfnode(PG_FUNCTION_ARGS);
extern Datum interval_ge_rdfnode(PG_FUNCTION_ARGS);

PG_FUNCTION_INFO_V1(rdf_fdw_handler);
PG_FUNCTION_INFO_V1(rdf_fdw_validator);
PG_FUNCTION_INFO_V1(rdf_fdw_version);
PG_FUNCTION_INFO_V1(rdf_fdw_settings);
PG_FUNCTION_INFO_V1(rdf_fdw_clone_table);
PG_FUNCTION_INFO_V1(rdf_fdw_describe);
PG_FUNCTION_INFO_V1(rdf_fdw_strstarts);
PG_FUNCTION_INFO_V1(rdf_fdw_strends);
PG_FUNCTION_INFO_V1(rdf_fdw_strbefore);
PG_FUNCTION_INFO_V1(rdf_fdw_strafter);
PG_FUNCTION_INFO_V1(rdf_fdw_contains);
PG_FUNCTION_INFO_V1(rdf_fdw_encode_for_uri);
PG_FUNCTION_INFO_V1(rdf_fdw_strlang);
PG_FUNCTION_INFO_V1(rdf_fdw_strdt);
PG_FUNCTION_INFO_V1(rdf_fdw_str);
PG_FUNCTION_INFO_V1(rdf_fdw_lang);
PG_FUNCTION_INFO_V1(rdf_fdw_datatype);
PG_FUNCTION_INFO_V1(rdf_fdw_arguments_compatible);
PG_FUNCTION_INFO_V1(rdf_fdw_iri);
PG_FUNCTION_INFO_V1(rdf_fdw_iri_in);
PG_FUNCTION_INFO_V1(rdf_fdw_iri_out);
PG_FUNCTION_INFO_V1(rdf_fdw_isIRI);
PG_FUNCTION_INFO_V1(rdf_fdw_langmatches);
PG_FUNCTION_INFO_V1(rdf_fdw_isBlank);
PG_FUNCTION_INFO_V1(rdf_fdw_isNumeric);
PG_FUNCTION_INFO_V1(rdf_fdw_isLiteral);
PG_FUNCTION_INFO_V1(rdf_fdw_bnode);
PG_FUNCTION_INFO_V1(rdf_fdw_uuid);
PG_FUNCTION_INFO_V1(rdf_fdw_lcase);
PG_FUNCTION_INFO_V1(rdf_fdw_ucase);
PG_FUNCTION_INFO_V1(rdf_fdw_strlen);
PG_FUNCTION_INFO_V1(rdf_fdw_substr);
PG_FUNCTION_INFO_V1(rdf_fdw_concat);
PG_FUNCTION_INFO_V1(rdf_fdw_lex);
PG_FUNCTION_INFO_V1(rdf_fdw_md5);
PG_FUNCTION_INFO_V1(rdf_fdw_bound);
PG_FUNCTION_INFO_V1(rdf_fdw_sameterm);
PG_FUNCTION_INFO_V1(rdf_fdw_coalesce);
PG_FUNCTION_INFO_V1(rdf_fdw_sum_sfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_sum_finalfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_avg_sfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_avg_finalfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_min_sfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_min_finalfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_max_sfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_max_finalfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_sample_sfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_sample_finalfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_group_concat_sfunc);
PG_FUNCTION_INFO_V1(rdf_fdw_group_concat_finalfunc);

/* rdfnode (custom data type) */
PG_FUNCTION_INFO_V1(rdfnode_in);
PG_FUNCTION_INFO_V1(rdfnode_out);
PG_FUNCTION_INFO_V1(rdfnode_to_text);
PG_FUNCTION_INFO_V1(rdfnode_cmp);
PG_FUNCTION_INFO_V1(rdfnode_eq_rdfnode);
PG_FUNCTION_INFO_V1(rdfnode_neq_rdfnode);
PG_FUNCTION_INFO_V1(rdfnode_lt_rdfnode);
PG_FUNCTION_INFO_V1(rdfnode_gt_rdfnode);
PG_FUNCTION_INFO_V1(rdfnode_le_rdfnode);
PG_FUNCTION_INFO_V1(rdfnode_ge_rdfnode);

/* numeric data type */
PG_FUNCTION_INFO_V1(rdfnode_to_numeric);
PG_FUNCTION_INFO_V1(rdfnode_eq_numeric);
PG_FUNCTION_INFO_V1(rdfnode_neq_numeric);
PG_FUNCTION_INFO_V1(rdfnode_lt_numeric);
PG_FUNCTION_INFO_V1(rdfnode_gt_numeric);
PG_FUNCTION_INFO_V1(rdfnode_le_numeric);
PG_FUNCTION_INFO_V1(rdfnode_ge_numeric);
PG_FUNCTION_INFO_V1(numeric_to_rdfnode);
PG_FUNCTION_INFO_V1(numeric_eq_rdfnode);
PG_FUNCTION_INFO_V1(numeric_neq_rdfnode);
PG_FUNCTION_INFO_V1(numeric_lt_rdfnode);
PG_FUNCTION_INFO_V1(numeric_gt_rdfnode);
PG_FUNCTION_INFO_V1(numeric_le_rdfnode);
PG_FUNCTION_INFO_V1(numeric_ge_rdfnode);

/* float8 (double precision) data type */
PG_FUNCTION_INFO_V1(rdfnode_neq_float8);
PG_FUNCTION_INFO_V1(rdfnode_eq_float8);
PG_FUNCTION_INFO_V1(rdfnode_lt_float8);
PG_FUNCTION_INFO_V1(rdfnode_gt_float8);
PG_FUNCTION_INFO_V1(rdfnode_le_float8);
PG_FUNCTION_INFO_V1(rdfnode_ge_float8);
PG_FUNCTION_INFO_V1(rdfnode_to_float8);
PG_FUNCTION_INFO_V1(float8_eq_rdfnode);
PG_FUNCTION_INFO_V1(float8_neq_rdfnode);
PG_FUNCTION_INFO_V1(float8_lt_rdfnode);
PG_FUNCTION_INFO_V1(float8_gt_rdfnode);
PG_FUNCTION_INFO_V1(float8_le_rdfnode);
PG_FUNCTION_INFO_V1(float8_ge_rdfnode);
PG_FUNCTION_INFO_V1(float8_to_rdfnode);

/* float4 (real) data type */
PG_FUNCTION_INFO_V1(rdfnode_to_float4);
PG_FUNCTION_INFO_V1(rdfnode_eq_float4);
PG_FUNCTION_INFO_V1(rdfnode_neq_float4);
PG_FUNCTION_INFO_V1(rdfnode_lt_float4);
PG_FUNCTION_INFO_V1(rdfnode_gt_float4);
PG_FUNCTION_INFO_V1(rdfnode_le_float4);
PG_FUNCTION_INFO_V1(rdfnode_ge_float4);
PG_FUNCTION_INFO_V1(float4_to_rdfnode);
PG_FUNCTION_INFO_V1(float4_eq_rdfnode);
PG_FUNCTION_INFO_V1(float4_neq_rdfnode);
PG_FUNCTION_INFO_V1(float4_lt_rdfnode);
PG_FUNCTION_INFO_V1(float4_gt_rdfnode);
PG_FUNCTION_INFO_V1(float4_le_rdfnode);
PG_FUNCTION_INFO_V1(float4_ge_rdfnode);

/* int8 (bigint) data type */
PG_FUNCTION_INFO_V1(rdfnode_to_int8);
PG_FUNCTION_INFO_V1(rdfnode_eq_int8);
PG_FUNCTION_INFO_V1(rdfnode_neq_int8);
PG_FUNCTION_INFO_V1(rdfnode_lt_int8);
PG_FUNCTION_INFO_V1(rdfnode_gt_int8);
PG_FUNCTION_INFO_V1(rdfnode_le_int8);
PG_FUNCTION_INFO_V1(rdfnode_ge_int8);
PG_FUNCTION_INFO_V1(int8_to_rdfnode);
PG_FUNCTION_INFO_V1(int8_eq_rdfnode);
PG_FUNCTION_INFO_V1(int8_neq_rdfnode);
PG_FUNCTION_INFO_V1(int8_lt_rdfnode);
PG_FUNCTION_INFO_V1(int8_gt_rdfnode);
PG_FUNCTION_INFO_V1(int8_le_rdfnode);
PG_FUNCTION_INFO_V1(int8_ge_rdfnode);

/* int4 (int) data type */
PG_FUNCTION_INFO_V1(rdfnode_to_int4);
PG_FUNCTION_INFO_V1(rdfnode_eq_int4);
PG_FUNCTION_INFO_V1(rdfnode_neq_int4);
PG_FUNCTION_INFO_V1(rdfnode_lt_int4);
PG_FUNCTION_INFO_V1(rdfnode_gt_int4);
PG_FUNCTION_INFO_V1(rdfnode_le_int4);
PG_FUNCTION_INFO_V1(rdfnode_ge_int4);
PG_FUNCTION_INFO_V1(int4_to_rdfnode);
PG_FUNCTION_INFO_V1(int4_eq_rdfnode);
PG_FUNCTION_INFO_V1(int4_neq_rdfnode);
PG_FUNCTION_INFO_V1(int4_lt_rdfnode);
PG_FUNCTION_INFO_V1(int4_gt_rdfnode);
PG_FUNCTION_INFO_V1(int4_le_rdfnode);
PG_FUNCTION_INFO_V1(int4_ge_rdfnode);

/* int2 (smallint) data type */
PG_FUNCTION_INFO_V1(rdfnode_to_int2);
PG_FUNCTION_INFO_V1(rdfnode_eq_int2);
PG_FUNCTION_INFO_V1(rdfnode_neq_int2);
PG_FUNCTION_INFO_V1(rdfnode_lt_int2);
PG_FUNCTION_INFO_V1(rdfnode_gt_int2);
PG_FUNCTION_INFO_V1(rdfnode_le_int2);
PG_FUNCTION_INFO_V1(rdfnode_ge_int2);
PG_FUNCTION_INFO_V1(int2_to_rdfnode);
PG_FUNCTION_INFO_V1(int2_eq_rdfnode);
PG_FUNCTION_INFO_V1(int2_neq_rdfnode);
PG_FUNCTION_INFO_V1(int2_lt_rdfnode);
PG_FUNCTION_INFO_V1(int2_gt_rdfnode);
PG_FUNCTION_INFO_V1(int2_le_rdfnode);
PG_FUNCTION_INFO_V1(int2_ge_rdfnode);

/* timestamptz (timestamp with time zone) */
PG_FUNCTION_INFO_V1(timestamptz_to_rdfnode);
PG_FUNCTION_INFO_V1(rdfnode_to_timestamptz);

/* timestamp (timestamp without time zone) */
PG_FUNCTION_INFO_V1(rdfnode_to_timestamp);
PG_FUNCTION_INFO_V1(rdfnode_eq_timestamp);
PG_FUNCTION_INFO_V1(rdfnode_neq_timestamp);
PG_FUNCTION_INFO_V1(rdfnode_lt_timestamp);
PG_FUNCTION_INFO_V1(rdfnode_gt_timestamp);
PG_FUNCTION_INFO_V1(rdfnode_le_timestamp);
PG_FUNCTION_INFO_V1(rdfnode_ge_timestamp);
PG_FUNCTION_INFO_V1(timestamp_to_rdfnode);
PG_FUNCTION_INFO_V1(timestamp_eq_rdfnode);
PG_FUNCTION_INFO_V1(timestamp_neq_rdfnode);
PG_FUNCTION_INFO_V1(timestamp_lt_rdfnode);
PG_FUNCTION_INFO_V1(timestamp_gt_rdfnode);
PG_FUNCTION_INFO_V1(timestamp_le_rdfnode);
PG_FUNCTION_INFO_V1(timestamp_ge_rdfnode);

/* date */
PG_FUNCTION_INFO_V1(rdfnode_to_date);
PG_FUNCTION_INFO_V1(rdfnode_eq_date);
PG_FUNCTION_INFO_V1(rdfnode_neq_date);
PG_FUNCTION_INFO_V1(rdfnode_lt_date);
PG_FUNCTION_INFO_V1(rdfnode_gt_date);
PG_FUNCTION_INFO_V1(rdfnode_le_date);
PG_FUNCTION_INFO_V1(rdfnode_ge_date);
PG_FUNCTION_INFO_V1(date_to_rdfnode);
PG_FUNCTION_INFO_V1(date_eq_rdfnode);
PG_FUNCTION_INFO_V1(date_neq_rdfnode);
PG_FUNCTION_INFO_V1(date_lt_rdfnode);
PG_FUNCTION_INFO_V1(date_gt_rdfnode);
PG_FUNCTION_INFO_V1(date_le_rdfnode);
PG_FUNCTION_INFO_V1(date_ge_rdfnode);

/* time (time without time zone) */
PG_FUNCTION_INFO_V1(rdfnode_to_time);
PG_FUNCTION_INFO_V1(rdfnode_eq_time);
PG_FUNCTION_INFO_V1(rdfnode_neq_time);
PG_FUNCTION_INFO_V1(rdfnode_lt_time);
PG_FUNCTION_INFO_V1(rdfnode_gt_time);
PG_FUNCTION_INFO_V1(rdfnode_le_time);
PG_FUNCTION_INFO_V1(rdfnode_ge_time);
PG_FUNCTION_INFO_V1(time_to_rdfnode);
PG_FUNCTION_INFO_V1(time_eq_rdfnode);
PG_FUNCTION_INFO_V1(time_neq_rdfnode);
PG_FUNCTION_INFO_V1(time_lt_rdfnode);
PG_FUNCTION_INFO_V1(time_gt_rdfnode);
PG_FUNCTION_INFO_V1(time_le_rdfnode);
PG_FUNCTION_INFO_V1(time_ge_rdfnode);

/* timetz (time witho time zone) */
PG_FUNCTION_INFO_V1(rdfnode_to_timetz);
PG_FUNCTION_INFO_V1(rdfnode_eq_timetz);
PG_FUNCTION_INFO_V1(rdfnode_neq_timetz);
PG_FUNCTION_INFO_V1(rdfnode_lt_timetz);
PG_FUNCTION_INFO_V1(rdfnode_gt_timetz);
PG_FUNCTION_INFO_V1(rdfnode_le_timetz);
PG_FUNCTION_INFO_V1(rdfnode_ge_timetz);
PG_FUNCTION_INFO_V1(timetz_to_rdfnode);
PG_FUNCTION_INFO_V1(timetz_eq_rdfnode);
PG_FUNCTION_INFO_V1(timetz_neq_rdfnode);
PG_FUNCTION_INFO_V1(timetz_lt_rdfnode);
PG_FUNCTION_INFO_V1(timetz_gt_rdfnode);
PG_FUNCTION_INFO_V1(timetz_le_rdfnode);
PG_FUNCTION_INFO_V1(timetz_ge_rdfnode);

/* boolean */
PG_FUNCTION_INFO_V1(rdfnode_to_boolean);
PG_FUNCTION_INFO_V1(rdfnode_eq_boolean);
PG_FUNCTION_INFO_V1(rdfnode_neq_boolean);
PG_FUNCTION_INFO_V1(boolean_to_rdfnode);
PG_FUNCTION_INFO_V1(boolean_eq_rdfnode);
PG_FUNCTION_INFO_V1(boolean_neq_rdfnode);

/* interval */
PG_FUNCTION_INFO_V1(rdfnode_to_interval);
PG_FUNCTION_INFO_V1(rdfnode_eq_interval);
PG_FUNCTION_INFO_V1(rdfnode_neq_interval);
PG_FUNCTION_INFO_V1(rdfnode_lt_interval);
PG_FUNCTION_INFO_V1(rdfnode_gt_interval);
PG_FUNCTION_INFO_V1(rdfnode_le_interval);
PG_FUNCTION_INFO_V1(rdfnode_ge_interval);
PG_FUNCTION_INFO_V1(interval_to_rdfnode);
PG_FUNCTION_INFO_V1(interval_eq_rdfnode);
PG_FUNCTION_INFO_V1(interval_neq_rdfnode);
PG_FUNCTION_INFO_V1(interval_lt_rdfnode);
PG_FUNCTION_INFO_V1(interval_gt_rdfnode);
PG_FUNCTION_INFO_V1(interval_le_rdfnode);
PG_FUNCTION_INFO_V1(interval_ge_rdfnode);

static void rdfGetForeignRelSize(PlannerInfo *root, RelOptInfo *baserel, Oid foreigntableid);
static void rdfGetForeignPaths(PlannerInfo *root, RelOptInfo *baserel, Oid foreigntableid);
static ForeignScan *rdfGetForeignPlan(PlannerInfo *root, RelOptInfo *baserel, Oid foreigntableid, ForeignPath *best_path, List *tlist, List *scan_clauses, Plan *outer_plan);
static void rdfBeginForeignScan(ForeignScanState *node, int eflags);
static void rdfExplainForeignScan(ForeignScanState *node, ExplainState *es);
static TupleTableSlot *rdfIterateForeignScan(ForeignScanState *node);
static void rdfReScanForeignScan(ForeignScanState *node);
static void rdfEndForeignScan(ForeignScanState *node);
static void rdfAddForeignUpdateTargets(
#if PG_VERSION_NUM >= 140000
	PlannerInfo *root,
	Index rtindex,
#else
	Query *parsetree,
#endif
	RangeTblEntry *target_rte, Relation target_relation);
static List *rdfPlanForeignModify(PlannerInfo *root, ModifyTable *plan, Index resultRelation, int subplan_index);
static void rdfBeginForeignModify(ModifyTableState *mtstate, ResultRelInfo *rinfo, List *fdw_private, int subplan_index, int eflags);
static TupleTableSlot *rdfExecForeignInsert(EState *estate, ResultRelInfo *rinfo, TupleTableSlot *slot, TupleTableSlot *planSlot);
static TupleTableSlot *rdfExecForeignDelete(EState *estate, ResultRelInfo *rinfo, TupleTableSlot *slot, TupleTableSlot *planSlot);
static TupleTableSlot *rdfExecForeignUpdate(EState *estate, ResultRelInfo *rinfo, TupleTableSlot *slot, TupleTableSlot *planSlot);
static void rdfEndForeignModify(EState *estate, ResultRelInfo *rinfo);
#if PG_VERSION_NUM >= 110000
static void rdfBeginForeignInsert(ModifyTableState *mtstate, ResultRelInfo *rinfo);
static void rdfEndForeignInsert(EState *estate, ResultRelInfo *rinfo);
static int InsertRetrievedData(RDFfdwState *state, int offset, int fetch_size);
static Oid GetRelOidFromName(char *relname, char *code);
#endif /*PG_VERSION_NUM */
static Datum CreateDatum(HeapTuple tuple, int pgtype, int pgtypmod, char *value);
static List *DescribeIRI(RDFfdwState *state);
static void LoadRDFTableInfo(RDFfdwState *state);
static void LoadRDFServerInfo(RDFfdwState *state);
static void LoadRDFUserMapping(RDFfdwState *state);
static int ExecuteSPARQL(RDFfdwState *state);
static void CreateTuple(TupleTableSlot *slot, RDFfdwState *state);
static void LoadRDFData(RDFfdwState *state);
static xmlNodePtr FetchNextBinding(RDFfdwState *state);
static List *SerializePlanData(RDFfdwState *state);
static struct RDFfdwState *DeserializePlanData(List *list);
static void InitSession(struct RDFfdwState *state, RelOptInfo *baserel, PlannerInfo *root);
static struct RDFfdwColumn *GetRDFColumn(struct RDFfdwState *state, char *columnname);
static void CreateSPARQL(RDFfdwState *state, PlannerInfo *root);
static void SetUsedColumns(Expr *expr, struct RDFfdwState *state, int foreignrelid);
static char *DeparseSQLLimit(struct RDFfdwState *state, PlannerInfo *root, RelOptInfo *baserel);
static char *DeparseSQLWhereConditions(struct RDFfdwState *state, RelOptInfo *baserel);
static char *DeparseSPARQLWhereGraphPattern(struct RDFfdwState *state);
static char *DatumToString(Datum datum, Oid type);
static char *DeparseExpr(struct RDFfdwState *state, RelOptInfo *foreignrel, Expr *expr);
static char *DeparseSQLOrderBy(struct RDFfdwState *state, PlannerInfo *root, RelOptInfo *baserel);
static char *DeparseSPARQLFrom(char *raw_sparql);
static void ExtractSPARQLPrefixes(struct RDFfdwState *state);
static Oid GetRDFNodeOID(void);
static void LoadPrefixes(RDFfdwState *state);

Datum rdf_fdw_handler(PG_FUNCTION_ARGS)
{
	FdwRoutine *fdwroutine = makeNode(FdwRoutine);

	/* Scan callbacks */
	fdwroutine->GetForeignRelSize = rdfGetForeignRelSize;
	fdwroutine->GetForeignPaths = rdfGetForeignPaths;
	fdwroutine->GetForeignPlan = rdfGetForeignPlan;
	fdwroutine->BeginForeignScan = rdfBeginForeignScan;
	fdwroutine->ExplainForeignScan = rdfExplainForeignScan;
	fdwroutine->IterateForeignScan = rdfIterateForeignScan;
	fdwroutine->ReScanForeignScan = rdfReScanForeignScan;
	fdwroutine->EndForeignScan = rdfEndForeignScan;

	/* Modify callbacks (for INSERT/UPDATE/DELETE) */
	fdwroutine->AddForeignUpdateTargets = rdfAddForeignUpdateTargets;
	fdwroutine->PlanForeignModify = rdfPlanForeignModify;
	fdwroutine->BeginForeignModify = rdfBeginForeignModify;
	fdwroutine->ExecForeignInsert = rdfExecForeignInsert;
	fdwroutine->ExecForeignUpdate = rdfExecForeignUpdate;
	fdwroutine->ExecForeignDelete = rdfExecForeignDelete;
	fdwroutine->EndForeignModify = rdfEndForeignModify;
#if PG_VERSION_NUM >= 110000
	fdwroutine->BeginForeignInsert = rdfBeginForeignInsert;
	fdwroutine->EndForeignInsert = rdfEndForeignInsert;
#endif /*PG_VERSION_NUM */

	PG_RETURN_POINTER(fdwroutine);
}

Datum rdf_fdw_version(PG_FUNCTION_ARGS)
{
	StringInfoData buffer;
	curl_version_info_data *ver = curl_version_info(CURLVERSION_NOW);

	initStringInfo(&buffer);

	appendStringInfo(&buffer, "rdf_fdw %s (PostgreSQL %s",
					 FDW_VERSION,
					 PG_VERSION);

#ifdef RDF_FDW_CC
	appendStringInfo(&buffer, ", compiled by %s", RDF_FDW_CC);
#endif

	appendStringInfo(&buffer, ", libxml %s, libcurl %s)",
					 LIBXML_DOTTED_VERSION,
					 ver->version);

	PG_RETURN_TEXT_P(cstring_to_text(buffer.data));
}

Datum rdf_fdw_settings(PG_FUNCTION_ARGS)
{
	StringInfoData buffer;
	curl_version_info_data *ver = curl_version_info(CURLVERSION_NOW);

	initStringInfo(&buffer);

	appendStringInfo(&buffer, "rdf_fdw %s,", FDW_VERSION);
	appendStringInfo(&buffer, "PostgreSQL %s,", PG_VERSION);
	appendStringInfo(&buffer, "libxml %s,", LIBXML_DOTTED_VERSION);
	appendStringInfo(&buffer, "libcurl %s,", ver->version);

	if (ver->ssl_version)
		appendStringInfo(&buffer, "ssl %s,", ver->ssl_version);
	if (ver->libz_version)
		appendStringInfo(&buffer, "zlib %s,", ver->libz_version);
	if (ver->libssh_version)
		appendStringInfo(&buffer, "libSSH %s,", ver->libssh_version);
	if (ver->nghttp2_version)
		appendStringInfo(&buffer, "nghttp2 %s,", ver->nghttp2_version);

#ifdef RDF_FDW_CC
	appendStringInfo(&buffer, "compiled by %s,", RDF_FDW_CC);
#endif

#ifdef RDF_FDW_BUILD_DATE
	appendStringInfo(&buffer, "built on %s", RDF_FDW_BUILD_DATE);
#endif

	PG_RETURN_TEXT_P(cstring_to_text(buffer.data));
}

Datum rdf_fdw_lang(PG_FUNCTION_ARGS)
{
	text *input_text = PG_GETARG_TEXT_PP(0);
	char *literal = text_to_cstring(input_text);
	char *result = lang(literal);

	PG_RETURN_TEXT_P(cstring_to_text(result));
}

Datum rdf_fdw_strlang(PG_FUNCTION_ARGS)
{
	text *input_text = PG_GETARG_TEXT_PP(0);
	text *lang_tag = PG_GETARG_TEXT_PP(1);

	char *literal = strlang(
		text_to_cstring(input_text),
		text_to_cstring(lang_tag));

	PG_RETURN_TEXT_P(cstring_to_text(literal));
}

Datum rdf_fdw_strdt(PG_FUNCTION_ARGS)
{
	text *input_text = PG_GETARG_TEXT_PP(0);
	text *data_type = PG_GETARG_TEXT_PP(1);
	char *literal;

	elog(DEBUG3, "%s called", __func__);

	literal = strdt(
		text_to_cstring(input_text),
		text_to_cstring(data_type));

	PG_RETURN_TEXT_P(cstring_to_text(literal));
}

Datum rdf_fdw_str(PG_FUNCTION_ARGS)
{
	text *input_text = PG_GETARG_TEXT_PP(0);
	char *input_cstr = text_to_cstring(input_text);
	char *result = str(input_cstr);

	elog(DEBUG3, "%s called", __func__);

	PG_RETURN_TEXT_P(cstring_to_text(result));
}

Datum rdf_fdw_iri(PG_FUNCTION_ARGS)
{
	text *input_text = PG_GETARG_TEXT_PP(0);
	char *input_cstr = text_to_cstring(input_text);
	char *result = iri(input_cstr);

	elog(DEBUG3, "%s called", __func__);

	PG_RETURN_TEXT_P(cstring_to_text(result));
}

Datum rdf_fdw_isIRI(PG_FUNCTION_ARGS)
{
	text *input_text;
	char *input_cstr;
	bool result;

	elog(DEBUG3, "%s called", __func__);

	if (PG_ARGISNULL(0))
		PG_RETURN_BOOL(false);

	input_text = PG_GETARG_TEXT_PP(0);
	input_cstr = text_to_cstring(input_text);
	result = isIRI(input_cstr);

	PG_RETURN_BOOL(result);
}

Datum rdf_fdw_datatype(PG_FUNCTION_ARGS)
{
	Oid argtype = get_fn_expr_argtype(fcinfo->flinfo, 0);
	char *langtag;
	char *result;
	char *arg;

	elog(DEBUG3, "%s called", __func__);

	RDFNODEOID = GetRDFNodeOID();

	if (argtype == TEXTOID || argtype == VARCHAROID || argtype == RDFNODEOID)
	{
		arg = text_to_cstring(PG_GETARG_TEXT_PP(0));

		/* return NULL if arg is a blank node or IRI */
		if (isIRI(arg) || isBlank(arg))
			PG_RETURN_NULL();

		langtag = lang(arg);

		/*
		 * in RDF 1.1, language-tagged literals (like "foo"@es) have the
		 * xsd:langString datatype
		 */
		if (strlen(langtag) != 0)
			PG_RETURN_TEXT_P(cstring_to_text(RDF_LANGUAGE_LITERAL_DATATYPE));

		result = datatype(arg);

		/*
		 * an untyped literal like "" is treated as having the datatype xsd:string
		 * in RDF 1.1 and SPARQL 1.1.
		 */
		if (strlen(result) == 0)
			PG_RETURN_TEXT_P(cstring_to_text(RDF_XSD_STRING));

		PG_RETURN_TEXT_P(cstring_to_text(result));
	}
	else if (argtype == NAMEOID)
	{
		arg = NameStr(*PG_GETARG_NAME(0));

		/* return NULL if arg is a blank node or IRI */
		if (isIRI(arg) || isBlank(arg))
			PG_RETURN_NULL();

		langtag = lang(arg);

		/*
		 * In RDF 1.1, language-tagged literals (like "foo"@es) have the
		 * xsd:langString datatype:
		 */
		if (strlen(langtag) != 0)
			PG_RETURN_TEXT_P(cstring_to_text(RDF_LANGUAGE_LITERAL_DATATYPE));

		result = datatype(arg);

		/*
		 * an untyped literal like "" is treated as having the datatype xsd:string
		 * in RDF 1.1 and SPARQL 1.1.
		 */
		if (strlen(result) == 0)
			PG_RETURN_TEXT_P(cstring_to_text(RDF_XSD_STRING));

		PG_RETURN_TEXT_P(cstring_to_text(result));
	}
	else
	{
		char *xsd_type = MapSPARQLDatatype(argtype);

		if (xsd_type)
		{
			StringInfoData buf;
			initStringInfo(&buf);
			appendStringInfoString(&buf, RDF_XSD_BASE_URI);
			appendStringInfoString(&buf, xsd_type);

			PG_RETURN_TEXT_P(cstring_to_text(iri(buf.data)));
		}

		ereport(ERROR,
				(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
				 errmsg("Unsupported input type for rdf_fdw_datatype: %u", argtype)));
	}
}

Datum rdf_fdw_encode_for_uri(PG_FUNCTION_ARGS)
{
	text *input = PG_GETARG_TEXT_PP(0);
	char *str_in = text_to_cstring(input);
	char *result = encode_for_uri(str(str_in));

	elog(DEBUG3, "%s called", __func__);

	PG_RETURN_TEXT_P(cstring_to_text(result));
}

Datum rdf_fdw_contains(PG_FUNCTION_ARGS)
{
	text *str_arg = PG_GETARG_TEXT_PP(0);
	text *substr_arg = PG_GETARG_TEXT_PP(1);
	char *str = text_to_cstring(str_arg);
	char *substr = text_to_cstring(substr_arg);
	char *lang_str = lang(str);

	if (strlen(lang_str) != 0)
	{
		char *lang_substr = lang(substr);

		if (strlen(lang_substr) != 0 && pg_strcasecmp(lang_str, lang_substr) != 0)
		{
			elog(DEBUG3, "%s exit: returning NULL (string and substring have different languag tags)", __func__);
			PG_RETURN_NULL();
		}
	}

	PG_RETURN_BOOL(contains(str, substr));
}

Datum rdf_fdw_arguments_compatible(PG_FUNCTION_ARGS)
{
	text *arg1 = PG_GETARG_TEXT_PP(0);
	text *arg2 = PG_GETARG_TEXT_PP(1);

	elog(DEBUG3, "%s called", __func__);

	PG_RETURN_BOOL(LiteralsCompatible(text_to_cstring(arg1), text_to_cstring(arg2)));
}

Datum rdf_fdw_strbefore(PG_FUNCTION_ARGS)
{
	text *str_arg = PG_GETARG_TEXT_PP(0);
	text *delimiter_arg = PG_GETARG_TEXT_PP(1);
	char *str = text_to_cstring(str_arg);
	char *delimiter = text_to_cstring(delimiter_arg);
	
	if (!LiteralsCompatible(str, delimiter))
	{
		elog(DEBUG1, "%s exit: returning NULL (literals no compatible)", __func__);
		PG_RETURN_NULL();
	}

	PG_RETURN_TEXT_P(cstring_to_text(strbefore(str, delimiter)));
}

Datum rdf_fdw_strafter(PG_FUNCTION_ARGS)
{
	text *str_arg = PG_GETARG_TEXT_PP(0);
	text *delimiter_arg = PG_GETARG_TEXT_PP(1);
	char *str = text_to_cstring(str_arg);
	char *delimiter = text_to_cstring(delimiter_arg);
	
	if (!LiteralsCompatible(str, delimiter))
	{
		elog(DEBUG1, "%s exit: returning NULL (literals no compatible)", __func__);
		PG_RETURN_NULL();
	}

	PG_RETURN_TEXT_P(cstring_to_text(strafter(str, delimiter)));
}

Datum rdf_fdw_strstarts(PG_FUNCTION_ARGS)
{
	text *str_arg = PG_GETARG_TEXT_PP(0);
	text *substr_arg = PG_GETARG_TEXT_PP(1);
	char *str = text_to_cstring(str_arg);
	char *substr = text_to_cstring(substr_arg);

	elog(DEBUG3, "%s called: str='%s', substr='%s'", __func__, str, substr);

	if (!LiteralsCompatible(str, substr))
	{
		elog(DEBUG3, "%s exit: returning NULL (incompatible literals)", __func__);
		PG_RETURN_NULL();
	}

	PG_RETURN_BOOL(strstarts(str, substr));
}

Datum rdf_fdw_strends(PG_FUNCTION_ARGS)
{
	text *str_arg = PG_GETARG_TEXT_PP(0);
	text *substr_arg = PG_GETARG_TEXT_PP(1);
	char *str = text_to_cstring(str_arg);
	char *substr = text_to_cstring(substr_arg);

	if (!LiteralsCompatible(str, substr))
		PG_RETURN_NULL();

	PG_RETURN_BOOL(strends(str, substr));
}

Datum rdf_fdw_langmatches(PG_FUNCTION_ARGS)
{
	text *lang_tag_text = PG_GETARG_TEXT_PP(0);
	text *pattern_text = PG_GETARG_TEXT_PP(1);
	char *lang_tag = text_to_cstring(lang_tag_text);
	char *pattern = text_to_cstring(pattern_text);
	bool result = langmatches(lang_tag, pattern);

	PG_RETURN_BOOL(result);
}

Datum rdf_fdw_isBlank(PG_FUNCTION_ARGS)
{
	text *term_text = PG_GETARG_TEXT_PP(0);
	char *term = text_to_cstring(term_text);
	bool result = isBlank(term);

	PG_RETURN_BOOL(result);
}

Datum rdf_fdw_isNumeric(PG_FUNCTION_ARGS)
{
	text *input_text;
	bool result;

	if (PG_ARGISNULL(0))
		PG_RETURN_BOOL(false);

	input_text = PG_GETARG_TEXT_PP(0);
	result = isNumeric(text_to_cstring(input_text));

	PG_RETURN_BOOL(result);
}

Datum rdf_fdw_isLiteral(PG_FUNCTION_ARGS)
{
	text *input_text;
	char *term;
	bool result;

	elog(DEBUG3, "%s called", __func__);

	if (PG_ARGISNULL(0))
		PG_RETURN_BOOL(false);

	input_text = PG_GETARG_TEXT_PP(0);
	term = text_to_cstring(input_text);

	result = isLiteral(term);

	/* Clean up input string */
	pfree(term);

	PG_RETURN_BOOL(result);
}

Datum rdf_fdw_bnode(PG_FUNCTION_ARGS)
{
	char *result;
	text *input_text;

	elog(DEBUG3, "%s called", __func__);

	/* Check number of arguments to distinguish BNODE() vs BNODE(str) */
	if (fcinfo->nargs == 0)
	{
		/* BNODE(): No arguments, generate unique blank node */
		result = bnode(NULL);
	}
	else
	{
		/* BNODE(str): String argument, check for NULL */
		if (PG_ARGISNULL(0))
			PG_RETURN_NULL();

		input_text = PG_GETARG_TEXT_PP(0);
		result = bnode(text_to_cstring(input_text));
	}

	if (result == NULL)
		PG_RETURN_NULL();

	PG_RETURN_TEXT_P(cstring_to_text(result));
}

Datum rdf_fdw_uuid(PG_FUNCTION_ARGS)
{
	StringInfoData buf;
	char *uuid_str;
	char *result;
	char *funcname;
	int *is_uuid_ptr;
	int is_uuid;

	elog(DEBUG3, "%s called", __func__);

	/* Initialize or retrieve function type from fn_extra */
	if (fcinfo->flinfo->fn_extra == NULL)
	{
		funcname = get_func_name(fcinfo->flinfo->fn_oid);
		is_uuid_ptr = palloc(sizeof(int));
		*is_uuid_ptr = (strcmp(funcname, "uuid") == 0) ? 1 : 0;
		fcinfo->flinfo->fn_extra = is_uuid_ptr;
		pfree(funcname);
	}
	is_uuid = *(int *)fcinfo->flinfo->fn_extra;

	/* Generate UUID */
	uuid_str = generate_uuid_v4();

	/* Format output based on function */
	initStringInfo(&buf);
	if (is_uuid)
		appendStringInfo(&buf, "<urn:uuid:%s>", uuid_str);
	else
		appendStringInfoString(&buf, cstring_to_rdfliteral(uuid_str));

	pfree(uuid_str);

	/* Return as text */
	result = pstrdup(buf.data);
	pfree(buf.data);
	PG_RETURN_TEXT_P(cstring_to_text(result));
}

Datum rdf_fdw_lcase(PG_FUNCTION_ARGS)
{
	text *input = PG_GETARG_TEXT_PP(0);
	char *str = text_to_cstring(input);

	PG_RETURN_TEXT_P(cstring_to_text(lcase(str)));
}

Datum rdf_fdw_ucase(PG_FUNCTION_ARGS)
{
	text *input = PG_GETARG_TEXT_PP(0);
	char *str = text_to_cstring(input);

	PG_RETURN_TEXT_P(cstring_to_text(ucase(str)));
}

Datum rdf_fdw_strlen(PG_FUNCTION_ARGS)
{
	text *input;
	char *str;
	int result;

	elog(DEBUG3, "%s called", __func__);

	/* STRICT handles NULL input */
	input = PG_GETARG_TEXT_PP(0);
	str = text_to_cstring(input);

	result = strlen_rdf(str);

	PG_RETURN_INT32(result);
}

Datum rdf_fdw_substr(PG_FUNCTION_ARGS)
{
	text *input;
	int32 start;
	char *str;
	char *result;

	elog(DEBUG3, "%s called", __func__);

	if (PG_ARGISNULL(0) || PG_ARGISNULL(1))
		PG_RETURN_NULL();

	input = PG_GETARG_TEXT_PP(0);
	start = PG_GETARG_INT32(1);
	str = text_to_cstring(input);

	if (strlen(str) == 0)
		PG_RETURN_TEXT_P(cstring_to_text(cstring_to_rdfliteral("")));

	if (PG_NARGS() == 3 && !PG_ARGISNULL(2))
	{
		int32 length = PG_GETARG_INT32(2);
		result = substr_sparql(str, start, length);
	}
	else
		result = substr_sparql(str, start, -1);

	PG_RETURN_TEXT_P(cstring_to_text(result));
}

Datum rdf_fdw_concat(PG_FUNCTION_ARGS)
{
	ArrayType *arr = PG_GETARG_ARRAYTYPE_P(0);
	Oid element_type = ARR_ELEMTYPE(arr);
	int nelems;
	Datum *elems;
	bool *nulls;
	char *str = NULL;
	text *result;

	/* Deconstruct the array into individual elements */
	deconstruct_array(arr, element_type, -1, false, 'i', &elems, &nulls, &nelems);

	elog(DEBUG3, "%s called: nelems='%d'", __func__, nelems);

	for (int i = 0; i < nelems; i++)
	{
		char *el;

		if (nulls[i])
			PG_RETURN_NULL();

		el = DatumToString(elems[i], TEXTOID);

		if (str == NULL)
			str = el;
		else
		{
			char *tmp = concat(str, el);
			if (str != el) /* avoid freeing reused pointers */
				pfree(str);
			str = tmp;
		}
	}

	if (str == NULL || strlen(str) == 0)
	{
		elog(DEBUG1, "%s exit: returning NULL", __func__);
		PG_RETURN_NULL();
	}

	result = cstring_to_text(str);
	PG_RETURN_TEXT_P(result);
}

Datum rdf_fdw_lex(PG_FUNCTION_ARGS)
{
	char *literal = text_to_cstring(PG_GETARG_TEXT_PP(0));
	char *result = lex(literal);

	PG_RETURN_TEXT_P(cstring_to_text(result));
}

/* MD5 produces a 16 byte (128 bit) hash */
#define MD5_HASH_LEN 32
Datum rdf_fdw_md5(PG_FUNCTION_ARGS)
{
	text *in_text = PG_GETARG_TEXT_PP(0);
	char hexsum[MD5_HASH_LEN + 1];
	char *cstr = lex(text_to_cstring(in_text));
	size_t len = strlen(cstr);
#if PG_VERSION_NUM >= 150000
	const char *errstr = NULL;

	elog(DEBUG3, "%s called: str='%s', lex='%s'", __func__, text_to_cstring(in_text), cstr);

	if (pg_md5_hash(cstr, len, hexsum, &errstr) == false)
		ereport(ERROR,
				(errcode(ERRCODE_INTERNAL_ERROR),
				 errmsg("could not compute md5 hash: %s", errstr)));
#else
	elog(DEBUG3, "%s: called str='%s', lex='%s'", __func__, text_to_cstring(in_text), cstr);
	if (pg_md5_hash(cstr, len, hexsum) == false)
		ereport(ERROR,
				(errcode(ERRCODE_INTERNAL_ERROR),
				 errmsg("could not compute md5 hash")));
#endif

	PG_RETURN_TEXT_P(cstring_to_text(str(hexsum)));
}

Datum rdf_fdw_bound(PG_FUNCTION_ARGS)
{
	elog(DEBUG3, "%s called", __func__);

	if (PG_ARGISNULL(0))
		PG_RETURN_BOOL(false);
	else
		PG_RETURN_BOOL(true);
}

Datum rdf_fdw_sameterm(PG_FUNCTION_ARGS)
{
	text *a = PG_GETARG_TEXT_PP(0);
	text *b = PG_GETARG_TEXT_PP(1);
	char *term1 = text_to_cstring(a);
	char *term2 = text_to_cstring(b);
	bool result;

	elog(DEBUG3, "%s called: term1='%s' term2='%s'", __func__, term1, term2);

	result = strcmp(term1, term2) == 0;

	elog(DEBUG3, "%s exit: returning '%s'", __func__, result == 0 ? "true" : "false");

	PG_RETURN_BOOL(result);
}

Datum rdf_fdw_coalesce(PG_FUNCTION_ARGS)
{
	ArrayType *arr = PG_GETARG_ARRAYTYPE_P(0);
	Oid element_type = ARR_ELEMTYPE(arr);
	int nelems;
	Datum *elems;
	bool *nulls;

	/* deconstruct the array into individual elements */
	deconstruct_array(arr, element_type, -1, false, 'i', &elems, &nulls, &nelems);

	elog(DEBUG1, "%s called: nelems='%d'", __func__, nelems);

	/* loop over each element to find the first non-null one */
	for (int i = 0; i < nelems; i++)
	{
		if (!nulls[i])
		{
			/* convert the Datum to a cstring (assuming text) */
			char *el = DatumToString(elems[i], TEXTOID);
			char *rdfnode;
			text *result;
			Datum res;

			if (isIRI(el) || isBlank(el))
				rdfnode = el;
			else if (isLiteral(el))
			{
				char *dt = datatype(el);

				if (strlen(dt) != 0)
					rdfnode = strdt(el, dt);
				else
					rdfnode = el;
			}
			else
				rdfnode = cstring_to_rdfliteral(el);

			result = cstring_to_text(rdfnode);
			res = PointerGetDatum(result);

			PG_RETURN_DATUM(res);
		}
	}

	elog(DEBUG1, "%s exit: returning NULL", __func__);
	PG_RETURN_NULL();
}

/*
 * CreateDatum
 * -----------
 *
 * Creates a Datum from a given value based on the postgres types and modifiers.
 *
 * tuple: a Heaptuple
 * pgtype: postgres type
 * pgtypemod: postgres type modifier
 * value: value to be converted
 *
 * returns Datum
 */
static Datum CreateDatum(HeapTuple tuple, int pgtype, int pgtypmod, char *value)
{
	regproc typinput;

	elog(DEBUG3, "%s called", __func__);

	tuple = SearchSysCache1(TYPEOID, ObjectIdGetDatum(pgtype));

	if (!HeapTupleIsValid(tuple))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_INVALID_DATA_TYPE),
				 errmsg("cache lookup failed for type %u (osm_id)", pgtype)));

	typinput = ((Form_pg_type)GETSTRUCT(tuple))->typinput;
	ReleaseSysCache(tuple);

	if (pgtype == FLOAT4OID ||
		pgtype == FLOAT8OID ||
		pgtype == NUMERICOID ||
		pgtype == TIMESTAMPOID ||
		pgtype == TIMESTAMPTZOID ||
		pgtype == VARCHAROID)
		return OidFunctionCall3(
			typinput,
			CStringGetDatum(value),
			ObjectIdGetDatum(InvalidOid),
			Int32GetDatum(pgtypmod));
	else
		return OidFunctionCall1(typinput, CStringGetDatum(value));
}

/*
 * DescribeIRI
 * -----------------
 *
 * Parses the RDF/XML DESCRIBE query result stored in state->xmldoc
 * and returns a list of RDFfdwTriple* with all triples returned
 * from the DESCRIBE SPARQL query.
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 */
static List *DescribeIRI(RDFfdwState *state)
{
	List *triples = NIL;
	xmlNodePtr root; 
	xmlNodePtr description_node;
	xmlNodePtr property_node;
	const xmlChar *rdf_ns = (const xmlChar *)RDF_RDF_BASE_URI;

	elog(DEBUG1, "%s called", __func__);

	if (state->xmldoc == NULL)
	{
		elog(WARNING, "%s: no XML document to process", __func__);
		return NIL;
	}

	root = xmlDocGetRootElement(state->xmldoc);
	if (root == NULL)
	{
		elog(WARNING, "%s: XML document is empty", __func__);
		return NIL;
	}

	/* Find the rdf:RDF element */
	if (xmlStrcmp(root->name, (const xmlChar *)RDF_SPARQL_RESULT_RDFROOT) != 0 ||
		root->ns == NULL || xmlStrcmp(root->ns->href, rdf_ns) != 0)
	{
		/* Search children and reposition root to point at <rdf:RDF> if found */
		for (root = root->children; root != NULL; root = root->next)
		{
			if (root->type == XML_ELEMENT_NODE &&
				xmlStrcmp(root->name, (const xmlChar *)RDF_SPARQL_RESULT_RDFROOT) == 0 &&
				root->ns != NULL && xmlStrcmp(root->ns->href, rdf_ns) == 0)
			{
				break;
			}
		}
	}

	if (root == NULL)
	{
		elog(WARNING, "%s: cannot find rdf:RDF element in DESCRIBE response", __func__);
		return NIL;
	}

	/* Iterate over rdf:Description nodes */
	for (description_node = root->children; description_node; description_node = description_node->next)
	{
		if (description_node->type == XML_ELEMENT_NODE &&
			xmlStrcmp(description_node->name, (const xmlChar *)RDF_SPARQL_RESULT_DESCRIPTION) == 0 &&
			description_node->ns != NULL && xmlStrcmp(description_node->ns->href, rdf_ns) == 0)
		{
			xmlChar *subject_str = xmlGetProp(description_node, (const xmlChar *)RDF_SPARQL_RESULT_ABOUT);
			if (!subject_str)
				subject_str = xmlGetProp(description_node, (const xmlChar *)RDF_SPARQL_RESULT_NODEID);

			if (!subject_str)
				continue;

			/* Iterate over property nodes */
			for (property_node = description_node->children; property_node; property_node = property_node->next)
			{
				if (property_node->type == XML_ELEMENT_NODE)
				{
					RDFfdwTriple *triple = palloc0(sizeof(RDFfdwTriple));
					char *predicate_str = NULL;
					xmlChar *resource = NULL;
					xmlChar *nodeID = NULL;
					xmlChar *literal_content = NULL;
					xmlChar *lang = NULL;
					xmlChar *datatype = NULL;

					/* Build predicate from namespace + local name */
					if (property_node->ns && property_node->ns->href)
					{
						StringInfoData predicate_buf;
						initStringInfo(&predicate_buf);
						appendStringInfoString(&predicate_buf, (char *)property_node->ns->href);
						appendStringInfoString(&predicate_buf, (char *)property_node->name);
						predicate_str = predicate_buf.data;
					}
					else
						predicate_str = pstrdup((char *)property_node->name);

					triple->subject = iri((char *)subject_str);
					triple->predicate = iri(predicate_str);

					/* Determine object type and value */
					resource = xmlGetProp(property_node, (const xmlChar *)RDF_SPARQL_RESULT_RESOURCE);
					nodeID = xmlGetProp(property_node, (const xmlChar *)RDF_SPARQL_RESULT_NODEID);
					literal_content = xmlNodeGetContent(property_node);

					if (resource)
					{
						/* Object is an IRI */
						triple->object = iri((char *)resource);
						xmlFree(resource);
					}
					else if (nodeID)
					{
						/* Object is a blank node */
						StringInfoData bnode;
						initStringInfo(&bnode);
						appendStringInfo(&bnode, "_:%s", (char *)nodeID);
						triple->object = bnode.data;
						xmlFree(nodeID);
					}
					else if (literal_content)
					{
						/* Object is a literal */
						lang = xmlGetProp(property_node, (const xmlChar *)RDF_SPARQL_RESULT_LITERAL_LANG);
						datatype = xmlGetProp(property_node, (const xmlChar *)RDF_SPARQL_RESULT_LITERAL_DATATYPE);

						/* Format value with language, datatype, or just a plain-literal */
						if (lang)
							triple->object = strlang((char *)literal_content, (char *)lang);
						else if (datatype)
							triple->object = strdt((char *)literal_content, (char *)datatype);
						else
							triple->object = cstring_to_rdfliteral((char *)literal_content);

						if (lang)
							xmlFree(lang);
						if (datatype)
							xmlFree(datatype);
					}

					if (literal_content)
						xmlFree(literal_content);

					triples = lappend(triples, triple);
				}
			}
			xmlFree(subject_str);
		}
	}

	elog(DEBUG1, "%s exit: parsed %d triples", __func__, list_length(triples));
	return triples;
}

/*
 * rdf_fdw_describe
 * -----------------
 *
 * Analog to DESCRIBE SPARQL queries. This function expects three arguments:
 * 'server', 'query', and 'base_uri', which are passed in positions 1, 2, and 3,
 * respectively. The 'base_uri' argument is optional and can be used to set the
 * base URI for possible relative references in the DESCRIBE query.
 */
Datum rdf_fdw_describe(PG_FUNCTION_ARGS)
{
	struct RDFfdwState *state = (struct RDFfdwState *)palloc0(sizeof(RDFfdwState));
	text *srvname_arg = PG_GETARG_TEXT_P(0);
	text *iri_arg = PG_GETARG_TEXT_P(1);
	text *base_uri_arg = PG_GETARG_TEXT_P(2);
	char *srvname;
	char *describe_query;
	char *base_uri;
	MemoryContext oldcontext;
	FuncCallContext *funcctx;
	AttInMetadata *attinmeta;
	TupleDesc tupdesc;
	int call_cntr;
	int max_calls;

	elog(DEBUG1, "%s called", __func__);

	if (SRF_IS_FIRSTCALL())
	{
		List *triples;
		funcctx = SRF_FIRSTCALL_INIT();
		oldcontext = MemoryContextSwitchTo(funcctx->multi_call_memory_ctx);

		elog(DEBUG1, "%s called (SRF_IS_FIRSTCALL)", __func__);

		if (VARSIZE_ANY_EXHDR(srvname_arg) == 0)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
					 errmsg("SERVER cannot be empty")));

		if (VARSIZE_ANY_EXHDR(iri_arg) == 0)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
					 errmsg("DESCRIBE pattern cannot be empty")));

		srvname = text_to_cstring(srvname_arg);
		describe_query = text_to_cstring(iri_arg);
		base_uri = text_to_cstring(base_uri_arg);

		if (*describe_query && strspn(describe_query, " \t\n\r") == strlen(describe_query))
			ereport(ERROR,
					(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
					 errmsg("a DESCRIBE pattern cannot contain only whitespace characters")));

		if (LocateKeyword(describe_query, " \n\t>", "DESCRIBE", " *?\n\t<", NULL, 0) == RDF_KEYWORD_NOT_FOUND)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
					 errmsg("invalid DESCRIBE query:\n\n%s\n", describe_query)));

		if (*srvname && strspn(srvname, " \t\n\r") == strlen(srvname))
			ereport(ERROR,
					(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
					 errmsg("a SERVER cannot contain only whitespace characters")));

		/*
		 * setting session's default values.
		 */
		state->enable_pushdown = true;
		state->log_sparql = false;
		state->has_unparsable_conds = false;
		state->query_param = RDF_DEFAULT_QUERY_PARAM;
		state->connect_timeout = RDF_DEFAULT_CONNECTTIMEOUT;
		state->max_retries = RDF_DEFAULT_MAXRETRY;
		state->fetch_size = RDF_DEFAULT_FETCH_SIZE;
		state->sparql_query_type = SPARQL_DESCRIBE;
		state->base_uri = RDF_DEFAULT_BASE_URI;

		elog(DEBUG2, "%s: loading server name '%s'", __func__, srvname);
		state->server = GetForeignServerByName(srvname, true);

		if (!state->server)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
					 errmsg("invalid SERVER: %s", quote_identifier(srvname))));

		/*
		 * loading SERVER OPTIONS
		 */
		LoadRDFServerInfo(state);

		/*
		 * Here we force the output format to RDF/XML, as by default no other format
		 * is expected from DESCRIBE requests.
		 */
		state->format = RDF_RDFXML_FORMAT;
		state->sparql = describe_query;

		/* We set a different base URI if it was provided in the function call */
		if (strlen(base_uri) != 0)
			state->base_uri = base_uri;

		/*
		 * Loading USER MAPPING (if any)
		 */
		LoadRDFUserMapping(state);

		/* Use new implementation */
		LoadRDFData(state);
		triples = DescribeIRI(state);
		funcctx->user_fctx = triples;

		if (triples)
			funcctx->max_calls = list_length(triples);
		if (get_call_result_type(fcinfo, NULL, &tupdesc) != TYPEFUNC_COMPOSITE)
			ereport(ERROR, (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
							errmsg("function returning record called in context that cannot accept type record")));

		attinmeta = TupleDescGetAttInMetadata(tupdesc);
		funcctx->attinmeta = attinmeta;

		MemoryContextSwitchTo(oldcontext);
	}

	funcctx = SRF_PERCALL_SETUP();

	call_cntr = funcctx->call_cntr;
	max_calls = funcctx->max_calls;
	attinmeta = funcctx->attinmeta;

	if (call_cntr < max_calls)
	{
		Datum values[3];
		bool nulls[3];
		HeapTuple tuple;
		Datum result;
		RDFfdwTriple *triple = (RDFfdwTriple *)list_nth((List *)funcctx->user_fctx, call_cntr);

		memset(nulls, 0, sizeof(nulls));

		for (size_t i = 0; i < funcctx->attinmeta->tupdesc->natts; i++)
		{
			Form_pg_attribute att = TupleDescAttr(funcctx->attinmeta->tupdesc, i);

			if (strcmp(NameStr(att->attname), "subject") == 0)
				values[i] = CreateDatum(tuple, att->atttypid, att->atttypmod, triple->subject);
			else if (strcmp(NameStr(att->attname), "predicate") == 0)
				values[i] = CreateDatum(tuple, att->atttypid, att->atttypmod, triple->predicate);
			else if (strcmp(NameStr(att->attname), "object") == 0)
				values[i] = CreateDatum(tuple, att->atttypid, att->atttypmod, triple->object);
			else
				nulls[i] = true;
		}

		elog(DEBUG2, "  %s: creating heap tuple", __func__);

		tuple = heap_form_tuple(funcctx->attinmeta->tupdesc, values, nulls);
		result = HeapTupleGetDatum(tuple);

		SRF_RETURN_NEXT(funcctx, result);
	}
	else
	{
		elog(DEBUG1, "%s exit", __func__);
		SRF_RETURN_DONE(funcctx);
	}
}

/*
 * rdf_fdw_clone_table
 * -----------------
 *
 * Materializes the content of a foreign table into a heap table.
 */
#if PG_VERSION_NUM >= 110000
Datum rdf_fdw_clone_table(PG_FUNCTION_ARGS)
{
	struct RDFfdwState *state = (struct RDFfdwState *)palloc0(sizeof(RDFfdwState));
	text *foreign_table_name;
	text *target_table_name;
	text *ordering_pgcolumn;
	text *sort_order;
	int begin_offset;
	int fetch_size;
	int max_records;
	bool create_table;
	bool verbose;
	bool commit_page;
	bool match = false;
	bool orderby_query = true;
	TupleDesc tupdesc;

	char *orderby_variable = NULL;
	StringInfoData select;

	elog(DEBUG1, "%s called", __func__);

	if (PG_ARGISNULL(0))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'foreign_table' cannot be NULL")));
	else
		foreign_table_name = PG_GETARG_TEXT_P(0);

	if (PG_ARGISNULL(1))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'target_table' cannot be NULL")));
	else
		target_table_name = PG_GETARG_TEXT_P(1);

	if (PG_ARGISNULL(2))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'begin_offset' cannot be NULL"),
				 errhint("either set it to 0 or ignore the paramter to start the pagination from the beginning")));
	else
		begin_offset = PG_GETARG_INT32(2);

	if (PG_ARGISNULL(3))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'fetch_size' cannot be NULL")));
	else
		fetch_size = PG_GETARG_INT32(3);

	if (PG_ARGISNULL(4))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'max_records' cannot be NULL")));
	else
		max_records = PG_GETARG_INT32(4);

	if (PG_ARGISNULL(5))
		orderby_query = false;
	else
	{
		ordering_pgcolumn = PG_GETARG_TEXT_P(5);
		state->ordering_pgcolumn = text_to_cstring(ordering_pgcolumn);
	}

	if (PG_ARGISNULL(6))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'sort_order' cannot be NULL")));
	else
		sort_order = PG_GETARG_TEXT_P(6);

	if (PG_ARGISNULL(7))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'create_table' cannot be NULL")));
	else
		create_table = PG_GETARG_BOOL(7);

	if (PG_ARGISNULL(8))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'verbose' cannot be NULL")));
	else
		verbose = PG_GETARG_BOOL(8);

	if (PG_ARGISNULL(9))
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("'commit_page' cannot be NULL")));
	else
		commit_page = PG_GETARG_BOOL(9);

	if (strlen(text_to_cstring(foreign_table_name)) == 0)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("no 'foreign_table' provided")));

	if (strlen(text_to_cstring(target_table_name)) == 0)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("no 'target_table' provided")));
	else
		state->target_table_name = text_to_cstring(target_table_name);

	if (fetch_size < 0)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("invalid 'fetch_size': %d", fetch_size),
				 errhint("the page size corresponds to the number of records that are retrieved after each iteration and therefore must be a positive number")));

	if (max_records < 0)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("invalid 'max_records': %d", max_records),
				 errhint("'max_records' corresponds to the total number of records that are retrieved from the FOREIGN TABLE and therefore must be a positive number")));

	if (begin_offset < 0)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("invalid 'begin_offset': %d", begin_offset)));

	if (strcasecmp(text_to_cstring(sort_order), "ASC") != 0 &&
		strcasecmp(text_to_cstring(sort_order), "DESC") != 0)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("invalid 'sort_order': %s", text_to_cstring(sort_order)),
				 errhint("the 'sort_order' must be either 'ASC' (ascending) or 'DESC' (descending)")));

	state->foreigntableid = GetRelOidFromName(text_to_cstring(foreign_table_name), RDF_FOREIGN_TABLE_CODE);
	state->foreign_table = GetForeignTable(state->foreigntableid);
	state->server = GetForeignServer(state->foreign_table->serverid);

	state->sort_order = text_to_cstring(sort_order);
	state->enable_pushdown = false;
	state->query_param = RDF_DEFAULT_QUERY_PARAM;
	state->format = RDF_DEFAULT_FORMAT;
	state->connect_timeout = RDF_DEFAULT_CONNECTTIMEOUT;
	state->max_retries = RDF_DEFAULT_MAXRETRY;
	state->verbose = verbose;
	state->commit_page = commit_page;

	/*
	 * Load configured SERVER parameters
	 */
	LoadRDFServerInfo(state);

	/*
	 * Load configured FOREIGN TABLE parameters
	 */
	LoadRDFTableInfo(state);

	/*
	 * Here we try to create the target table with the name give in 'target_table'.
	 * This new table will be a clone of the queried FOREIGN TABLE, of couse without
	 * the table and column OPTIONS.
	 */
	if (create_table)
	{
		StringInfoData ct;
		SPI_connect();

		initStringInfo(&ct);
		appendStringInfo(&ct, "CREATE TABLE %s AS SELECT * FROM %s WITH NO DATA;",
						 state->target_table_name,
						 text_to_cstring(foreign_table_name));

		if (SPI_exec(NameStr(ct), 0) != SPI_OK_UTILITY)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_ERROR),
					 errmsg("unable to create target table '%s'", state->target_table_name)));

		if (verbose)
			elog(INFO, "Target TABLE \"%s\" created based on FOREIGN TABLE \"%s\":\n\n  %s\n",
				 text_to_cstring(target_table_name), text_to_cstring(foreign_table_name), NameStr(ct));

		SPI_finish();
	}

	/*
	 * at this point we are able to retrieve the target_table's Relation, as
	 * it either existed before the function call or was just created.
	 */
#if PG_VERSION_NUM < 130000
	state->target_table = heap_open(GetRelOidFromName(state->target_table_name, RDF_ORDINARY_TABLE_CODE), NoLock);
	heap_close(state->target_table, NoLock);
#else
	state->target_table = table_open(GetRelOidFromName(state->target_table_name, RDF_ORDINARY_TABLE_CODE), NoLock);
	table_close(state->target_table, NoLock);
#endif
	/*
	 * Here we check if the target table matches the columns of the
	 * FOREIGN TABLE.
	 */
	tupdesc = state->target_table->rd_att;

	elog(DEBUG2, "%s: checking if tables match", __func__);
	for (size_t ftidx = 0; ftidx < state->numcols; ftidx++)
	{
		for (size_t ttidx = 0; ttidx < state->target_table->rd_att->natts; ttidx++)
		{
			Form_pg_attribute attr = TupleDescAttr(tupdesc, ttidx);

			elog(DEBUG2, "%s: comparing %s - %s", __func__,
				 NameStr(attr->attname),
				 state->rdfTable->cols[ftidx]->name);

			if (strcmp(NameStr(attr->attname), state->rdfTable->cols[ftidx]->name) == 0)
			{
				state->rdfTable->cols[ftidx]->used = true;
				match = true;
			}
		}
	}

	/*
	 * If both foreign and target table share no column we better stop it right here.
	 */
	if (!match)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("target table mismatch"),
				 errhint("at least one column of '%s' must match with the FOREIGN TABLE '%s'",
						 state->target_table_name,
						 get_rel_name(state->foreigntableid))));

	elog(DEBUG2, "%s: validating 'fetch_size' tables match", __func__);
	if (fetch_size == 0)
	{
		if (state->fetch_size != 0)
			fetch_size = state->fetch_size;
		else
		{
			fetch_size = RDF_DEFAULT_FETCH_SIZE;
			if (verbose)
				elog(INFO, "setting 'fetch_size' to %d (default)", RDF_DEFAULT_FETCH_SIZE);
		}
	}

	elog(DEBUG2, "fetch_size = %d", fetch_size);
	elog(DEBUG2, "ordering_pgcolumn = '%s'", !orderby_query || strlen(state->ordering_pgcolumn) == 0 ? "NOT SET" : state->ordering_pgcolumn);

	initStringInfo(&select);
	for (int i = 0; i < state->numcols; i++)
	{
		/*
		 * Setting ORDER BY column for the SPARQL query. In case no column
		 * is provided, we pick up the first 'iri' column in the table.
		 */
		if (orderby_query)
		{
			if (strlen(state->ordering_pgcolumn) == 0 && orderby_variable == NULL)
			{
				if (state->rdfTable->cols[i]->nodetype &&
					strcmp(state->rdfTable->cols[i]->nodetype, RDF_COLUMN_OPTION_NODETYPE_IRI) == 0)
					orderby_variable = pstrdup(state->rdfTable->cols[i]->sparqlvar);
			}
			else if (strcmp(state->rdfTable->cols[i]->name, state->ordering_pgcolumn) == 0)
				orderby_variable = pstrdup(state->rdfTable->cols[i]->sparqlvar);
		}

		if (!state->rdfTable->cols[i]->expression)
			appendStringInfo(&select, "%s ", pstrdup(state->rdfTable->cols[i]->sparqlvar));
		else
			appendStringInfo(&select, "(%s AS %s) ",
							 pstrdup(state->rdfTable->cols[i]->expression),
							 pstrdup(state->rdfTable->cols[i]->sparqlvar));
	}

	/*
	 * If at this point no 'orderby_variable' was set, we set it to the first
	 * sparqlvar we can find in the table, so that we for sure have a variable
	 * to order by. This value might be overwritten in further iterations of this
	 * loop.
	 */
	if (orderby_query)
	{
		if (orderby_variable == NULL && strlen(state->ordering_pgcolumn) == 0 && state->rdfTable->cols[0]->sparqlvar)
		{
			elog(DEBUG2, "%s: setting ordering variable to '%s'", __func__, state->rdfTable->cols[0]->sparqlvar);
			orderby_variable = pstrdup(state->rdfTable->cols[0]->sparqlvar);
		}

		if (!orderby_variable && strlen(state->ordering_pgcolumn) != 0)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_ERROR),
					 errmsg("invalid 'ordering_column': %s", state->ordering_pgcolumn),
					 errhint("the column '%s' does not exist in the foreign table '%s'",
							 state->ordering_pgcolumn,
							 get_rel_name(state->foreigntableid))));

		elog(DEBUG2, "orderby_variable = '%s'", orderby_variable);
	}

	LoadPrefixes(state);

	state->sparql_from = DeparseSPARQLFrom(state->raw_sparql);
	elog(DEBUG2, "sparql_from = \n\n'%s'", state->sparql_from);

	state->sparql_select = NameStr(select);
	elog(DEBUG2, "sparql_select = \n\n'%s'", state->sparql_select);

	state->sparql_where = DeparseSPARQLWhereGraphPattern(state);
	elog(DEBUG2, "sparql_where = \n\n'%s'", state->sparql_where);

	state->inserted_records = 0;
	state->offset = begin_offset;

	if (verbose)
		elog(INFO, "\n\n== Parameters ==\n\nforeign_table: '%s'\ntarget_table: '%s'\ncreate_table: '%s'\nfetch_size: %d\nbegin_offset: %d\nmax_records: %d\nordering_column: '%s'\nordering sparql variable: '%s'\nsort_order: '%s'\n",
			 get_rel_name(state->foreigntableid),
			 state->target_table_name,
			 create_table == 1 ? "true" : "false",
			 fetch_size,
			 begin_offset,
			 max_records,
			 !orderby_query || strlen(state->ordering_pgcolumn) == 0 ? "NOT SET" : state->ordering_pgcolumn,
			 orderby_variable,
			 state->sort_order);

	while (true)
	{
		int ret = 0;
		int limit = fetch_size;
		StringInfoData limit_clause;

		/* stop iteration if the current offset is greater than max_records */
		if (max_records != 0 && state->inserted_records >= max_records)
		{
			elog(DEBUG2, "%s: number of retrieved records reached the limit of %d.\n\n  records inserted: %d\n  fetch size: %d\n",
				 __func__,
				 max_records,
				 state->inserted_records,
				 fetch_size);
			break;
		}

		/*
		 * if the current offset + fetch_size exceed the set limit we change
		 * the limit.
		 */
		if (max_records != 0 && state->inserted_records + fetch_size >= max_records)
			limit = max_records - state->inserted_records;

		/*
		 * pagesize and rowcount must be reset before every SPARQL query,
		 * as it contains the total number of records retrieved from the
		 * triplestore and the number of records processed for each request.
		 */
		state->pagesize = 0;
		state->rowcount = 0;

		/*
		 * changes the pagination of the query to match the parameters given
		 * in the function call. If the SPARQL query set in the FOREIGN TABLE
		 * already contains a OFFSET LIMIT, it will be overwritten by this string
		 */
		initStringInfo(&limit_clause);
		if (orderby_query)
			appendStringInfo(&limit_clause, "ORDER BY %s(%s) \nOFFSET %d LIMIT %d",
							 state->sort_order,
							 orderby_variable,
							 state->inserted_records == 0 && begin_offset == 0 ? 0 : state->offset,
							 limit);
		else
			appendStringInfo(&limit_clause, "OFFSET %d LIMIT %d",
							 state->inserted_records == 0 && begin_offset == 0 ? 0 : state->offset,
							 limit);

		state->sparql_limit = NameStr(limit_clause);

		/*
		 * create new SPARQL query with the pagination parameters
		 */
		CreateSPARQL(state, NULL);

		/*
		 * execute the newly created SPARQL and load it in 'state'. It updates
		 * state->pagesize!
		 */
		LoadRDFData(state);

		/* get out in case the SPARQL retrieves nothing */
		if (state->pagesize == 0)
		{
			elog(DEBUG2, "%s: SPARQL query returned nothing", __func__);
			break;
		}

		ret = InsertRetrievedData(state, state->offset, state->offset + fetch_size);

		elog(DEBUG2, "%s: InsertRetrievedData returned %d records", __func__, ret);

		state->inserted_records = state->inserted_records + ret;

		state->offset = state->offset + fetch_size;

		pfree(limit_clause.data);
	}

	elog(DEBUG1, "%s exit", __func__);
	PG_RETURN_VOID();
}

/*
 * InsertRetrievedData
 * -------------------
 *
 * Inserts data retrieved from the triplestore and stoted at the RDFfdwState.
 *
 * state     : records retrieved from the triple store and SPARQL, SERVER and
 * 			   FOREIGN TABLE info.
 * offset    : current offset in the data harvesting set by the caller
 * fetch_size: fetch_size (page size) in the data harvesting set by the caller
 */
static int InsertRetrievedData(RDFfdwState *state, int offset, int fetch_size)
{
	xmlNodePtr result;
	xmlNodePtr value;
	xmlNodePtr record;
	regproc typinput;
	HeapTuple tuple;
	Datum datum;

	int ret = -1;
	int processed_records = 0;

	elog(DEBUG1, "%s called", __func__);

	SPI_connect_ext(SPI_OPT_NONATOMIC);

	for (size_t rec = 0; rec < state->pagesize; rec++)
	{
		SPIPlanPtr pplan;
		Oid *ctypes = (Oid *)palloc(state->numcols * sizeof(Oid));
		StringInfoData insert_stmt;
		StringInfoData insert_cols;
		StringInfoData insert_pidx;

		Datum *cvals; /* column values */
		char *cnulls; /* column nulls */
		int colindex = 0;

		cvals = (Datum *)palloc(state->numcols * sizeof(Datum));
		cnulls = (char *)palloc(state->numcols * sizeof(char));
		initStringInfo(&insert_cols);
		initStringInfo(&insert_pidx);

		record = FetchNextBinding(state);

		for (int i = 0; i < state->numcols; i++)
		{
			char *sparqlvar = state->rdfTable->cols[i]->sparqlvar;
			char *colname = state->rdfTable->cols[i]->name;
			Oid pgtype = state->rdfTable->cols[i]->pgtype;
			int pgtypmod = state->rdfTable->cols[i]->pgtypmod;

			for (result = record->children; result != NULL; result = result->next)
			{
				StringInfoData name;
				initStringInfo(&name);
				appendStringInfo(&name, "?%s", (char *)xmlGetProp(result, (xmlChar *)RDF_XML_NAME_TAG));

				if (strcmp(sparqlvar, NameStr(name)) == 0 && state->rdfTable->cols[i]->used)
				{

					for (value = result->children; value != NULL; value = value->next)
					{
						StringInfoData literal_value;
						xmlChar *datatype = xmlGetProp(value, (xmlChar *)RDF_SPARQL_RESULT_LITERAL_DATATYPE);
						xmlChar *lang = xmlGetProp(value, (xmlChar *)RDF_SPARQL_RESULT_LITERAL_LANG);
						xmlChar *content = xmlNodeGetContent(value);

						initStringInfo(&literal_value);

						if (content == NULL)
						{
							pfree(name.data);
							ereport(ERROR,
									(errcode(ERRCODE_INTERNAL_ERROR),
									 errmsg("unable to get content of XML node '%s' for column '%s'", sparqlvar, colname)));
						}

						if (pgtype == RDFNODEOID)
						{
							if (strcmp((char *)value->name, RDF_SPARQL_RESULT_URI) == 0)
								appendStringInfo(&literal_value, "%s", iri((char *)content));
							else if (strcmp((char *)value->name, RDF_SPARQL_RESULT_BNODE) == 0)
								appendStringInfo(&literal_value, "_:%s", (char *)content);
							else
							{
								/* Build literal with proper quote escaping */
								char *escaped = cstring_to_rdfliteral((char *)content);

								if (datatype)
									appendStringInfo(&literal_value, "%s^^%s", escaped, (char *)datatype);
								else if (lang)
									appendStringInfo(&literal_value, "%s@%s", escaped, (char *)lang);
								else
									appendStringInfo(&literal_value, "%s", escaped);
							}
						}
						else
							appendStringInfoString(&literal_value, (char *)content);

						datum = CStringGetDatum(literal_value.data);
						ctypes[colindex] = pgtype;
						cnulls[colindex] = false;
						xmlFree(content);

						if (pgtype == RDFNODEOID)
							cvals[colindex] = DirectFunctionCall1(rdfnode_in, datum);
						else
						{
							tuple = SearchSysCache1(TYPEOID, ObjectIdGetDatum(pgtype));

							if (!HeapTupleIsValid(tuple))
								ereport(ERROR,
										(errcode(ERRCODE_FDW_INVALID_DATA_TYPE),
										 errmsg("cache lookup failed for type %u > column '%s'", pgtype, colname)));

							typinput = ((Form_pg_type)GETSTRUCT(tuple))->typinput;
							ReleaseSysCache(tuple);

							if (pgtype == NUMERICOID || pgtype == TIMESTAMPOID || pgtype == TIMESTAMPTZOID || pgtype == VARCHAROID)
								cvals[colindex] = OidFunctionCall3(
									typinput,
									datum,
									ObjectIdGetDatum(InvalidOid),
									Int32GetDatum(pgtypmod));
							else
								cvals[colindex] = OidFunctionCall1(typinput, datum);
						}
					}
					colindex++;

					appendStringInfo(&insert_cols, "%s %s",
									 colindex > 1 ? "," : "",
									 state->rdfTable->cols[i]->name);

					appendStringInfo(&insert_pidx, "%s$%d",
									 colindex > 1 ? "," : "",
									 colindex);
				}

				pfree(name.data);
			}
		}

		state->rowcount++;

		initStringInfo(&insert_stmt);
		appendStringInfo(&insert_stmt, "INSERT INTO %s (%s) VALUES (%s);",
						 state->target_table_name,
						 NameStr(insert_cols),
						 NameStr(insert_pidx));

		pplan = SPI_prepare(NameStr(insert_stmt), colindex, ctypes);

		ret = SPI_execp(pplan, cvals, cnulls, 0);

		if (ret < 0)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_ERROR),
					 errmsg("SPI_execp returned %d. Unable to insert data into '%s'", ret, state->target_table_name)));

		if (state->commit_page)
			SPI_commit();

		processed_records = processed_records + SPI_processed;
	}

	if (state->verbose)
		elog(INFO, "[%d - %d]: %d records inserted", offset, fetch_size, processed_records);

	SPI_finish();

	elog(DEBUG1, "%s exit: returning '%d' (processed_records)", __func__, processed_records);
	return processed_records;
}

/*
 * GetRelOidFromName
 * ---------------
 * Retrieves the Oid of a relation based on its name and type
 *
 * relname: relation name
 * code   : code of relation type, as in 'relkind' of pg_class.
 *
 * returns the Oid of the given relation
 */
static Oid GetRelOidFromName(char *relname, char *code)
{
	StringInfoData str;
	Oid res = 0;
	int ret;

	elog(DEBUG1, "%s called: relname='%s', code='%s'", __func__, relname, code);

	initStringInfo(&str);
	appendStringInfo(&str, "SELECT CASE relkind WHEN '%s' THEN oid ELSE 0 END FROM pg_class WHERE oid = '%s'::regclass::oid;", code, relname);

	if (strcmp(code, RDF_FOREIGN_TABLE_CODE) != 0 && strcmp(code, RDF_ORDINARY_TABLE_CODE) != 0)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("internal error: '%s' unknown relation type", code)));

	SPI_connect();

	ret = SPI_exec(NameStr(str), 0);

	if (ret > 0 && SPI_tuptable != NULL)
	{
		SPITupleTable *tuptable = SPI_tuptable;
		TupleDesc tupdesc = tuptable->tupdesc;

		HeapTuple tuple = tuptable->vals[0];
		res = (Oid)atoi(SPI_getvalue(tuple, tupdesc, 1));
	}

	SPI_finish();

	if (res == InvalidOid)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("invalid relation: '%s' is not a %s", relname,
						strcmp(code, RDF_FOREIGN_TABLE_CODE) == 0 ? "foreign table" : "table")));

	elog(DEBUG1, "%s exit: returning '%u'", __func__, res);
	return res;
}
#endif /* PG_VERSION_NUM >= 110000 */

Datum rdf_fdw_validator(PG_FUNCTION_ARGS)
{
	List *options_list = untransformRelOptions(PG_GETARG_DATUM(0));
	Oid catalog = PG_GETARG_OID(1);
	ListCell *cell;
	struct RDFfdwOption *opt;
	bool hasliteralatt = false;

	elog(DEBUG1, "%s called", __func__);

	/* Initialize found state to not found */
	for (opt = valid_options; opt->optname; opt++)
		opt->optfound = false;

	foreach (cell, options_list)
	{
		DefElem *def = (DefElem *)lfirst(cell);
		bool optfound = false;

		for (opt = valid_options; opt->optname; opt++)
		{
			if (catalog == opt->optcontext && strcmp(opt->optname, def->defname) == 0)
			{
				/* Mark that this user option was found */
				opt->optfound = optfound = true;

				if (strlen(defGetString(def)) == 0)
				{
					ereport(ERROR,
							(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
							 errmsg("empty value in option '%s'", opt->optname)));
				}

				if (strcmp(opt->optname, RDF_SERVER_OPTION_SELECT_URL) == 0 ||
					strcmp(opt->optname, RDF_SERVER_OPTION_HTTP_PROXY) == 0 ||
					strcmp(opt->optname, RDF_SERVER_OPTION_HTTPS_PROXY) == 0)
				{

					int return_code = CheckURL(defGetString(def));

					if (return_code != REQUEST_SUCCESS)
					{
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", opt->optname, defGetString(def))));
					}
				}

				if (strcmp(opt->optname, RDF_SERVER_OPTION_CONNECTTIMEOUT) == 0)
				{
					char *endptr;
					char *timeout_str = defGetString(def);
					long timeout_val = strtol(timeout_str, &endptr, 0);

					if (timeout_str[0] == '\0' || *endptr != '\0' || timeout_val < 0)
					{
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, timeout_str),
								 errhint("expected values are positive integers (timeout in seconds)")));
					}
				}

				if (strcmp(opt->optname, RDF_SERVER_OPTION_FETCH_SIZE) == 0)
				{
					char *endptr;
					char *fetch_size_str = defGetString(def);
					long fetch_size_val = strtol(fetch_size_str, &endptr, 0);

					if (fetch_size_str[0] == '\0' || *endptr != '\0' || fetch_size_val < 0)
					{
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, fetch_size_str),
								 errhint("expected values are positive integers")));
					}
				}

				if (strcmp(opt->optname, RDF_SERVER_OPTION_CONNECTRETRY) == 0)
				{
					char *endptr;
					char *retry_str = defGetString(def);
					long retry_val = strtol(retry_str, &endptr, 0);

					if (retry_str[0] == '\0' || *endptr != '\0' || retry_val < 0)
					{
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, retry_str),
								 errhint("expected values are positive integers (retry attempts in case of failure)")));
					}
				}

				if (strcmp(opt->optname, RDF_SERVER_OPTION_BATCH_SIZE) == 0)
				{
					char *endptr;
					char *batch_size_str = defGetString(def);
					long batch_size_val = strtol(batch_size_str, &endptr, 0);

					if (batch_size_str[0] == '\0' || *endptr != '\0' || batch_size_val < 0)
					{
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, batch_size_str),
								 errhint("expected values are positive integers (number of records)")));
					}
				}

				if (strcmp(opt->optname, RDF_SERVER_OPTION_ENABLE_PUSHDOWN) == 0)
				{
					char *enable_pushdown = defGetString(def);
					if (strcasecmp(enable_pushdown, "true") != 0 && strcasecmp(enable_pushdown, "false") != 0)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, enable_pushdown),
								 errhint("this parameter expects boolean values ('true' or 'false')")));
				}

				if (strcmp(opt->optname, RDF_SERVER_OPTION_ENABLE_XML_HUGE) == 0)
				{
					char *enable_pushdown = defGetString(def);
					if (strcasecmp(enable_pushdown, "true") != 0 && strcasecmp(enable_pushdown, "false") != 0)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, enable_pushdown),
								 errhint("this parameter expects boolean values ('true' or 'false')")));
				}

				if (strcmp(opt->optname, RDF_TABLE_OPTION_SPARQL) == 0)
				{
					char *sparql = defGetString(def);
					int where_position = -1;
					int where_size = -1;

					for (int i = 0; sparql[i] != '\0'; i++)
					{
						if (sparql[i] == '{' && where_position == -1)
							where_position = i;

						if (sparql[i] == '}')
							where_size = i - where_position;
					}

					/* report ERROR if the SPARQL does not contain the opening and closing braces {} */
					if (where_size == -1 || where_position == -1)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("unable to parse SPARQL WHERE clause:\n%s", sparql),
								 errhint("The WHERE clause expects at least one triple pattern wrapped by curly braces, e.g. '{?s ?p ?o}'")));

					/* report ERROR if the SPARQL query does not contain a SELECT */
					if (LocateKeyword(sparql, " {\n\t>", "SELECT", " *?\n\t", NULL, 0) == RDF_KEYWORD_NOT_FOUND)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("unable to parse SPARQL SELECT clause:\n%s.", sparql)));
				}

				if (strcmp(opt->optname, RDF_TABLE_OPTION_LOG_SPARQL) == 0)
				{
					char *log_sparql = defGetString(def);
					if (strcasecmp(log_sparql, "true") != 0 && strcasecmp(log_sparql, "false") != 0)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, log_sparql),
								 errhint("this parameter expects boolean values ('true' or 'false')")));
				}

				if (strcmp(opt->optname, RDF_COLUMN_OPTION_VARIABLE) == 0)
				{
					if (!IsSPARQLVariableValid(defGetString(def)))
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, defGetString(def)),
								 errhint("a query variable must start with either \"?\" or \"$\"; the \"?\" or \"$\" is not part of the variable name. Allowable characters for the name are [a-z], [A-Z], [0-9], _ and diacrictics.")));
				}

				if (strcmp(opt->optname, RDF_COLUMN_OPTION_NODETYPE) == 0)
				{
					if (strcasecmp(defGetString(def), RDF_COLUMN_OPTION_NODETYPE_IRI) != 0 &&
						strcasecmp(defGetString(def), RDF_COLUMN_OPTION_NODETYPE_LITERAL) != 0)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, defGetString(def)),
								 errhint("this parameter expects node types ('iri' or 'literal')")));
				}

				if (strcmp(opt->optname, RDF_COLUMN_OPTION_LITERALTYPE) == 0 || strcmp(opt->optname, RDF_COLUMN_OPTION_LITERAL_TYPE) == 0)
				{
					if (hasliteralatt)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, defGetString(def)),
								 errhint("the parameters '%s' and '%s' cannot be combined",
										 RDF_COLUMN_OPTION_LITERAL_TYPE,
										 RDF_COLUMN_OPTION_LANGUAGE)));

					hasliteralatt = true;

					if (ContainsWhitespaces(defGetString(def)))
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, defGetString(def)),
								 errhint("whitespaces are not allwoed in '%s' option", RDF_COLUMN_OPTION_LITERAL_TYPE)));
				}

				if (strcmp(opt->optname, RDF_COLUMN_OPTION_LANGUAGE) == 0)
				{
					if (hasliteralatt)
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, defGetString(def)),
								 errhint("the parameters '%s' and '%s' cannot be combined",
										 RDF_COLUMN_OPTION_LITERAL_TYPE,
										 RDF_COLUMN_OPTION_LANGUAGE)));

					hasliteralatt = true;

					if (ContainsWhitespaces(defGetString(def)))
						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
								 errmsg("invalid %s: '%s'", def->defname, defGetString(def)),
								 errhint("whitespaces are not allwoed in '%s' option",
										 RDF_COLUMN_OPTION_LANGUAGE)));
				}
				break;
			}
		}

		if (!optfound)
		{
			ereport(ERROR,
					(errcode(ERRCODE_FDW_INVALID_OPTION_NAME),
					 errmsg("invalid rdf_fdw option '%s'", def->defname)));
		}
	}

	for (opt = valid_options; opt->optname; opt++)
	{
		/* Required option for this catalog type is missing? */
		if (catalog == opt->optcontext && opt->optrequired && !opt->optfound)
		{
			ereport(ERROR,
					(errcode(ERRCODE_FDW_DYNAMIC_PARAMETER_VALUE_NEEDED),
					 errmsg("required option '%s' is missing", opt->optname)));
		}
	}

	elog(DEBUG1, "%s exit", __func__);
	PG_RETURN_VOID();
}

static void rdfGetForeignRelSize(PlannerInfo *root, RelOptInfo *baserel, Oid foreigntableid)
{
	struct RDFfdwState *state = (struct RDFfdwState *)palloc0(sizeof(RDFfdwState));

	elog(DEBUG1, "%s called", __func__);

	state->foreigntableid = foreigntableid;
	state->startup_cost = 10000.0;
	/* estimate total cost as startup cost + 10 * (returned rows) */
	state->total_cost = state->startup_cost + baserel->rows * 10.0;
	baserel->fdw_private = state;
}

static void rdfGetForeignPaths(PlannerInfo *root, RelOptInfo *baserel, Oid foreigntableid)
{
	struct RDFfdwState *state = (struct RDFfdwState *)baserel->fdw_private;

#if PG_VERSION_NUM >= 170000
    Path *path = (Path *)create_foreignscan_path(root, baserel,
                                                 NULL,                  /* pathtarget */
                                                 baserel->rows,
#if PG_VERSION_NUM >= 180000
                                                 0,                     /* no parallel pathflags */
#endif
                                                 state->startup_cost,
                                                 state->total_cost,
                                                 NIL,                   /* pathkeys */
                                                 baserel->lateral_relids,
                                                 NULL,                  /* fdw_outerpath */
                                                 NIL,                   /* fdw_restrictinfo */
                                                 NULL);                 /* fdw_private */
#elif PG_VERSION_NUM >= 90600
    Path *path = (Path *)create_foreignscan_path(root, baserel,
                                                 NULL,                  /* pathtarget */
                                                 baserel->rows,
                                                 state->startup_cost,
                                                 state->total_cost,
                                                 NIL,
                                                 baserel->lateral_relids,
                                                 NULL,
                                                 NULL);
#else /* PG_VERSION_NUM < 90600 (PostgreSQL 9.5) */
    Path *path = (Path *)create_foreignscan_path(root, baserel,
                                                 baserel->rows,
                                                 state->startup_cost,
                                                 state->total_cost,
                                                 NIL,
                                                 baserel->lateral_relids,
                                                 NULL,
                                                 NIL);
#endif

    add_path(baserel, path);
}

static ForeignScan *rdfGetForeignPlan(PlannerInfo *root, RelOptInfo *baserel, Oid foreigntableid, ForeignPath *best_path, List *tlist, List *scan_clauses, Plan *outer_plan)
{
	struct RDFfdwState *state = (struct RDFfdwState *)baserel->fdw_private;
	List *fdw_private = NIL;
	ListCell *cell;

	elog(DEBUG1, "%s called", __func__);
	foreach (cell, scan_clauses)
	{
		Node *node = (Node *)lfirst(cell);
		elog(DEBUG2, "%s: original scan_clauses nodeTag=%u", __func__, nodeTag(node));
	}

	InitSession(state, baserel, root);

	if (!state->enable_pushdown)
	{
		state->sparql = state->raw_sparql;
		elog(DEBUG2, "  %s: Pushdown feature disabled. SPARQL query won't be modified.", __func__);
	}
	else if (!state->is_sparql_parsable)
	{
		state->sparql = state->raw_sparql;
		elog(DEBUG2, "  %s: SPARQL cannot be fully parsed (is_sparql_parsable=%s). The raw SPARQL will be used and all filters will be applied locally.", __func__, state->is_sparql_parsable ? "true" : "false");
	}
	else
	{
		elog(DEBUG2, "  %s: SPARQL is parsable, calling CreateSPARQL()", __func__);
		CreateSPARQL(state, root);
	}

	/*
	 * Now that CreateSPARQL() has run and populated state->remote_conds,
	 * separate scan clauses into local (not pushed) conditions.
	 */
	{
		List *local_exprs = NIL;

		foreach (cell, scan_clauses)
		{
			RestrictInfo *ri = lfirst_node(RestrictInfo, cell);

			elog(DEBUG2, "%s: examining condition, remote_conds=%s", __func__,
				 state->remote_conds ? "NOT_NULL" : "NULL");

			/* If this clause was pushed down, skip it; otherwise evaluate locally */
			if (state->remote_conds == NULL || !list_member_ptr(state->remote_conds, ri))
			{
				local_exprs = lappend(local_exprs, ri->clause);
				elog(DEBUG2, "%s: added condition to local_exprs", __func__);
			}
			else
			{
				elog(DEBUG2, "%s: skipped condition (was pushed down)", __func__);
			}
		}

		elog(DEBUG2, "%s: %d conditions to evaluate locally (out of %d total)", __func__,
			 list_length(local_exprs), list_length(scan_clauses));

		fdw_private = SerializePlanData(state);

		return make_foreignscan(tlist,
								local_exprs, /* quals PostgreSQL evaluates locally */
								baserel->relid,
								NIL,		 /* no param expressions */
								fdw_private, /* pass along our state */
								NIL,		 /* no custom tlist */
								NIL,		 /* no recheck quals */
								outer_plan);
	}
}

static void rdfBeginForeignScan(ForeignScanState *node, int eflags)
{
	ForeignScan *fs = (ForeignScan *)node->ss.ps.plan;
	struct RDFfdwState *state;

	elog(DEBUG1, "%s called", __func__);

	state = DeserializePlanData(fs->fdw_private);

	if (eflags & EXEC_FLAG_EXPLAIN_ONLY)
    {
        /* Only set up enough state for EXPLAIN diagnostics */
        node->fdw_state = (void *)state;
        return;
    }

	elog(DEBUG2, "%s: initializing XML parser", __func__);
	xmlInitParser();

	LoadRDFData(state);
	state->rowcount = 0;
	node->fdw_state = (void *)state;
}

static void rdfExplainForeignScan(ForeignScanState *node, ExplainState *es)
{
	RDFfdwState *state = (RDFfdwState *)node->fdw_state;

	if (state)
	{
		if (state->server && state->server->servername)
			ExplainPropertyText("Foreign Server", state->server->servername, es);

		if (state->enable_pushdown)
		{
			ExplainPropertyText("Pushdown", "enabled", es);

			if (state->sparql_select && strlen(state->sparql_select) > 0)
				ExplainPropertyText("Remote Select", state->sparql_select, es);

			/* Show pushed-down filter if present, otherwise "not pushable" */
			if (state->sparql_filter_expr && strlen(state->sparql_filter_expr) > 0)
				ExplainPropertyText("Remote Filter", state->sparql_filter_expr, es);
			else if (state->has_unparsable_conds)
				ExplainPropertyText("Remote Filter", "not pushable", es);

			if (state->sparql_orderby && strlen(state->sparql_orderby) > 0)
				ExplainPropertyText("Remote Sort Key", state->sparql_orderby, es);

			if (state->sparql_limit && strlen(state->sparql_limit) > 0)
				ExplainPropertyText("Remote Limit", state->sparql_limit, es);
		}
		else
			ExplainPropertyText("Pushdown", "disabled", es);
	}
}

static TupleTableSlot *rdfIterateForeignScan(ForeignScanState *node)
{
	TupleTableSlot *slot = node->ss.ss_ScanTupleSlot;
	struct RDFfdwState *state = (struct RDFfdwState *)node->fdw_state;

	elog(DEBUG3, "%s called", __func__);

	if (state->numcols == 0)
	{
		elog(DEBUG3, "  %s: no foreign column available in this table.", __func__);
		return NULL;
	}

	elog(DEBUG3, "  %s: rowcount = %d | pagesize = %d", __func__, state->rowcount, state->pagesize);

	if (state->rowcount >= state->pagesize)
		return NULL;

	CreateTuple(slot, state);

	elog(DEBUG3, "%s: virtual tuple stored (%d/%d)", __func__, state->rowcount, state->pagesize);
	elog(DEBUG3, "%s: valid slots = %d", __func__, slot->tts_nvalid);

	state->rowcount++;

	return slot;
}

static void rdfReScanForeignScan(ForeignScanState *node)
{
}

static void rdfEndForeignScan(ForeignScanState *node)
{
	struct RDFfdwState *state;

	elog(DEBUG1, "%s: called ", __func__);

	if (node->fdw_state)
	{

		state = (struct RDFfdwState *)node->fdw_state;

		if (state->xmldoc)
		{
			elog(DEBUG2, "%s: freeing xmldoc", __func__);
			xmlFreeDoc(state->xmldoc);
		}

		if (state)
		{
			elog(DEBUG2, "%s: freeing rdf_fdw state", __func__);
			pfree(state);
		}
	}

	elog(DEBUG1, "%s exit rdf_fdw: so long .. \n", __func__);
}

/*
 * rdfAddForeignUpdateTargets
 * ------------------------------
 * Add column(s) needed for DELETE/UPDATE to the target list.
 *
 * For DELETE operations, we need all columns from the foreign table to be
 * available so we can construct proper DELETE DATA or DELETE WHERE statements.
 * This function adds resjunk entries for all columns, which PostgreSQL will
 * then fetch and make available to ExecForeignDelete via junk attributes.
 */
static void rdfAddForeignUpdateTargets(
#if PG_VERSION_NUM >= 140000
	PlannerInfo *root,
	Index rtindex,
#else
	Query *parsetree,
#endif
	RangeTblEntry *target_rte,
	Relation target_relation)
{
	TupleDesc tupdesc = RelationGetDescr(target_relation);
	int i;

	elog(DEBUG1, "%s called", __func__);

	/*
	 * Add all columns as resjunk entries so they're available for DELETE operations.
	 * These will be passed via ExecGetJunkAttribute in the planSlot.
	 */
	for (i = 0; i < tupdesc->natts; i++)
	{
		Form_pg_attribute attr = TupleDescAttr(tupdesc, i);
		Var *var;
		TargetEntry *tle;

		/* Skip dropped columns */
		if (attr->attisdropped)
			continue;

		/* Create a Var for this column */
#if PG_VERSION_NUM >= 140000
		var = makeVar(rtindex,
#else
		var = makeVar(parsetree->resultRelation,
#endif
					  attr->attnum,
					  attr->atttypid,
					  attr->atttypmod,
					  attr->attcollation,
					  0);

		/* Add it to the target list as a junk entry */
		tle = makeTargetEntry((Expr *)var,
#if PG_VERSION_NUM >= 140000
							  list_length(root->processed_tlist) + 1,
#else
							  list_length(parsetree->targetList) + 1,
#endif
							  pstrdup(NameStr(attr->attname)),
							  true); /* resjunk = true */

#if PG_VERSION_NUM >= 140000
		root->processed_tlist = lappend(root->processed_tlist, tle);
#else
		parsetree->targetList = lappend(parsetree->targetList, tle);
#endif

		elog(DEBUG2, "%s: added junk attribute for column '%s' (attnum=%d)",
			 __func__, NameStr(attr->attname), attr->attnum);
	}

	elog(DEBUG1, "%s exit", __func__);
}

static List *rdfPlanForeignModify(PlannerInfo *root, ModifyTable *plan,
								  Index resultRelation, int subplan_index)
{
	CmdType operation = plan->operation;
	RangeTblEntry *rte;
	Oid foreigntableid;
	List *targetAttrs = NIL;

	elog(DEBUG1, "%s called, operation: %d", __func__, operation);

	/*
	 * For DELETE and UPDATE operations, we need to retrieve all columns from 
	 * the foreign table so we can properly construct the DELETE pattern with 
	 * variable substitution. For UPDATE, we need the OLD values to construct
	 * the DELETE part of the DELETE/INSERT operation.
	 */
	if (operation == CMD_DELETE || operation == CMD_UPDATE)
	{
		Relation rel;
		TupleDesc tupdesc;

		rte = planner_rt_fetch(resultRelation, root);
		foreigntableid = rte->relid;

#if PG_VERSION_NUM < 130000
		rel = heap_open(foreigntableid, NoLock);
#else
		rel = table_open(foreigntableid, NoLock);
#endif
		tupdesc = RelationGetDescr(rel);

		/* Add all user attributes to the target list */
		for (int i = 0; i < tupdesc->natts; i++)
		{
			Form_pg_attribute attr = TupleDescAttr(tupdesc, i);

			/* Skip dropped columns */
			if (attr->attisdropped)
				continue;

			targetAttrs = lappend_int(targetAttrs, i + 1);
			elog(DEBUG1, "%s: adding attribute %d (%s) to target list",
				 __func__, i + 1, NameStr(attr->attname));
		}

#if PG_VERSION_NUM < 130000
		heap_close(rel, NoLock);
#else
		table_close(rel, NoLock);
#endif

		elog(DEBUG1, "%s: %s operation - returning %d target attributes",
			 __func__, (operation == CMD_DELETE) ? "DELETE" : "UPDATE",
			 list_length(targetAttrs));

		/* Return the list of attributes to fetch */
		return list_make1(targetAttrs);
	}

	/* For INSERT, we don't need to fetch anything */
	return NIL;
}

static void rdfBeginForeignModify(ModifyTableState *mtstate, ResultRelInfo *rinfo,
								  List *fdw_private, int subplan_index, int eflags)
{
	RDFfdwState *state;
	Relation rel = rinfo->ri_RelationDesc;
	CmdType operation = mtstate->operation;

	elog(DEBUG1, "%s called", __func__);

	/* Validate operation type */
	if (operation != CMD_INSERT && operation != CMD_DELETE && operation != CMD_UPDATE)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_UNABLE_TO_CREATE_EXECUTION),
				 errmsg("unsupported operation type: %d", operation)));

	/* Create and initialize the FDW state */
	state = (RDFfdwState *)palloc0(sizeof(RDFfdwState));
	state->foreigntableid = RelationGetRelid(rel);
	state->enable_pushdown = true;
	state->enable_xml_huge = false;
	state->log_sparql = false;
	state->has_unparsable_conds = false;
	state->query_param = RDF_DEFAULT_QUERY_PARAM;
	state->format = RDF_DEFAULT_FORMAT;
	state->connect_timeout = RDF_DEFAULT_CONNECTTIMEOUT;
	state->max_retries = RDF_DEFAULT_MAXRETRY;
	state->fetch_size = RDF_DEFAULT_FETCH_SIZE;
	state->batch_size = RDF_DEFAULT_BATCH_SIZE;
	state->foreign_table = GetForeignTable(state->foreigntableid);
	state->server = GetForeignServer(state->foreign_table->serverid);

	RDFNODEOID = GetRDFNodeOID();

	/* Set query type based on operation. */
	if (operation == CMD_INSERT)
		state->sparql_query_type = SPARQL_INSERT;
	else if (operation == CMD_DELETE)
		state->sparql_query_type = SPARQL_DELETE;
	else if (operation == CMD_UPDATE)
		state->sparql_query_type = SPARQL_UPDATE;

	/* Load server, table, user mapping info, and prefixes */
	LoadRDFServerInfo(state);
	LoadRDFTableInfo(state);
	LoadRDFUserMapping(state);
	LoadPrefixes(state);

	if (CheckURL(state->endpoint) != REQUEST_SUCCESS)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_INVALID_ATTRIBUTE_VALUE),
				 errmsg("invalid %s: '%s'", RDF_SERVER_OPTION_UPDATE_URL, state->endpoint)));

	/* Check if triple graph pattern is provided */
	if (!state->sparql_update_pattern || strlen(state->sparql_update_pattern) == 0)
	{
		const char *op_name;
		if (operation == CMD_INSERT)
			op_name = "INSERT";
		else if (operation == CMD_DELETE)
			op_name = "DELETE";
		else
			op_name = "UPDATE";

		ereport(ERROR,
				(errcode(ERRCODE_FDW_UNABLE_TO_CREATE_EXECUTION),
				 errmsg("%s operation requires a valid triple pattern in '%s'", 
						op_name, RDF_TABLE_OPTION_SPARQL_UPDATE_PATTERN),
				 errhint("Check the '%s' option in the FOREIGN TABLE.", RDF_TABLE_OPTION_SPARQL_UPDATE_PATTERN)));
	}

	/* Validate SPARQL update pattern and variable mapping */
	ValidateSPARQLUpdatePattern(state);

	/* Create temporary memory context for per-row allocations */
	state->temp_cxt = AllocSetContextCreate(CurrentMemoryContext,
											"rdf_fdw temporary context",
											ALLOCSET_DEFAULT_SIZES);

	/* Initialize batch processing */
	state->batch_count = 0;
	initStringInfo(&state->batch_statements);

	/* Store state in ResultRelInfo */
	rinfo->ri_FdwState = state;

	elog(DEBUG1, "%s exit", __func__);
}

/*
 * FlushSPARQLStatements
 * --------------------
 * Execute accumulated batch SPARQL statements.
 */
static void FlushSPARQLStatements(RDFfdwState *state)
{
	StringInfoData final_query;

	if (state->batch_count == 0)
		return;

	elog(DEBUG1, "%s: flushing batch of %d statement(s)", __func__, state->batch_count);

	initStringInfo(&final_query);

	/* Add prefixes if needed */
	if (state->prefix_context)
	{
		appendStringInfoString(&final_query, state->sparql_prefixes);
		appendStringInfoString(&final_query, "\n");
	}

	/* Append all batched statements */
	appendStringInfoString(&final_query, state->batch_statements.data);

	/* Execute the batched statements */
	state->sparql = final_query.data;

	if (ExecuteSPARQL(state) != REQUEST_SUCCESS)
	{
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("failed to execute batched SPARQL statements")));
	}

	/* Reset batch buffer */
	resetStringInfo(&state->batch_statements);
	state->batch_count = 0;

	elog(DEBUG1, "%s: batch flushed successfully", __func__);
}

static TupleTableSlot *rdfExecForeignInsert(EState *estate,
											ResultRelInfo *rinfo,
											TupleTableSlot *slot,
											TupleTableSlot *planSlot)
{
	RDFfdwState *state;
	TupleDesc tupdesc = slot->tts_tupleDescriptor;
	MemoryContext oldcontext;
	StringInfoData sparql_insert;
	int len;
	Datum datum;
	bool isnull;

	elog(DEBUG1, "%s called", __func__);

	/* State must be initialized by rdfBeginForeignModify */
	state = (RDFfdwState *)rinfo->ri_FdwState;
	if (!state)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("%s failed to initialize state", __func__)));

	/* Switch to temporary context for per-row allocations */
	MemoryContextReset(state->temp_cxt);
	oldcontext = MemoryContextSwitchTo(state->temp_cxt);

	/* Start building the SPARQL INSERT DATA query */
	initStringInfo(&sparql_insert);
	appendStringInfoString(&sparql_insert, state->sparql_update_pattern);

	/* Substitute variables (placeholders) with actual values */
	for (int i = 0; i < tupdesc->natts; i++)
	{
		RDFfdwColumn *col = state->rdfTable->cols[i];
		char *sparql_var = col->sparqlvar;
		char *value_str;
		char *replaced;
		bool needs_escaping = false;

		/* Ensure the column is of rdfnode type */
		if (col->pgtype != RDFNODEOID)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_ERROR),
					 errmsg("%s: column '%s' is not of type rdfnode", __func__, col->name)));


		/* Skip columns without SPARQL variable mapping */
		if (!sparql_var || strlen(sparql_var) == 0)
			continue;

		/* Check if this SPARQL variable exists in the template */
		if (strstr(sparql_insert.data, sparql_var) == NULL)
		{
			elog(DEBUG2, "%s: SPARQL variable '%s' not found in SPARQL template, skipping",
				 __func__, sparql_var);
			continue;
		}

		/* Get the attribute value from the slot */
		datum = slot_getattr(slot, i + 1, &isnull);

		/* Raise error for NULL values - they violate RDF data model */
		if (isnull)
			ereport(ERROR,
					(errcode(ERRCODE_NOT_NULL_VIOLATION),
					 errmsg("NULL value in column \"%s\" violates RDF constraint", col->name),
					 errdetail("SPARQL variable '%s' cannot be NULL in RDF triple patterns", sparql_var),
					 errhint("RDF triples require all components to be non-NULL. "
							"Filter NULL values in your query or provide default values.")));

		/* Convert the datum to string representation */
		value_str = DatumToString(datum, col->pgtype);

		/* SPARQL 1.1 Update spec prohibits blank nodes in INSERT */
		if (isBlank(value_str))
			ereport(ERROR,
					(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
					 errmsg("blank nodes are not allowed in INSERT operations"),
					 errhint("Blank nodes are document-local and have no global meaning. Use IRIs instead.")));

		/* Check if escaping is needed for control characters */
		for (const char *p = value_str; *p; p++)
		{
			if (*p == '\n' || *p == '\r' || *p == '\t')
			{
				needs_escaping = true;
				break;
			}
		}

		/* Only escape if control characters were found */
		if (needs_escaping)
			value_str = EscapeSPARQLLiteral(value_str);
		

		/* Replace the variable placeholder with the actual value */
		replaced = str_replace(sparql_insert.data, sparql_var, value_str);
		resetStringInfo(&sparql_insert);
		appendStringInfoString(&sparql_insert, replaced);
	}

	/* Strip trailing whitespace and dots from the triple pattern */
	len = strlen(sparql_insert.data);
	while (len > 0 && (sparql_insert.data[len - 1] == '.' ||
					   isspace((unsigned char)sparql_insert.data[len - 1])))
	{
		sparql_insert.data[len - 1] = '\0';
		len--;
		sparql_insert.len = len;
	}

	/* Add this statement to the batch buffer */
	appendStringInfo(&state->batch_statements, "INSERT DATA { %s };\n", sparql_insert.data);

	state->batch_count++;
	state->sparql_query_type = SPARQL_INSERT;

	elog(DEBUG1, "%s: added row to batch (%d/%d)", __func__, state->batch_count, state->batch_size);

	/* Flush batch if it's full */
	if (state->batch_count >= state->batch_size)
	{
		MemoryContextSwitchTo(oldcontext);
		FlushSPARQLStatements(state);
		oldcontext = MemoryContextSwitchTo(state->temp_cxt);
	}

	/* Clean up temp context for next row */
	MemoryContextSwitchTo(oldcontext);

	elog(DEBUG1, "%s exit", __func__);

	return slot;
}

static TupleTableSlot *rdfExecForeignDelete(EState *estate,
											ResultRelInfo *rinfo,
											TupleTableSlot *slot,
											TupleTableSlot *planSlot)
{
	RDFfdwState *state;
	MemoryContext oldcontext;
	StringInfoData sparql_delete;
	int len;
	Datum datum;
	bool isnull;

	elog(DEBUG3, "%s called", __func__);

	/* State must be initialized by rdfBeginForeignModify */
	state = (RDFfdwState *)rinfo->ri_FdwState;
	if (!state)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("%s failed to initialize state", __func__)));

	/*
	 * For DELETE, planSlot contains the OLD tuple with junk attributes
	 * set by rdfAddForeignUpdateTargets.
	 */
	if (planSlot == NULL)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("%s: planSlot is NULL", __func__)));

	/* Switch to temporary context for per-row allocations */
	MemoryContextReset(state->temp_cxt);
	oldcontext = MemoryContextSwitchTo(state->temp_cxt);

	/* Start building the SPARQL DELETE DATA query */
	initStringInfo(&sparql_delete);
	appendStringInfoString(&sparql_delete, state->sparql_update_pattern);

	/*
	 * Iterate over the foreign table's columns and extract values from
	 * junk attributes.
	 */
	for (int i = 0; i < state->numcols; i++)
	{
		RDFfdwColumn *col = state->rdfTable->cols[i];
		char *sparql_var = col->sparqlvar;
		char *value_str;
		char *replaced;
		AttrNumber attnum = col->pgattnum;

		elog(DEBUG3, "%s [%d] column loaded: %s, sparql_var: %s, attnum: %d",
			 __func__, i, col->name,
			 sparql_var ? sparql_var : "(null)", attnum);

		/* Skip columns without SPARQL variable mapping */
		if (!sparql_var || strlen(sparql_var) == 0)
		{
			elog(DEBUG3, "%s [%d] skipping column '%s' - no SPARQL variable",
				 __func__, i, col->name);
			continue;
		}

		/* Check if this SPARQL variable exists in the template */
		if (strstr(sparql_delete.data, sparql_var) == NULL)
		{
			elog(DEBUG3, "%s: SPARQL variable '%s' not found in SPARQL template '%s', skipping",
				 __func__, sparql_var, sparql_delete.data);
			continue;
		}

		/* Get the attribute value from junk attributes in planSlot */
		datum = ExecGetJunkAttribute(planSlot, attnum, &isnull);

		/* Skip NULL values - this should not happen in normal operation */
		if (isnull)
		{
			elog(DEBUG3, "%s: column '%s' (variable '%s') is NULL, skipping",
				 __func__, col->name, sparql_var);
			continue;
		}

		/* Ensure the column is of rdfnode type */
		if (col->pgtype != RDFNODEOID)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_ERROR),
					 errmsg("%s: column '%s' is not of type rdfnode", __func__, col->name)));

		/* Convert the datum to string representation */
		value_str = DatumToString(datum, col->pgtype);

		/* SPARQL 1.1 Update spec prohibits blank nodes in DELETE DATA */
		if (isBlank(value_str))
			ereport(ERROR,
					(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
					 errmsg("blank nodes cannot be used in DELETE operations"),
					 errhint("Blank nodes are document-local and have no global meaning. Use IRIs instead.")));

		/* Check if escaping is needed for control characters */
		{
			bool needs_escaping = false;
			for (const char *p = value_str; *p; p++)
			{
				if (*p == '\n' || *p == '\r' || *p == '\t')
				{
					needs_escaping = true;
					break;
				}
			}

			/* Only escape if control characters were found */
			if (needs_escaping)
				value_str = EscapeSPARQLLiteral(value_str);
		}

		elog(DEBUG3, "%s: column '%s' value: %s", __func__, col->name, value_str);

		/* Replace the variable placeholder with the actual value */
		replaced = str_replace(sparql_delete.data, sparql_var, value_str);
		resetStringInfo(&sparql_delete);
		appendStringInfoString(&sparql_delete, replaced);
	}

	/* Strip trailing whitespace and dots from the triple pattern */
	len = strlen(sparql_delete.data);
	while (len > 0 && (sparql_delete.data[len - 1] == '.' ||
					   isspace((unsigned char)sparql_delete.data[len - 1])))
	{
		sparql_delete.data[len - 1] = '\0';
		len--;
		sparql_delete.len = len;
	}

	/* Add this statement to the batch buffer */
	appendStringInfoString(&state->batch_statements, "DELETE DATA { ");
	appendStringInfoString(&state->batch_statements, sparql_delete.data);
	appendStringInfoString(&state->batch_statements, " };\n");

	state->batch_count++;
	state->sparql_query_type = SPARQL_DELETE;

	elog(DEBUG3, "%s: added row to batch (%d/%d)", __func__, state->batch_count, state->batch_size);

	/* Flush batch if it's full */
	if (state->batch_count >= state->batch_size)
	{
		MemoryContextSwitchTo(oldcontext);
		FlushSPARQLStatements(state);
		oldcontext = MemoryContextSwitchTo(state->temp_cxt);
	}

	/* Clean up temp context for next row */
	MemoryContextSwitchTo(oldcontext);

	elog(DEBUG3, "%s exit", __func__);

	/* Return planSlot (contains OLD values for RETURNING clause) */
	return planSlot;
}

static TupleTableSlot *rdfExecForeignUpdate(EState *estate,
											ResultRelInfo *rinfo,
											TupleTableSlot *slot,
											TupleTableSlot *planSlot)
{
	RDFfdwState *state;
	TupleDesc tupdesc = slot->tts_tupleDescriptor;
	MemoryContext oldcontext;
	StringInfoData sparql_delete, sparql_insert, final_query;
	int len;
	Datum datum;
	bool isnull;

	elog(DEBUG1, "%s called", __func__);

	/* State must be initialized by rdfBeginForeignModify */
	state = (RDFfdwState *)rinfo->ri_FdwState;
	if (!state)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("%s failed to initialize state", __func__)));

	/*
	 * For UPDATE, planSlot contains the OLD tuple with junk attributes
	 * set by rdfAddForeignUpdateTargets, and slot contains the NEW values.
	 */
	if (planSlot == NULL)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_ERROR),
				 errmsg("%s: unable to access OLD tuples", __func__)));

	/* Switch to temporary context for per-row allocations */
	MemoryContextReset(state->temp_cxt);
	oldcontext = MemoryContextSwitchTo(state->temp_cxt);

	/* Build DELETE part using OLD values from planSlot (junk attributes) */
	initStringInfo(&sparql_delete);
	appendStringInfoString(&sparql_delete, state->sparql_update_pattern);

	/*
	 * Substitute variables with OLD values for the DELETE clause.
	 * For UPDATE, planSlot contains both NEW values (from SET clause) and
	 * OLD values (as junk attributes). We need to find the junk attribute
	 * for each column by name to get the OLD values.
	 */
	for (int i = 0; i < state->numcols; i++)
	{
		RDFfdwColumn *col = state->rdfTable->cols[i];
		char *sparql_var = col->sparqlvar;
		char *value_str;
		char *replaced;
		AttrNumber junk_attno;
		bool needs_escaping = false;

		/* Ensure the column is of rdfnode type */
		if (col->pgtype != RDFNODEOID)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_ERROR),
					 errmsg("%s: column '%s' is not of type rdfnode", __func__, col->name)));

		elog(DEBUG2, "%s [%d] DELETE: column loaded: %s, sparql_var: %s",
			 __func__, i, col->name,
			 sparql_var ? sparql_var : "(null)");

		/* Skip columns without SPARQL variable mapping */
		if (!sparql_var || strlen(sparql_var) == 0)
		{
			elog(DEBUG2, "%s [%d] DELETE: skipping column '%s' - no SPARQL variable",
				 __func__, i, col->name);
			continue;
		}

		/* Check if this SPARQL variable exists in the template */
		if (strstr(sparql_delete.data, sparql_var) == NULL)
		{
			elog(DEBUG2, "%s: DELETE: SPARQL variable '%s' not found in template '%s', skipping",
				 __func__, sparql_var, sparql_delete.data);
			continue;
		}

		/*
		 * Find the junk attribute for this column by name.
		 * The junk attributes were added by rdfAddForeignUpdateTargets and contain
		 * the OLD values. We search planSlot's tuple descriptor for a resjunk
		 * attribute with the same name as our column.
		 */
		junk_attno = 0;
		{
			TupleDesc planDesc = planSlot->tts_tupleDescriptor;
			for (int j = 0; j < planDesc->natts; j++)
			{
				Form_pg_attribute attr = TupleDescAttr(planDesc, j);

				/* Look for a junk attribute (attnum > numcols) with matching name */
				if (!attr->attisdropped &&
					attr->attnum > state->numcols &&
					strcmp(NameStr(attr->attname), col->name) == 0)
				{
					junk_attno = attr->attnum;
					break;
				}
			}
		}

		if (junk_attno > 0)
		{
			/* Get the OLD value from junk attribute (modified column) */
			datum = ExecGetJunkAttribute(planSlot, junk_attno, &isnull);
		}
		else
		{
			/*
			 * No junk attribute found - this is either the key column or an unmodified column.
			 * Get the OLD value from the regular slot which contains current values for
			 * unmodified columns.
			 */
			datum = slot_getattr(slot, col->pgattnum, &isnull);
		}

		if (isnull)
			ereport(ERROR,
					(errcode(ERRCODE_NOT_NULL_VIOLATION),
					 errmsg("NULL value in column \"%s\" violates RDF constraint", col->name),
					 errdetail("SPARQL variable '%s' cannot be NULL in RDF triple patterns", sparql_var),
					 errhint("RDF triples require all components to be non-NULL. "
							 "Filter NULL values in your query or provide default values.")));

		/* Convert the datum to string representation */
		value_str = DatumToString(datum, col->pgtype);

		/* SPARQL 1.1 Update spec prohibits blank nodes in INSERT/DELETE */
		if (isBlank(value_str))
			ereport(ERROR,
					(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
					 errmsg("blank nodes are not allowed in UPDATE operations"),
					 errhint("Blank nodes are document-local and have no global meaning. Use IRIs instead.")));

		/* Check if escaping is needed for control characters */
		for (const char *p = value_str; *p; p++)
		{
			if (*p == '\n' || *p == '\r' || *p == '\t')
			{
				needs_escaping = true;
				break;
			}
		}

		/* Only escape if control characters were found */
		if (needs_escaping)
			value_str = EscapeSPARQLLiteral(value_str);


		elog(DEBUG2, "%s: DELETE: column '%s' OLD value: %s", __func__, col->name, value_str);

		/* Replace the variable placeholder with the actual OLD value */
		replaced = str_replace(sparql_delete.data, sparql_var, value_str);
		resetStringInfo(&sparql_delete);
		appendStringInfoString(&sparql_delete, replaced);
	}

	/* Strip trailing whitespace and dots from the DELETE pattern */
	len = strlen(sparql_delete.data);
	while (len > 0 && (sparql_delete.data[len - 1] == '.' ||
					   isspace((unsigned char)sparql_delete.data[len - 1])))
	{
		sparql_delete.data[len - 1] = '\0';
		len--;
		sparql_delete.len = len;
	}

	/* Build INSERT part using NEW values from slot */
	initStringInfo(&sparql_insert);
	appendStringInfoString(&sparql_insert, state->sparql_update_pattern);

	/* Substitute variables with NEW values for the INSERT clause */
	for (int i = 0; i < tupdesc->natts; i++)
	{
		RDFfdwColumn *col = state->rdfTable->cols[i];
		char *sparql_var = col->sparqlvar;
		char *value_str;
		char *replaced;
		bool needs_escaping = false;

		/* Ensure the column is of rdfnode type */
		if (col->pgtype != RDFNODEOID)
			ereport(ERROR,
					(errcode(ERRCODE_FDW_ERROR),
					 errmsg("%s: column '%s' is not of type rdfnode", __func__, col->name)));

		/* Skip columns without SPARQL variable mapping */
		if (!sparql_var || strlen(sparql_var) == 0)
			continue;

		/* Check if this SPARQL variable exists in the template */
		if (strstr(sparql_insert.data, sparql_var) == NULL)
		{
			elog(DEBUG2, "%s: INSERT: SPARQL variable '%s' not found in template, skipping",
				 __func__, sparql_var);
			continue;
		}

		/* Get the NEW attribute value from the slot */
		datum = slot_getattr(slot, i + 1, &isnull);

		/* Raise error for NULL values - they violate RDF data model */
		if (isnull)
			ereport(ERROR,
					(errcode(ERRCODE_NOT_NULL_VIOLATION),
					 errmsg("NULL value in column \"%s\" violates RDF constraint", col->name),
					 errdetail("SPARQL variable '%s' cannot be NULL in RDF triple patterns", sparql_var),
					 errhint("RDF triples require all components to be non-NULL. "
							 "Filter NULL values in your query or provide default values.")));

		/* Convert the datum to string representation */
		value_str = DatumToString(datum, col->pgtype);

		/* SPARQL 1.1 Update spec prohibits blank nodes in INSERT/DELETE/UPDATE */
		if (isBlank(value_str))
			ereport(ERROR,
					(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
					 errmsg("blank nodes are not allowed in UPDATE operations"),
					 errhint("Blank nodes are document-local and have no global meaning. Use IRIs instead.")));

		/* Check if escaping is needed for control characters */
		for (const char *p = value_str; *p; p++)
		{
			if (*p == '\n' || *p == '\r' || *p == '\t')
			{
				needs_escaping = true;
				break;
			}
		}

		/* Only escape if control characters were found */
		if (needs_escaping)
			value_str = EscapeSPARQLLiteral(value_str);

		elog(DEBUG2, "%s: INSERT: column '%s' NEW value: %s", __func__, col->name, value_str);

		/* Replace the variable placeholder with the actual NEW value */
		replaced = str_replace(sparql_insert.data, sparql_var, value_str);
		resetStringInfo(&sparql_insert);
		appendStringInfoString(&sparql_insert, replaced);
	}

	/* Strip trailing whitespace and dots from the INSERT pattern */
	len = strlen(sparql_insert.data);
	while (len > 0 && (sparql_insert.data[len - 1] == '.' ||
					   isspace((unsigned char)sparql_insert.data[len - 1])))
	{
		sparql_insert.data[len - 1] = '\0';
		len--;
		sparql_insert.len = len;
	}

	/* Build the final UPDATE query using DELETE/INSERT */
	initStringInfo(&final_query);

	if (state->prefix_context)
	{
		appendStringInfoString(&final_query, state->sparql_prefixes);
		appendStringInfoString(&final_query, "\n");
	}

	/*
	 * Add this UPDATE statement (DELETE + INSERT) to the batch buffer.
	 * SPARQL UPDATE uses DELETE { old_pattern } INSERT { new_pattern } WHERE { }
	 * For fully-specified triples (no variables), we can use an empty WHERE clause.
	 */
	appendStringInfo(&state->batch_statements, "DELETE DATA { %s };\n", sparql_delete.data);
	appendStringInfo(&state->batch_statements, "INSERT DATA { %s };\n", sparql_insert.data);

	state->batch_count++;
	state->sparql_query_type = SPARQL_UPDATE;

	elog(DEBUG1, "%s: added row to batch (%d/%d)", __func__, state->batch_count, state->batch_size);

	/* Flush batch if it's full */
	if (state->batch_count >= state->batch_size)
	{
		MemoryContextSwitchTo(oldcontext);
		FlushSPARQLStatements(state);
		oldcontext = MemoryContextSwitchTo(state->temp_cxt);
	}

	/* Clean up temp context for next row */
	MemoryContextSwitchTo(oldcontext);

	elog(DEBUG1, "%s exit", __func__);

	return slot;
}

static void rdfEndForeignModify(EState *estate, ResultRelInfo *rinfo)
{
	RDFfdwState *state = (RDFfdwState *)rinfo->ri_FdwState;

	elog(DEBUG1, "%s called", __func__);

	if (state)
	{
		/* Flush any remaining batched statements */
		if (state->batch_count > 0)
			FlushSPARQLStatements(state);

		pfree(state);
	}

	elog(DEBUG1, "%s exit", __func__);
}

#if PG_VERSION_NUM >= 110000
static void rdfBeginForeignInsert(ModifyTableState *mtstate,
								  ResultRelInfo *resultRelInfo)
{
	ereport(ERROR,
			(errcode(ERRCODE_FDW_UNABLE_TO_CREATE_EXECUTION),
			 errmsg("COPY FROM is not supported by rdf_fdw")));
}

static void rdfEndForeignInsert(EState *estate, ResultRelInfo *resultRelInfo)
{
	ereport(ERROR,
			(errcode(ERRCODE_FDW_UNABLE_TO_CREATE_EXECUTION),
			 errmsg("COPY FROM is not supported by rdf_fdw")));
}
#endif /*PG_VERSION_NUM >= 110000*/

static void LoadRDFTableInfo(RDFfdwState *state)
{
	ListCell *cell;
	TupleDesc tupdesc;
#if PG_VERSION_NUM < 130000
	Relation rel = heap_open(state->foreigntableid, NoLock);
#else
	Relation rel = table_open(state->foreigntableid, NoLock);
#endif

	elog(DEBUG1, "%s called", __func__);

	state->numcols = rel->rd_att->natts;
	tupdesc = rel->rd_att;

	/*
	 *Loading FOREIGN TABLE strucuture (columns and their OPTION values)
	 */
	state->rdfTable = (struct RDFfdwTable *)palloc0(sizeof(struct RDFfdwTable));
	state->rdfTable->cols = (struct RDFfdwColumn **)palloc0(sizeof(struct RDFfdwColumn *) * state->numcols);

	for (int i = 0; i < state->numcols; i++)
	{
		List *options = GetForeignColumnOptions(state->foreigntableid, i + 1);
		ListCell *lc;

		Form_pg_attribute attr = TupleDescAttr(tupdesc, i);
		state->rdfTable->cols[i] = (struct RDFfdwColumn *)palloc0(sizeof(struct RDFfdwColumn));

		/*
		 * Setting foreign table colmuns's default values.
		 */
		state->rdfTable->cols[i]->pushable = true;
		state->rdfTable->cols[i]->nodetype = RDF_COLUMN_OPTION_NODETYPE_LITERAL;
		state->rdfTable->cols[i]->used = false;

#if PG_VERSION_NUM < 110000
		if (attr->atttypid == RDFNODEOID)
			elog(DEBUG2, "  %s: (%d) adding data type RDFNODEOID", __func__, i);
		else
			elog(DEBUG2, "  %s: (%d) adding data type %u", __func__, i, attr->atttypid);

		state->rdfTable->cols[i]->pgtype = attr->atttypid;
		state->rdfTable->cols[i]->name = pstrdup(NameStr(attr->attname));
		state->rdfTable->cols[i]->pgtypmod = attr->atttypmod;
		state->rdfTable->cols[i]->pgattnum = attr->attnum;
#else
		if (attr->atttypid == RDFNODEOID)
			elog(DEBUG2, "  %s: (%d) adding data type RDFNODEOID", __func__, i);
		else
			elog(DEBUG2, "  %s: (%d) adding data type %u", __func__, i, attr->atttypid);

		state->rdfTable->cols[i]->pgtype = attr->atttypid;
		state->rdfTable->cols[i]->name = pstrdup(NameStr(attr->attname));
		state->rdfTable->cols[i]->pgtypmod = attr->atttypmod;
		state->rdfTable->cols[i]->pgattnum = attr->attnum;
#endif

		foreach (lc, options)
		{
			DefElem *def = (DefElem *)lfirst(lc);

			if (state->rdfTable->cols[i]->pgtype == RDFNODEOID && strcmp(def->defname, RDF_COLUMN_OPTION_VARIABLE) != 0)
			{
				ereport(ERROR,
						(errcode(ERRCODE_FDW_INVALID_OPTION_NAME),
						 errmsg("invalid option \"%s\" for column \"%s\"",
								def->defname, state->rdfTable->cols[i]->name),
						 errhint("rdfnode columns accept only the \"%s\" option", RDF_COLUMN_OPTION_VARIABLE)));
			}
			else if (strcmp(def->defname, RDF_COLUMN_OPTION_VARIABLE) == 0)
			{
				elog(DEBUG2, "  %s: (%d) adding sparql variable > '%s'", __func__, i, defGetString(def));
				state->rdfTable->cols[i]->sparqlvar = pstrdup(defGetString(def));
			}
			else if (strcmp(def->defname, RDF_COLUMN_OPTION_EXPRESSION) == 0)
			{
				elog(DEBUG2, "  %s: (%d) adding sparql expression > '%s'", __func__, i, defGetString(def));
				state->rdfTable->cols[i]->expression = pstrdup(defGetString(def));
				state->rdfTable->cols[i]->pushable = IsExpressionPushable(defGetString(def));
				elog(DEBUG2, "  %s: (%d) is expression pushable? > '%s'", __func__, i,
					 state->rdfTable->cols[i]->pushable ? "true" : "false");
			}
			else if (strcmp(def->defname, RDF_COLUMN_OPTION_LITERALTYPE) == 0 || strcmp(def->defname, RDF_COLUMN_OPTION_LITERAL_TYPE) == 0)
			{
				elog(DEBUG2, "  %s: (%d) adding sparql literal data type > '%s'", __func__, i, defGetString(def));
				state->rdfTable->cols[i]->literaltype = pstrdup(defGetString(def));
			}
			else if (strcmp(def->defname, RDF_COLUMN_OPTION_NODETYPE) == 0)
			{
				elog(DEBUG2, "  %s: (%d) adding sparql node data type > '%s'", __func__, i, defGetString(def));
				state->rdfTable->cols[i]->nodetype = pstrdup(defGetString(def));
			}
			else if (strcmp(def->defname, RDF_COLUMN_OPTION_LANGUAGE) == 0)
			{
				elog(DEBUG2, "  %s: (%d) adding literal language tag > '%s'", __func__, i, defGetString(def));
				state->rdfTable->cols[i]->language = pstrdup(defGetString(def));
			}
		}
	}

#if PG_VERSION_NUM < 130000
	heap_close(rel, NoLock);
#else
	table_close(rel, NoLock);
#endif

	/*
	 * Loading FOREIGN TABLE OPTIONS
	 */
	foreach (cell, state->foreign_table->options)
	{
		DefElem *def = lfirst_node(DefElem, cell);

		if (strcmp(RDF_TABLE_OPTION_SPARQL, def->defname) == 0)
		{
			state->raw_sparql = defGetString(def);
			state->is_sparql_parsable = IsSPARQLParsable(state);
		}
		else if (strcmp(RDF_TABLE_OPTION_SPARQL_UPDATE_PATTERN, def->defname) == 0)
			state->sparql_update_pattern = defGetString(def);
		else if (strcmp(RDF_TABLE_OPTION_LOG_SPARQL, def->defname) == 0)
			state->log_sparql = defGetBoolean(def);
		else if (strcmp(RDF_TABLE_OPTION_ENABLE_PUSHDOWN, def->defname) == 0)
			state->enable_pushdown = defGetBoolean(def);
	}

	elog(DEBUG1, "%s exit", __func__);
}

static void LoadRDFServerInfo(RDFfdwState *state)
{
	elog(DEBUG1, "%s called", __func__);

	if (state->server)
	{
		ListCell *cell;

		foreach (cell, state->server->options)
		{
			DefElem *def = lfirst_node(DefElem, cell);

			if (strcmp(RDF_SERVER_OPTION_UPDATE_URL, def->defname) == 0 &&
				(state->sparql_query_type == SPARQL_INSERT || 
				 state->sparql_query_type == SPARQL_DELETE ||
				 state->sparql_query_type == SPARQL_UPDATE))
				state->endpoint = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_SELECT_URL, def->defname) == 0 &&
					 !state->endpoint)
				state->endpoint = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_FORMAT, def->defname) == 0)
				state->format = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_CUSTOMPARAM, def->defname) == 0)
				state->custom_params = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_HTTP_PROXY, def->defname) == 0)
			{
				state->proxy = defGetString(def);
				state->proxy_type = RDF_SERVER_OPTION_HTTP_PROXY;
			}
			else if (strcmp(RDF_SERVER_OPTION_HTTPS_PROXY, def->defname) == 0)
			{
				state->proxy = defGetString(def);
				state->proxy_type = RDF_SERVER_OPTION_HTTPS_PROXY;
			}
			else if (strcmp(RDF_SERVER_OPTION_PROXY_USER, def->defname) == 0)
				state->proxy_user = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_PROXY_USER_PASSWORD, def->defname) == 0)
				state->proxy_user_password = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_FETCH_SIZE, def->defname) == 0)
			{
				char *tailpt;
				char *fetch_size_str = defGetString(def);
				state->fetch_size = strtol(fetch_size_str, &tailpt, 0);
			}
			else if (strcmp(RDF_SERVER_OPTION_BATCH_SIZE, def->defname) == 0)
			{
				char *tailpt;
				char *batch_size_str = defGetString(def);
				state->batch_size = strtol(batch_size_str, &tailpt, 0);
			}
			else if (strcmp(RDF_SERVER_OPTION_CONNECTRETRY, def->defname) == 0)
			{
				char *tailpt;
				char *maxretry_str = defGetString(def);
				state->max_retries = strtol(maxretry_str, &tailpt, 0);
			}
			else if (strcmp(RDF_SERVER_OPTION_REQUEST_REDIRECT, def->defname) == 0)
				state->request_redirect = defGetBoolean(def);
			else if (strcmp(RDF_SERVER_OPTION_REQUEST_MAX_REDIRECT, def->defname) == 0)
			{
				char *tailpt;
				char *maxredirect_str = defGetString(def);
				state->request_max_redirect = strtol(maxredirect_str, &tailpt, 0);
			}
			else if (strcmp(RDF_SERVER_OPTION_CONNECTTIMEOUT, def->defname) == 0)
			{
				char *tailpt;
				char *timeout_str = defGetString(def);
				state->connect_timeout = strtol(timeout_str, &tailpt, 0);
			}
			else if (strcmp(RDF_SERVER_OPTION_ENABLE_PUSHDOWN, def->defname) == 0)
				state->enable_pushdown = defGetBoolean(def);
			
			else if (strcmp(RDF_SERVER_OPTION_ENABLE_XML_HUGE, def->defname) == 0)
				state->enable_xml_huge = defGetBoolean(def);

			else if (strcmp(RDF_SERVER_OPTION_QUERY_PARAM, def->defname) == 0)
				state->query_param = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_BASE_URI, def->defname) == 0)
				state->base_uri = defGetString(def);

			else if (strcmp(RDF_SERVER_OPTION_PREFIX_CONTEXT, def->defname) == 0)
				state->prefix_context = defGetString(def);
		}
	}

	elog(DEBUG1, "%s exit", __func__);
}

static void LoadRDFUserMapping(RDFfdwState *state)
{

	Datum datum;
	HeapTuple tp;
	bool isnull;
	UserMapping *um;
	List *options = NIL;
	ListCell *cell;
	bool usermatch = true;

	elog(DEBUG1, "%s called", __func__);

	tp = SearchSysCache2(USERMAPPINGUSERSERVER,
						 ObjectIdGetDatum(GetUserId()),
						 ObjectIdGetDatum(state->server->serverid));

	if (!HeapTupleIsValid(tp))
	{
		elog(DEBUG2, "%s: not found for the specific user -- try PUBLIC", __func__);
		tp = SearchSysCache2(USERMAPPINGUSERSERVER,
							 ObjectIdGetDatum(InvalidOid),
							 ObjectIdGetDatum(state->server->serverid));
	}

	if (!HeapTupleIsValid(tp))
	{
		elog(DEBUG2, "%s: user mapping not found for user \"%s\", server \"%s\"",
			 __func__, MappingUserName(GetUserId()), state->server->servername);

		usermatch = false;
	}

	if (usermatch)
	{
		elog(DEBUG2, "%s: setting UserMapping", __func__);
		um = (UserMapping *)palloc(sizeof(UserMapping));
#if PG_VERSION_NUM >= 120000
    um->umid = ((Form_pg_user_mapping) GETSTRUCT(tp))->oid;
#elif PG_VERSION_NUM >= 90600
    um->umid = HeapTupleGetOid(tp);
#endif
		um->userid = GetUserId();
		um->serverid = state->server->serverid;

		elog(DEBUG2, "%s: extract the umoptions", __func__);
		datum = SysCacheGetAttr(USERMAPPINGUSERSERVER,
								tp,
								Anum_pg_user_mapping_umoptions,
								&isnull);
		if (isnull)
			um->options = NIL;
		else
			um->options = untransformRelOptions(datum);

		if (um->options != NIL)
		{
			options = list_concat(options, um->options);

			foreach (cell, options)
			{
				DefElem *def = (DefElem *)lfirst(cell);

				if (strcmp(def->defname, RDF_USERMAPPING_OPTION_USER) == 0)
				{
					state->user = pstrdup(defGetString(def));
					elog(DEBUG2, "%s: %s '%s'", __func__, def->defname, state->user);
				}

				if (strcmp(def->defname, RDF_USERMAPPING_OPTION_PASSWORD) == 0)
				{
					state->password = pstrdup(defGetString(def));
					elog(DEBUG2, "%s: %s '*******'", __func__, def->defname);
				}
			}
		}

		ReleaseSysCache(tp);
	}

	elog(DEBUG1, "%s exit", __func__);
}

/*
 * SerializePlanData
 * -----------------
 * Converts parameters into Const variables, so that it can be properly
 * stored by the plan
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 *
 * returns a List containing all converted parameterrs.
 */
static List *SerializePlanData(RDFfdwState *state)
{
	List *result = NIL;

	elog(DEBUG1, "%s called", __func__);

	result = lappend(result, IntToConst((int)state->numcols));
	result = lappend(result, CStringToConst(state->sparql));
	result = lappend(result, CStringToConst(state->sparql_prefixes));
	result = lappend(result, CStringToConst(state->sparql_select));
	result = lappend(result, CStringToConst(state->sparql_from));
	result = lappend(result, CStringToConst(state->sparql_where));
	result = lappend(result, CStringToConst(state->sparql_filter));
	result = lappend(result, CStringToConst(state->sparql_filter_expr));
	result = lappend(result, CStringToConst(state->sparql_orderby));
	result = lappend(result, CStringToConst(state->sparql_limit));
	result = lappend(result, CStringToConst(state->raw_sparql));
	result = lappend(result, CStringToConst(state->endpoint));
	result = lappend(result, CStringToConst(state->query_param));
	result = lappend(result, CStringToConst(state->format));
	result = lappend(result, CStringToConst(state->proxy));
	result = lappend(result, CStringToConst(state->proxy_type));
	result = lappend(result, CStringToConst(state->proxy_user));
	result = lappend(result, CStringToConst(state->proxy_user_password));
	result = lappend(result, CStringToConst(state->custom_params));
	result = lappend(result, CStringToConst(state->user));
	result = lappend(result, CStringToConst(state->password));
	result = lappend(result, IntToConst((int)state->request_redirect));
	result = lappend(result, IntToConst((int)state->enable_pushdown));
	result = lappend(result, IntToConst((int)state->is_sparql_parsable));
	result = lappend(result, IntToConst((int)state->log_sparql));
	result = lappend(result, IntToConst((int)state->has_unparsable_conds));
	result = lappend(result, IntToConst((int)state->request_max_redirect));
	result = lappend(result, IntToConst((int)state->connect_timeout));
	result = lappend(result, IntToConst((int)state->max_retries));
	result = lappend(result, OidToConst(state->foreigntableid));
	
	elog(DEBUG2, "%s: serializing table with %d columns", __func__, state->numcols);
	for (int i = 0; i < state->numcols; ++i)
	{
		elog(DEBUG2, "%s: column name '%s'", __func__, state->rdfTable->cols[i]->name);
		result = lappend(result, CStringToConst(state->rdfTable->cols[i]->name));

		elog(DEBUG2, "%s: sparqlvar '%s'", __func__, state->rdfTable->cols[i]->sparqlvar);
		result = lappend(result, CStringToConst(state->rdfTable->cols[i]->sparqlvar));

		elog(DEBUG2, "%s: expression '%s'", __func__, state->rdfTable->cols[i]->expression);
		result = lappend(result, CStringToConst(state->rdfTable->cols[i]->expression));

		elog(DEBUG2, "%s: literaltype '%s'", __func__, state->rdfTable->cols[i]->literaltype);
		result = lappend(result, CStringToConst(state->rdfTable->cols[i]->literaltype));

		elog(DEBUG2, "%s: literal_format '%s'", __func__, state->rdfTable->cols[i]->literal_fomat);
		result = lappend(result, CStringToConst(state->rdfTable->cols[i]->literal_fomat));

		elog(DEBUG2, "%s: nodetype '%s'", __func__, state->rdfTable->cols[i]->nodetype);
		result = lappend(result, CStringToConst(state->rdfTable->cols[i]->nodetype));

		elog(DEBUG2, "%s: language '%s'", __func__, state->rdfTable->cols[i]->language);
		result = lappend(result, CStringToConst(state->rdfTable->cols[i]->language));

		if (state->rdfTable->cols[i]->pgtype == RDFNODEOID)
			elog(DEBUG2, "%s: pgtype 'RDFNODEOID'", __func__);
		else
			elog(DEBUG2, "%s: pgtype '%u'", __func__, state->rdfTable->cols[i]->pgtype);
		result = lappend(result, OidToConst(state->rdfTable->cols[i]->pgtype));

		elog(DEBUG2, "%s: pgtypmod '%d'", __func__, state->rdfTable->cols[i]->pgtypmod);
		result = lappend(result, IntToConst(state->rdfTable->cols[i]->pgtypmod));

		elog(DEBUG2, "%s: pgattnum '%d'", __func__, state->rdfTable->cols[i]->pgattnum);
		result = lappend(result, IntToConst(state->rdfTable->cols[i]->pgattnum));

		elog(DEBUG2, "%s: used '%d'", __func__, state->rdfTable->cols[i]->used);
		result = lappend(result, IntToConst(state->rdfTable->cols[i]->used));

		elog(DEBUG2, "%s: pushable '%d'", __func__, state->rdfTable->cols[i]->pushable);
		result = lappend(result, IntToConst(state->rdfTable->cols[i]->pushable));
	}

	result = lappend(result, CStringToConst(state->server->servername));
	result = lappend(result, IntToConst((int)state->batch_size));

	elog(DEBUG1, "%s exit", __func__);
	return result;
}

/*
 * DeserializePlanData
 * -------------------
 * Converts Const variables created using SerializePlanData back
 * into pointers
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 *
 * returns a RDFfdwState containing all converted parameterrs.
 */
static struct RDFfdwState *DeserializePlanData(List *list)
{
	struct RDFfdwState *state = (struct RDFfdwState *)palloc0(sizeof(RDFfdwState));
	ListCell *cell = list_head(list);

	elog(DEBUG1, "%s called", __func__);

	state->numcols = (int)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	state->rowcount = 0;
	state->pagesize = 0;
	cell = list_next(list, cell);

	state->sparql = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_prefixes = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_select = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_from = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_where = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_filter = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_filter_expr = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_orderby = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->sparql_limit = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->raw_sparql = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->endpoint = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->query_param = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->format = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->proxy = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->proxy_type = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->proxy_user = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->proxy_user_password = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->custom_params = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->user = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->password = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->request_redirect = (bool)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->enable_pushdown = (bool)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->is_sparql_parsable = (bool)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->log_sparql = (bool)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->has_unparsable_conds = (bool)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->request_max_redirect = (int)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->connect_timeout = (int)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->max_retries = (int)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	state->foreigntableid = DatumGetObjectId(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	elog(DEBUG2, "  %s: deserializing table with %d columns", __func__, state->numcols);
	state->rdfTable = (struct RDFfdwTable *)palloc0(sizeof(struct RDFfdwTable));
	state->rdfTable->cols = (struct RDFfdwColumn **)palloc0(sizeof(struct RDFfdwColumn *) * state->numcols);

	for (int i = 0; i < state->numcols; ++i)
	{
		state->rdfTable->cols[i] = (struct RDFfdwColumn *)palloc0(sizeof(struct RDFfdwColumn));

		state->rdfTable->cols[i]->name = ConstToCString(lfirst(cell));
		cell = list_next(list, cell);
		elog(DEBUG2, "  %s: column name '%s'", __func__, state->rdfTable->cols[i]->name);

		state->rdfTable->cols[i]->sparqlvar = ConstToCString(lfirst(cell));
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->expression = ConstToCString(lfirst(cell));
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->literaltype = ConstToCString(lfirst(cell));
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->literal_fomat = ConstToCString(lfirst(cell));
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->nodetype = ConstToCString(lfirst(cell));
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->language = ConstToCString(lfirst(cell));
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->pgtype = DatumGetObjectId(((Const *)lfirst(cell))->constvalue);
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->pgtypmod = (int)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->pgattnum = (int)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->used = (bool)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
		cell = list_next(list, cell);

		state->rdfTable->cols[i]->pushable = (bool)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
		cell = list_next(list, cell);
	}

	state->server = (ForeignServer *)palloc0(sizeof(ForeignServer));
	state->server->servername = ConstToCString(lfirst(cell));
	cell = list_next(list, cell);

	state->batch_size = (int)DatumGetInt32(((Const *)lfirst(cell))->constvalue);
	cell = list_next(list, cell);

	elog(DEBUG1, "%s exit", __func__);
	return state;
}

static size_t WriteMemoryCallback(void *contents, size_t size, size_t nmemb, void *userp)
{
	size_t realsize = size * nmemb;
	struct MemoryStruct *mem = (struct MemoryStruct *)userp;
	char *ptr = repalloc(mem->memory, mem->size + realsize + 1);

	elog(DEBUG3, "%s called", __func__);

	if (!ptr)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_OUT_OF_MEMORY),
				 errmsg("out of memory (repalloc returned NULL)")));

	mem->memory = ptr;
	memcpy(&(mem->memory[mem->size]), contents, realsize);
	mem->size += realsize;
	mem->memory[mem->size] = 0;

	elog(DEBUG3, "%s exit: returning '%lu' (realsize)", __func__, realsize);
	return realsize;
}

static size_t HeaderCallbackFunction(char *contents, size_t size, size_t nmemb, void *userp)
{

	size_t realsize = size * nmemb;
	struct MemoryStruct *mem = (struct MemoryStruct *)userp;
	char *ptr;
	char *sparqlxml = "content-type: application/sparql-results+xml";
	char *sparqlxmlutf8 = "content-type: application/sparql-results+xml; charset=utf-8";
	char *rdfxml = "content-type: application/rdf+xml";
	char *rdfxmlutf8 = "content-type: application/rdf+xml;charset=utf-8";

	elog(DEBUG3, "%s called", __func__);

	Assert(contents);

	/* is it a "content-type" entry? "*/
	if (strncasecmp(contents, sparqlxml, 13) == 0)
	{

		if (strncasecmp(contents, sparqlxml, strlen(sparqlxml)) != 0 &&
			strncasecmp(contents, sparqlxmlutf8, strlen(sparqlxmlutf8)) != 0 &&
			strncasecmp(contents, rdfxml, strlen(rdfxml)) != 0 &&
			strncasecmp(contents, rdfxmlutf8, strlen(rdfxmlutf8)) != 0)
		{
			/* remove crlf */
			contents[strlen(contents) - 2] = '\0';
			elog(DEBUG3, "%s: unsupported header entry: \"%s\"", __func__, contents);
			elog(DEBUG3, "%s: %s", __func__, mem->memory);
			return 0;
		}
	}

	ptr = repalloc(mem->memory, mem->size + realsize + 1);

	if (!ptr)
		ereport(ERROR,
				(errcode(ERRCODE_FDW_OUT_OF_MEMORY),
				 errmsg("[%s] out of memory (repalloc returned NULL)", __func__)));

	mem->memory = ptr;
	memcpy(&(mem->memory[mem->size]), contents, realsize);
	mem->size += realsize;
	mem->memory[mem->size] = 0;

	elog(DEBUG4, "%s: realsize='%lu'", __func__, realsize);
	elog(DEBUG3, "%s exit", __func__);
	return realsize;
}

/*
 * CURLProgressCallback
 * --------------------
 * Progress callback function for cURL requests. This allows us to
 * check for interruptions to immediatelly cancel the request.
 *
 * dltotal: Total bytes to download
 * dlnow: Bytes downloaded so far
 * ultotal: Total bytes to upload
 * ulnow: Bytes uploaded so far
 */
static int CURLProgressCallback(void *clientp, curl_off_t dltotal, curl_off_t dlnow, curl_off_t ultotal, curl_off_t ulnow)
{
	CHECK_FOR_INTERRUPTS();

	return 0;
}

/*
 * GetRDFColumn
 * -------------
 * Returns the RDFfdwColumn mapped to the table column in `columname`
 *
 * state    : SPARQL, SERVER and FOREIGN TABLE info
 * columname: name of the FOREIGN TABLE column
 *
 * returns RDFfdwColumn loded with all its attributes
 */
static struct RDFfdwColumn *GetRDFColumn(struct RDFfdwState *state, char *columnname)
{

	elog(DEBUG2, "%s called: column='%s'", __func__, columnname);

	if (!columnname)
	{
		elog(DEBUG2, "%s exit: returning NULL (columnname is NULL)", __func__);
		return NULL;
	}

	for (int i = 0; i < state->numcols; i++)
	{
		if (strcmp(state->rdfTable->cols[i]->name, columnname) == 0)
		{
			elog(DEBUG2, "%s exit: rerurning match for columname '%s'", __func__, columnname);
			return state->rdfTable->cols[i];
		}
	}

	elog(DEBUG2, "%s exit: rerurning NULL (no match found for '%s')", __func__, columnname);
	return NULL;
}

/*
 * InitSession
 * ----------
 * This function loads the 'OPTION' variables declared in SERVER and FOREIGN
 * TABLE statements. It also parses the raw_sparql query into its main clauses,
 * so that it can be later modified to match the SQL SELECT clause and commands
 * that can be pushed down to SPARQL
 *
 * state  : SPARQL, SERVER and FOREIGN TABLE info
 * baserel: Conditions and columns used in the SQL query
 * root   : Planner info
 */
static void InitSession(struct RDFfdwState *state, RelOptInfo *baserel, PlannerInfo *root)
{

#if PG_VERSION_NUM >= 90600
    List *columnlist = baserel->reltarget->exprs;
#else
    List *columnlist = baserel->reltargetlist;
#endif
	List *conditions = baserel->baserestrictinfo;
	ListCell *cell;
	StringInfoData select;

	elog(DEBUG1, "%s called", __func__);

	RDFNODEOID = GetRDFNodeOID();

	/*
	 * Setting session's default values.
	 */
	state->enable_pushdown = true;
	state->enable_xml_huge = false;
	state->log_sparql = false;
	state->has_unparsable_conds = false;
	state->query_param = RDF_DEFAULT_QUERY_PARAM;
	state->format = RDF_DEFAULT_FORMAT;
	state->connect_timeout = RDF_DEFAULT_CONNECTTIMEOUT;
	state->max_retries = RDF_DEFAULT_MAXRETRY;
	state->fetch_size = RDF_DEFAULT_FETCH_SIZE;
	state->foreign_table = GetForeignTable(state->foreigntableid);
	state->server = GetForeignServer(state->foreign_table->serverid);
	state->sparql_query_type = SPARQL_SELECT;

	/*
	 * Loading SERVER OPTIONS
	 */
	LoadRDFServerInfo(state);

	/*
	 * Loading FOREIGN TABLE structure and OPTIONS
	 */
	LoadRDFTableInfo(state);

	/*
	 * Loading USER MAPPING (if any)
	 */
	LoadRDFUserMapping(state);

	/*
	 * Marking columns used in the SQL query for SPARQL pushdown
	 */
	elog(DEBUG2, "%s: looking for columns in the SELECT entry list", __func__);
	foreach (cell, columnlist)
		SetUsedColumns((Expr *)lfirst(cell), state, baserel->relid);

	elog(DEBUG2, "%s: looking for columns used in WHERE conditions", __func__);
	foreach (cell, conditions)
		SetUsedColumns((Expr *)lfirst(cell), state, baserel->relid);

	/*
	 * For tables with sparql_update_pattern (used for INSERT/DELETE operations),
	 * we need to fetch ALL columns because DELETE operations need complete tuples
	 * to build proper DELETE DATA/WHERE statements.
	 * However, for SELECT queries, we should only fetch the requested columns.
	 */
	if (state->sparql_update_pattern && strlen(state->sparql_update_pattern) > 0 &&
		state->sparql_query_type != SPARQL_SELECT)
	{
		elog(DEBUG2, "%s: sparql_update_pattern detected for non-SELECT operation - marking all columns as used", __func__);
		for (int i = 0; i < state->numcols; i++)
		{
			if (!state->rdfTable->cols[i]->used)
			{
				elog(DEBUG2, "%s: marking column '%s' as used for UPDATE/DELETE operation",
					 __func__, state->rdfTable->cols[i]->name);
				state->rdfTable->cols[i]->used = true;
			}
		}
	}

	/*
	 * Load prefixes from the SERVER's 'prefix_context' and from
	 * the SPARQL query, if any.
	 */
	LoadPrefixes(state);

	/*
	 * We create the SPARQL SELECT clause according to the columns used in the
	 * SQL SELECT. Functions calls and expressions are only pushed down if explicitly
	 * declared in the 'expression' column OPTION.
	 */
	initStringInfo(&select);
	for (int i = 0; i < state->numcols; i++)
	{
		if (state->rdfTable->cols[i]->used && !state->rdfTable->cols[i]->expression)
			appendStringInfo(&select, "%s ", pstrdup(state->rdfTable->cols[i]->sparqlvar));

		else if (state->rdfTable->cols[i]->used && state->rdfTable->cols[i]->expression)
			appendStringInfo(&select, "(%s AS %s) ", pstrdup(state->rdfTable->cols[i]->expression),
							 pstrdup(state->rdfTable->cols[i]->sparqlvar));
	}

	state->sparql_select = pstrdup(select.data);

	/*
	 * Extract the graph patter from the SPARQL WHERE clause
	 */
	state->sparql_where = DeparseSPARQLWhereGraphPattern(state);

	/*
	 * Try to deparse SQL WHERE conditions, if any, to create SPARQL FILTER expressions
	 * Only do this for parsable queries - non-parsable queries should evaluate all conditions locally
	 */
	if (state->is_sparql_parsable)
		state->sparql_filter = DeparseSQLWhereConditions(state, baserel);
	else
	{
		state->sparql_filter = "";
		elog(DEBUG2, "%s: skipping WHERE condition parsing for non-parsable query", __func__);
	}

	/*
	 * deparse SQL ORDER BY, if any, and convert it to SPARQL
	 */
	state->sparql_orderby = DeparseSQLOrderBy(state, root, baserel);

	/*
	 * deparse SQL LIMIT, if any, and convert it to SPARQL
	 */
	state->sparql_limit = DeparseSQLLimit(state, root, baserel);

	/*
	 * deparse SPARQL FROM and FROM NAMED clauses, if any
	 */
	state->sparql_from = DeparseSPARQLFrom(state->raw_sparql);

	elog(DEBUG1, "%s exit", __func__);
}

/*
 * FetchNextBinding
 * ----------------
 * Loads the next binding from the record list 'state->recods' to return to
 * the client.
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 *
 * returns xmlNodePtr containg the retrieved record or NULL if EOF.
 */
static xmlNodePtr FetchNextBinding(RDFfdwState *state)
{
	ListCell *cell;
	xmlNodePtr res;

	elog(DEBUG3, "  %s: called > rowcount = %d/%d", __func__, state->rowcount, state->pagesize);

	if (state->rowcount > state->pagesize)
	{
		elog(DEBUG3, "%s exit: returning NULL (EOF!)", __func__);
		return NULL;
	}

	cell = list_nth_cell(state->records, state->rowcount);
	res = (xmlNodePtr)lfirst(cell);

	elog(DEBUG3, "  %s exit: returning %d", __func__, state->rowcount);

	return res;
}

/*
 * ExecuteSPARQL
 * -------------
 * Executes the SPARQL query in the endpoint set in the CREATE FOREIGN TABLE
 * and CREATE SERVER statements. The result set is loaded into 'state'.
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 *
 * returns REQUEST_SUCCESS or REQUEST_FAIL
 */
static int ExecuteSPARQL(RDFfdwState *state)
{
	CURLcode res;
	StringInfoData url_buffer;
	StringInfoData user_agent;
	StringInfoData accept_header;
	char errbuf[CURL_ERROR_SIZE];
	struct MemoryStruct chunk;
	struct MemoryStruct chunk_header;
	struct curl_slist *headers = NULL;
	long response_code;

	chunk.memory = palloc(1);
	chunk.size = 0; /* no data at this point */
	chunk_header.memory = palloc(1);
	chunk_header.size = 0; /* no data at this point */

	elog(DEBUG1, "%s called for %s operation", __func__,
		(state->sparql_query_type == SPARQL_INSERT) ? "INSERT" :
		(state->sparql_query_type == SPARQL_DELETE) ? "DELETE" :
		(state->sparql_query_type == SPARQL_UPDATE) ? "UPDATE" : "SELECT/DESCRIBE");

	curl_global_init(CURL_GLOBAL_ALL);
	state->curl = curl_easy_init();

	initStringInfo(&accept_header);
	appendStringInfo(&accept_header, "Accept: %s", state->format);

	if (state->log_sparql)
		elog(INFO, "SPARQL query sent to '%s':\n%s\n", state->server->servername, state->sparql);

	/* For SPARQL UPDATE operations (INSERT, DELETE, UPDATE), use different approach */
	if (state->sparql_query_type == SPARQL_INSERT ||
		state->sparql_query_type == SPARQL_DELETE ||
		state->sparql_query_type == SPARQL_UPDATE)
	{
		/* SPARQL UPDATE: send the update query directly in POST body with application/sparql-update */
		elog(DEBUG1, "%s: using SPARQL UPDATE protocol", __func__);

		/* No need to build URL parameters for UPDATE */
		initStringInfo(&url_buffer);
	}
	else
	{
		/* SPARQL SELECT/DESCRIBE: use URL-encoded form parameters */
		initStringInfo(&url_buffer);
		appendStringInfo(&url_buffer, "%s=%s", state->query_param, curl_easy_escape(state->curl, state->sparql, 0));

		if (state->custom_params)
			appendStringInfo(&url_buffer, "&%s", curl_easy_escape(state->curl, state->custom_params, 0));

		elog(DEBUG2, "  %s: url built > %s?%s", __func__, state->endpoint, url_buffer.data);
	}

	if (state->curl)
	{
		errbuf[0] = 0;

		curl_easy_setopt(state->curl, CURLOPT_URL, state->endpoint);

#if ((LIBCURL_VERSION_MAJOR == 7 && LIBCURL_VERSION_MINOR < 85) || LIBCURL_VERSION_MAJOR < 7)
		curl_easy_setopt(state->curl, CURLOPT_PROTOCOLS, CURLPROTO_HTTP | CURLPROTO_HTTPS);
#else
		curl_easy_setopt(state->curl, CURLOPT_PROTOCOLS_STR, "http,https");
#endif

		curl_easy_setopt(state->curl, CURLOPT_ERRORBUFFER, errbuf);

		curl_easy_setopt(state->curl, CURLOPT_CONNECTTIMEOUT, state->connect_timeout);
		elog(DEBUG2, "  %s: timeout > %ld", __func__, state->connect_timeout);
		elog(DEBUG2, "  %s: max retry > %ld", __func__, state->max_retries);

		if (state->proxy)
		{
			elog(DEBUG2, "  %s: proxy URL > '%s'", __func__, state->proxy);

			curl_easy_setopt(state->curl, CURLOPT_PROXY, state->proxy);

			if (strcmp(state->proxy_type, RDF_SERVER_OPTION_HTTP_PROXY) == 0)
			{
				elog(DEBUG2, "  %s: proxy protocol > 'HTTP'", __func__);
				curl_easy_setopt(state->curl, CURLOPT_PROXYTYPE, CURLPROXY_HTTP);
			}
			else if (strcmp(state->proxy_type, RDF_SERVER_OPTION_HTTPS_PROXY) == 0)
			{
				elog(DEBUG2, "  %s: proxy protocol > 'HTTPS'", __func__);
				curl_easy_setopt(state->curl, CURLOPT_PROXYTYPE, CURLPROXY_HTTPS);
			}

			if (state->proxy_user)
			{
				elog(DEBUG2, "  %s: entering proxy user ('%s').", __func__, state->proxy_user);
				curl_easy_setopt(state->curl, CURLOPT_PROXYUSERNAME, state->proxy_user);
			}

			if (state->proxy_user_password)
			{
				elog(DEBUG2, "  %s: entering proxy user's password.", __func__);
				curl_easy_setopt(state->curl, CURLOPT_PROXYPASSWORD, state->proxy_user_password);
			}
		}

		if (state->request_redirect == true)
		{

			elog(DEBUG2, "  %s: setting request redirect: %d", __func__, state->request_redirect);
			curl_easy_setopt(state->curl, CURLOPT_FOLLOWLOCATION, 1L);

			if (state->request_max_redirect)
			{
				elog(DEBUG2, "  %s: setting maxredirs: %ld", __func__, state->request_max_redirect);
				curl_easy_setopt(state->curl, CURLOPT_MAXREDIRS, state->request_max_redirect);
			}
		}

		curl_easy_setopt(state->curl, CURLOPT_VERBOSE, 1L);

		/* Set POST data based on query type */
		if (state->sparql_query_type == SPARQL_INSERT ||
			state->sparql_query_type == SPARQL_DELETE ||
			state->sparql_query_type == SPARQL_UPDATE)
		{
			/* For SPARQL UPDATE: send raw SPARQL update in POST body */
			elog(DEBUG1, "%s: setting SPARQL UPDATE body: %s", __func__, state->sparql);
			curl_easy_setopt(state->curl, CURLOPT_POSTFIELDS, state->sparql);
			curl_easy_setopt(state->curl, CURLOPT_POSTFIELDSIZE, (long)strlen(state->sparql));
		}
		else
		{
			/* For SPARQL SELECT/DESCRIBE: send URL-encoded parameters */
			curl_easy_setopt(state->curl, CURLOPT_POSTFIELDS, url_buffer.data);
		}

		curl_easy_setopt(state->curl, CURLOPT_HEADERFUNCTION, HeaderCallbackFunction);
		curl_easy_setopt(state->curl, CURLOPT_HEADERDATA, (void *)&chunk_header);
		curl_easy_setopt(state->curl, CURLOPT_WRITEFUNCTION, WriteMemoryCallback);
		curl_easy_setopt(state->curl, CURLOPT_WRITEDATA, (void *)&chunk);
		/* Don't use CURLOPT_FAILONERROR so we can capture error response bodies */
		curl_easy_setopt(state->curl, CURLOPT_FAILONERROR, false);

		/* Enable verbose mode for debugging */
		curl_easy_setopt(state->curl, CURLOPT_VERBOSE, 1L);

		/* Set the progress callback function */
		curl_easy_setopt(state->curl, CURLOPT_XFERINFOFUNCTION, CURLProgressCallback);

		/* Optional: Pass user data to the callback (NULL in this case) */
		curl_easy_setopt(state->curl, CURLOPT_XFERINFODATA, NULL);

		/* Enable progress callback */
		curl_easy_setopt(state->curl, CURLOPT_NOPROGRESS, 0L);

		initStringInfo(&user_agent);
		appendStringInfo(&user_agent, "PostgreSQL/%s rdf_fdw/%s libxml2/%s %s", PG_VERSION, FDW_VERSION, LIBXML_DOTTED_VERSION, curl_version());
		curl_easy_setopt(state->curl, CURLOPT_USERAGENT, user_agent.data);

		/* Set headers based on query type */
		if (state->sparql_query_type == SPARQL_INSERT ||
			state->sparql_query_type == SPARQL_DELETE ||
			state->sparql_query_type == SPARQL_UPDATE)
		{
			/* For SPARQL UPDATE: use application/sparql-update content type */
			headers = curl_slist_append(headers, "Content-Type: application/sparql-update");
			elog(DEBUG1, "%s: setting Content-Type: application/sparql-update", __func__);
		}
		else
		{
			/* For SPARQL SELECT/DESCRIBE: use standard accept header */
			headers = curl_slist_append(headers, accept_header.data);
		}

		curl_easy_setopt(state->curl, CURLOPT_HTTPHEADER, headers);

		if (state->user && state->password)
		{
			curl_easy_setopt(state->curl, CURLOPT_HTTPAUTH, CURLAUTH_BASIC);
			curl_easy_setopt(state->curl, CURLOPT_USERNAME, state->user);
			curl_easy_setopt(state->curl, CURLOPT_PASSWORD, state->password);
		}
		else if (state->user && !state->password)
		{
			curl_easy_setopt(state->curl, CURLOPT_HTTPAUTH, CURLAUTH_BASIC);
			curl_easy_setopt(state->curl, CURLOPT_USERNAME, state->user);
		}

		elog(DEBUG2, "  %s: performing cURL request ... ", __func__);

		res = curl_easy_perform(state->curl);

		/* Always get response code - even if cURL failed */
		curl_easy_getinfo(state->curl, CURLINFO_RESPONSE_CODE, &response_code);

		elog(DEBUG2, "  %s: cURL result=%d, HTTP status=%ld, response size=%zu",
			 __func__, res, response_code, chunk.size);

		/* Only retry on network errors, not HTTP errors (400-599) */
		if (res != CURLE_OK && (response_code == 0 || response_code < 400))
		{
			for (long i = 1; i <= state->max_retries && (res = curl_easy_perform(state->curl)) != CURLE_OK; i++)
			{
				elog(WARNING, "%s: request to '%s' failed (%ld)", __func__, state->server->servername, i);
				/* Reset chunk memory for retry */
				chunk.size = 0;
				chunk_header.size = 0;
			}
			/* Update response code after retries */
			curl_easy_getinfo(state->curl, CURLINFO_RESPONSE_CODE, &response_code);
		}

		/* Check for HTTP errors first (with FAILONERROR=false, we get the response body) */
		if (response_code >= 400)
		{
			/* HTTP error - response body should contain error details */
			elog(DEBUG1, "%s: HTTP error %ld, response size=%zu, header size=%zu",
				 __func__, response_code, chunk.size, chunk_header.size);

			if (chunk_header.size > 0 && chunk_header.memory)
				elog(DEBUG2, "%s: response headers:\n%s", __func__, chunk_header.memory);

			if (state->xmldoc)
				xmlFreeDoc(state->xmldoc);

			if (chunk.size > 0 && chunk.memory)
			{
				/* HTTP error with response body */
				elog(DEBUG1, "%s: error response body: %s", __func__, chunk.memory);

				if (response_code == 400)
					ereport(ERROR,
							(errcode(ERRCODE_SYNTAX_ERROR),
							 errmsg("SPARQL query error"),
							 errdetail("%s", chunk.memory),
							 errhint("The SPARQL endpoint returned: Bad Request (HTTP 400)")));
				else if (response_code == 401)
					ereport(ERROR,
							(errcode(ERRCODE_INVALID_AUTHORIZATION_SPECIFICATION),
							 errmsg("SERVER authentication failed (HTTP status %ld)", response_code),
							 errdetail("Response: %s", chunk.memory),
							 errhint("Check the user and password set in the USER MAPPING for the current PostgreSQL user: \"%s\" and try again.", GetUserNameFromId(GetUserId(), false))));
				else if (response_code == 404)
					ereport(ERROR,
							(errcode(ERRCODE_INVALID_AUTHORIZATION_SPECIFICATION),
							 errmsg("SERVER not found (HTTP status %ld)", response_code),
							 errdetail("Response: %s", chunk.memory),
							 errhint("Check the SERVER endpoint URL: '%s'", state->endpoint)));
				else if (response_code == 500)
					ereport(ERROR,
							(errcode(ERRCODE_EXTERNAL_ROUTINE_EXCEPTION),
							 errmsg("internal server error (HTTP status %ld)", response_code),
							 errdetail("Response from '%s': %s", state->server->servername, chunk.memory)));
				else
					ereport(ERROR,
							(errcode(ERRCODE_EXTERNAL_ROUTINE_EXCEPTION),
							 errmsg("HTTP error %ld from '%s'", response_code, state->server->servername),
							 errdetail("Response: %s", chunk.memory)));
			}
			else
			{
				/* HTTP error without response body */
				elog(DEBUG1, "%s: no response body available for HTTP error %ld", __func__, response_code);

				if (response_code == 400)
					ereport(ERROR,
							(errcode(ERRCODE_SYNTAX_ERROR),
							 errmsg("bad request (HTTP status %ld)", response_code)));
				else if (response_code == 401)
					ereport(ERROR,
							(errcode(ERRCODE_INVALID_AUTHORIZATION_SPECIFICATION),
							 errmsg("SERVER authentication failed (HTTP status %ld)", response_code),
							 errhint("Check the user and password set in the USER MAPPING for the PostgreSQL user \"%s\" and try again.", GetUserNameFromId(GetUserId(), false))));
				else if (response_code == 404)
					ereport(ERROR,
							(errcode(ERRCODE_INVALID_AUTHORIZATION_SPECIFICATION),
							 errmsg("SERVER not found (HTTP status %ld)", response_code),
							 errhint("Check the SERVER endpoint URL: '%s'", state->endpoint)));
				else if (response_code == 500)
					ereport(ERROR,
							(errcode(ERRCODE_EXTERNAL_ROUTINE_EXCEPTION),
							 errmsg("internal server error (HTTP status %ld)", response_code)));
				else
					ereport(ERROR,
							(errcode(ERRCODE_EXTERNAL_ROUTINE_EXCEPTION),
							 errmsg("HTTP error %ld from '%s'", response_code, state->server->servername)));
			}

			pfree(chunk.memory);
			pfree(chunk_header.memory);
			curl_slist_free_all(headers);
			curl_easy_cleanup(state->curl);
			curl_global_cleanup();
		}
		else if (res != CURLE_OK)
		{
			/* cURL/network error */
			size_t len = strlen(errbuf);
			fprintf(stderr, "\nlibcurl: (%d) ", res);

			xmlFreeDoc(state->xmldoc);

			if (len)
			{
				ereport(ERROR,
						(errcode(ERRCODE_FDW_UNABLE_TO_ESTABLISH_CONNECTION),
						 errmsg("unable to connect to '%s'", state->server->servername),
						 errdetail("%s (curl error code %u)", curl_easy_strerror(res), res)));
			}
			else
			{
				ereport(ERROR,
						(errcode(ERRCODE_FDW_UNABLE_TO_ESTABLISH_CONNECTION),
						 errmsg("%s => (%u) '%s'\n", __func__, res, curl_easy_strerror(res))));
			}

			pfree(chunk.memory);
			pfree(chunk_header.memory);
			curl_slist_free_all(headers);
			curl_easy_cleanup(state->curl);
			curl_global_cleanup();
		}
		else if (response_code >= 400)
		{
			/* HTTP error but cURL succeeded - capture error response */
			elog(DEBUG1, "%s: HTTP error %ld, response body: %s", __func__, response_code, chunk.memory);

			xmlFreeDoc(state->xmldoc);
			pfree(chunk.memory);
			pfree(chunk_header.memory);
			curl_slist_free_all(headers);
			curl_easy_cleanup(state->curl);
			curl_global_cleanup();
		}
		else
		{
			/* Success - HTTP 2xx */
			state->sparql_resultset = pstrdup(chunk.memory);

			elog(DEBUG4, "%s: http response header = \n%s", __func__, chunk_header.memory);
			elog(DEBUG4, "%s: xml document \n\n%s", __func__, chunk.memory);
			elog(DEBUG2, "%s: http response code = %ld", __func__, response_code);
			elog(DEBUG2, "%s: http response size = %ld", __func__, chunk.size);			
		}
	}

	pfree(chunk.memory);
	pfree(chunk_header.memory);
	curl_slist_free_all(headers);
	curl_easy_cleanup(state->curl);
	curl_global_cleanup();

	/*
	 * We thrown an error in case the SPARQL endpoint returns an empty XML doc
	 */
	if (!state->sparql_resultset)
	{
		elog(DEBUG1, "%s exit: REQUEST_FAIL", __func__);
		return REQUEST_FAIL;
	}

	elog(DEBUG1, "%s exit: REQUEST_SUCCESS", __func__);
	return REQUEST_SUCCESS;
}

/*
 * LoadRDFData
 * ---------------
 *
 * Parses the result set loaded into 'state->xmldoc' into records.
 * For SELECT queries, it delegates to the original LoadRDFData.
 * For DESCRIBE queries, it parses the RDF/XML response using libxml2 and stores
 * the parsed XML document in state->xmldoc for later processing by DescribeIRI().
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 */
static void LoadRDFData(RDFfdwState *state)
{
	int options = XML_PARSE_NOBLANKS | XML_PARSE_NONET;

	elog(DEBUG1, "%s called", __func__);

	/* Enable XML_PARSE_HUGE if needed */
	if (state->enable_xml_huge)
	{
		options |= XML_PARSE_HUGE;
		elog(DEBUG1, "%s: enabling XML_PARSE_HUGE", __func__);
	}

	if (state->sparql_query_type == SPARQL_DESCRIBE)
	{
		/* Execute the SPARQL DESCRIBE query */
		if (ExecuteSPARQL(state) != REQUEST_SUCCESS)
			elog(ERROR, "%s -> SPARQL DESCRIBE query failed: '%s'", __func__, state->endpoint);

		/* Free existing xmldoc before allocating new one */
		if (state->xmldoc)
		{
			elog(DEBUG2, "%s: freeing existing xmldoc", __func__);
			xmlFreeDoc(state->xmldoc);
			state->xmldoc = NULL;
		}

		/* Parse the RDF/XML response */
		state->xmldoc = xmlReadMemory(
			state->sparql_resultset,
			strlen(state->sparql_resultset),
			NULL, NULL,
			options);

		/* Free sparql_resultset as we no longer need it */
		if (state->sparql_resultset)
		{
			pfree(state->sparql_resultset);
			state->sparql_resultset = NULL;
		}

		if (state->xmldoc == NULL)
		{
			const xmlError *err = xmlGetLastError();
			if (err)
				elog(ERROR, "%s: failed to parse RDF/XML: %s", __func__, err->message);
			else
				elog(ERROR, "%s: failed to parse RDF/XML (unknown error)", __func__);
		}

		elog(DEBUG1, "%s exit: RDF/XML parsed successfully", __func__);
	}
	else
	{
		/* Handle SELECT queries */
		xmlNodePtr results;
		xmlNodePtr root;

		state->rowcount = 0;
		state->records = NIL;

		/* Execute the SPARQL query */
		if (ExecuteSPARQL(state) != REQUEST_SUCCESS)
			elog(ERROR, "%s -> SPARQL failed: '%s'", __func__, state->endpoint);

		elog(DEBUG2, "  %s: loading 'xmlroot'", __func__);

		/* Free existing xmldoc before allocating new one */
		if (state->xmldoc)
		{
			elog(DEBUG2, "	%s: freeing existing xmldoc", __func__);
			xmlFreeDoc(state->xmldoc);
			state->xmldoc = NULL;
		}

		/* Parse the SPARQL result XML */
		state->xmldoc = xmlReadMemory(
			state->sparql_resultset,
			strlen(state->sparql_resultset),
			NULL, NULL,
			options);

		/* We no longer need sparql_resultset, so let's free it */
		if (state->sparql_resultset)
		{
			pfree(state->sparql_resultset);
			state->sparql_resultset = NULL;
		}

		if (state->xmldoc == NULL)
		{
			const xmlError *err = xmlGetLastError();
			if (err)
				elog(ERROR, "%s: failed to parse SPARQL XML result: %s", __func__, err->message);
			else
				elog(ERROR, "%s: failed to parse SPARQL XML result (unknown error)", __func__);
		}

		root = xmlDocGetRootElement(state->xmldoc);

		if (root == NULL)
			elog(ERROR, "%s: SPARQL XML result has no root element", __func__);

		for (results = root->children; results != NULL; results = results->next)
		{
			if (xmlStrcmp(results->name, (xmlChar *)"results") == 0)
			{
				xmlNodePtr record;

				for (record = results->children; record != NULL; record = record->next)
				{
					if (xmlStrcmp(record->name, (xmlChar *)"result") == 0)
					{
						state->records = lappend(state->records, record);
						state->pagesize++;

						elog(DEBUG2, "  %s: appending record %d", __func__, state->pagesize);
					}
				}
			}
		}

		if (state->log_sparql)
			elog(INFO, "SPARQL returned %d %s.\n", state->pagesize, state->pagesize == 1 ? "record" : "records");

		elog(DEBUG1, "%s exit: SELECT query processed", __func__);
	}
}

/*
 * SetUsedColumns
 * --------------
 * Marks FOREIGN TABLE's columns as used if they're used in the SQL query. This is
 * useful to get the mapped 'variable' OPTIONs, so that we can build a SPARQL SELECT
 * only with the required variables.
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 */
static void SetUsedColumns(Expr *expr, struct RDFfdwState *state, int foreignrelid)
{
	Var *variable;
	ListCell *cell;

	elog(DEBUG2, "%s called: expression='%d'", __func__, expr->type);

	switch (expr->type)
	{
	case T_RestrictInfo:
		SetUsedColumns(((RestrictInfo *)expr)->clause, state, foreignrelid);
		break;
	case T_TargetEntry:
		SetUsedColumns(((TargetEntry *)expr)->expr, state, foreignrelid);
		break;
	case T_Const:
	case T_Param:
	case T_CaseTestExpr:
	case T_CoerceToDomainValue:
	case T_CurrentOfExpr:
#if PG_VERSION_NUM >= 100000
	case T_NextValueExpr:
#endif
		break;
	case T_Var:

		variable = (Var *)expr;

		/* ignore columns belonging to a different foreign table */
		if (variable->varno != foreignrelid)
		{
			elog(WARNING, "%s: column belonging to a different foreign table", __func__);
			break;
		}

		/* ignore system columns */
		if (variable->varattno < 0)
		{
			elog(WARNING, "%s: ignoring system column", __func__);
			break;
		}

		for (int i = 0; i < state->numcols; i++)
		{
			if (state->rdfTable->cols[i]->pgattnum == variable->varattno)
			{
				state->rdfTable->cols[i]->used = true;
				elog(DEBUG2, "%s: column '%s' (%d) required in the SQL query", __func__, state->rdfTable->cols[i]->name, i);
				break;
			}
		}

		break;
	case T_Aggref:
		foreach (cell, ((Aggref *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		foreach (cell, ((Aggref *)expr)->aggorder)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		foreach (cell, ((Aggref *)expr)->aggdistinct)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_WindowFunc:
		foreach (cell, ((WindowFunc *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
#if PG_VERSION_NUM < 120000
	case T_ArrayRef:
	{
		ArrayRef *ref = (ArrayRef *)expr;
#else
	case T_SubscriptingRef:
	{
		SubscriptingRef *ref = (SubscriptingRef *)expr;
#endif

		foreach (cell, ref->refupperindexpr)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		foreach (cell, ref->reflowerindexpr)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		SetUsedColumns(ref->refexpr, state, foreignrelid);
		SetUsedColumns(ref->refassgnexpr, state, foreignrelid);
		break;
	}
	case T_FuncExpr:
		foreach (cell, ((FuncExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_OpExpr:
		foreach (cell, ((OpExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_DistinctExpr:
		foreach (cell, ((DistinctExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_NullIfExpr:
		foreach (cell, ((NullIfExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_ScalarArrayOpExpr:
		foreach (cell, ((ScalarArrayOpExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_BoolExpr:
		foreach (cell, ((BoolExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_SubPlan:
	{
		SubPlan *subplan = (SubPlan *)expr;

		SetUsedColumns((Expr *)(subplan->testexpr), state, foreignrelid);

		foreach (cell, subplan->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
	}
	break;
	case T_AlternativeSubPlan:
		/* examine only first alternative */
		SetUsedColumns((Expr *)linitial(((AlternativeSubPlan *)expr)->subplans), state, foreignrelid);
		break;
	case T_NamedArgExpr:
		SetUsedColumns(((NamedArgExpr *)expr)->arg, state, foreignrelid);
		break;
	case T_FieldSelect:
		SetUsedColumns(((FieldSelect *)expr)->arg, state, foreignrelid);
		break;
	case T_RelabelType:
		SetUsedColumns(((RelabelType *)expr)->arg, state, foreignrelid);
		break;
	case T_CoerceViaIO:
		SetUsedColumns(((CoerceViaIO *)expr)->arg, state, foreignrelid);
		break;
	case T_ArrayCoerceExpr:
		SetUsedColumns(((ArrayCoerceExpr *)expr)->arg, state, foreignrelid);
		break;
	case T_ConvertRowtypeExpr:
		SetUsedColumns(((ConvertRowtypeExpr *)expr)->arg, state, foreignrelid);
		break;
	case T_CollateExpr:
		SetUsedColumns(((CollateExpr *)expr)->arg, state, foreignrelid);
		break;
	case T_CaseExpr:
		foreach (cell, ((CaseExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		SetUsedColumns(((CaseExpr *)expr)->arg, state, foreignrelid);
		SetUsedColumns(((CaseExpr *)expr)->defresult, state, foreignrelid);
		break;
	case T_CaseWhen:
		SetUsedColumns(((CaseWhen *)expr)->expr, state, foreignrelid);
		SetUsedColumns(((CaseWhen *)expr)->result, state, foreignrelid);
		break;
	case T_ArrayExpr:
		foreach (cell, ((ArrayExpr *)expr)->elements)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_RowExpr:
		foreach (cell, ((RowExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_RowCompareExpr:
		foreach (cell, ((RowCompareExpr *)expr)->largs)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		foreach (cell, ((RowCompareExpr *)expr)->rargs)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_CoalesceExpr:
		foreach (cell, ((CoalesceExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_MinMaxExpr:
		foreach (cell, ((MinMaxExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_XmlExpr:
		foreach (cell, ((XmlExpr *)expr)->named_args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		foreach (cell, ((XmlExpr *)expr)->args)
		{
			SetUsedColumns((Expr *)lfirst(cell), state, foreignrelid);
		}
		break;
	case T_NullTest:
		SetUsedColumns(((NullTest *)expr)->arg, state, foreignrelid);
		break;
	case T_BooleanTest:
		SetUsedColumns(((BooleanTest *)expr)->arg, state, foreignrelid);
		break;
	case T_CoerceToDomain:
		SetUsedColumns(((CoerceToDomain *)expr)->arg, state, foreignrelid);
		break;
	case T_PlaceHolderVar:
		SetUsedColumns(((PlaceHolderVar *)expr)->phexpr, state, foreignrelid);
		break;
#if PG_VERSION_NUM >= 100000
	case T_SQLValueFunction:
		break; /* contains no column references */
#endif		   /* PG_VERSION_NUM */
	default:
		ereport(ERROR,
				(errcode(ERRCODE_FDW_UNABLE_TO_CREATE_REPLY),
				 errmsg("unknown node type found: %d.", expr->type)));
		break;
	}

	elog(DEBUG2, "%s exit", __func__);
}

/*
 * CreateSPARQL
 * ------------
 * Creates the final SPARQL query sent to the server, which might includes the
 * pushdown of SQL instructions. The query will be loaded into 'state->sparql'
 *
 * state: SPARQL, SERVER and FOREIGN TABLE info
 * root : Planner info
 */
static void CreateSPARQL(RDFfdwState *state, PlannerInfo *root)
{
	StringInfoData where_graph;
	StringInfoData sparql;

	initStringInfo(&sparql);
	initStringInfo(&where_graph);

	elog(DEBUG2, "%s called", __func__);

	if (state->sparql_filter && strlen(state->sparql_filter) > 0)
		appendStringInfo(&where_graph, "{%s\n ## rdf_fdw pushdown conditions ##\n%s}", pstrdup(state->sparql_where), pstrdup(state->sparql_filter));
	else
		appendStringInfo(&where_graph, "{%s}", pstrdup(state->sparql_where));
	/*
	 * if the raw SPARQL query contains a DISTINCT modifier, this must be added into the
	 * new SELECT clause
	 */
	if (state->is_sparql_parsable == true &&
		LocateKeyword(state->raw_sparql, " \n", "DISTINCT", " \n?", NULL, 0) != RDF_KEYWORD_NOT_FOUND)
	{
		elog(DEBUG2, "  %s: SPARQL is valid and contains a DISTINCT modifier > pushing down DISTINCT", __func__);
		appendStringInfo(&sparql, "%s\nSELECT DISTINCT %s\n%s%s",
						 state->sparql_prefixes,
						 strlen(state->sparql_select) == 0 ? " * " : state->sparql_select,
						 state->sparql_from,
						 where_graph.data);
	}
	/*
	 * if the raw SPARQL query contains a REDUCED modifier, this must be added into the
	 * new SELECT clause
	 */
	else if (state->is_sparql_parsable == true &&
			 LocateKeyword(state->raw_sparql, " \n", "REDUCED", " \n?", NULL, 0) != RDF_KEYWORD_NOT_FOUND)
	{
		elog(DEBUG2, "  %s: SPARQL is valid and contains a REDUCED modifier > pushing down REDUCED", __func__);
		appendStringInfo(&sparql, "%s\nSELECT REDUCED %s\n%s%s",
						 state->sparql_prefixes,
						 strlen(state->sparql_select) == 0 ? " * " : state->sparql_select,
						 state->sparql_from,
						 where_graph.data);
	}
	/*
	 * if the raw SPARQL query does not contain a DISTINCT but the SQL query does,
	 * this must be added into the new SELECT clause
	 */
	else if (state->is_sparql_parsable &&
			 root &&																						/* was the PlanerInfo provided? */
			 root->parse->distinctClause != NULL &&															/* is there a DISTINCT clause in the PlanerInfo?*/
			 !root->parse->hasDistinctOn &&																	/* does the DISTINCT clause have a DISTINCT ON?*/
			 LocateKeyword(state->raw_sparql, " \n", "DISTINCT", " \n?", NULL, 0) == RDF_KEYWORD_NOT_FOUND) /* does the SPARQL have a DISTINCT clause?*/
	{
		appendStringInfo(&sparql, "%s\nSELECT DISTINCT %s\n%s%s",
						 state->sparql_prefixes,
						 strlen(state->sparql_select) == 0 ? " * " : state->sparql_select,
						 state->sparql_from,
						 where_graph.data);
	}
	else
	{
		appendStringInfo(&sparql, "%s\nSELECT %s\n%s%s",
						 state->sparql_prefixes,
						 strlen(state->sparql_select) == 0 ? " * " : state->sparql_select,
						 state->sparql_from,
						 where_graph.data);
	}
	/*
	 * if the SQL query contains an ORDER BY, we try to push it down.
	 */
	if (state->is_sparql_parsable && state->sparql_orderby)
	{
		elog(DEBUG2, "  %s: pushing down ORDER BY clause > 'ORDER BY %s'", __func__, state->sparql_orderby);
		appendStringInfo(&sparql, "\nORDER BY%s", pstrdup(state->sparql_orderby));
	}

	/*
	 * Pushing down LIMIT (OFFSET) to the SPARQL query if the SQL query contains them.
	 * If the SPARQL query set in the CREATE TABLE statement already contains a LIMIT,
	 * this won't be pushed.
	 */
	if (state->sparql_limit)
	{
		elog(DEBUG2, "  %s: pushing down LIMIT clause > '%s'", __func__, state->sparql_limit);
		appendStringInfo(&sparql, "\n%s", state->sparql_limit);
	}

	state->sparql = pstrdup(NameStr(sparql));

	elog(DEBUG1, "%s exit", __func__);
}

/*
 * CreateTuple
 * -----------
 * Populates a TupleTableSlot with values extracted from a single SPARQL
 * result binding (an <result> XML node).
 *
 * The function performs the following steps:
 *   - Iterates over columns defined in the foreign table.
 *   - Matches each column with the corresponding SPARQL variable (e.g., "?foo").
 *   - Extracts RDF term content, datatype, language tag, and node type from the XML.
 *   - Converts the RDF term to a PostgreSQL Datum using the appropriate input function.
 *   - Handles language-tagged literals, typed literals, IRIs, or plain strings.
 *   - Applies RDF-specific formatting if requested via the column's literal_format.
 *   - Handles type coercion using the PostgreSQL typinput function for each column.
 *
 * Parameters:
 *   slot  - Tuple slot to be filled and returned to the executor.
 *   state - Foreign scan state, including column metadata and result document pointer.
 *
 * The function assumes that FetchNextBinding(state) returns a pointer to the next
 * <result> node in the SPARQL XML result set.
 */
static void CreateTuple(TupleTableSlot *slot, RDFfdwState *state)
{
	xmlNodePtr record;
	xmlNodePtr result;
	regproc typinput;
	/*
		MemoryContext old_cxt, tmp_cxt;

		tmp_cxt = AllocSetContextCreate(CurrentMemoryContext,
										"rdf_fdw temporary data",
										ALLOCSET_SMALL_SIZES);
		old_cxt = MemoryContextSwitchTo(tmp_cxt);
	*/
	record = FetchNextBinding(state);

	elog(DEBUG3, "%s called ", __func__);

	ExecClearTuple(slot);

	for (int i = 0; i < state->numcols; i++)
	{
		bool match = false;
		Oid pgtype = state->rdfTable->cols[i]->pgtype;
		char *sparqlvar = state->rdfTable->cols[i]->sparqlvar;
		char *colname = state->rdfTable->cols[i]->name;
		int pgtypmod = state->rdfTable->cols[i]->pgtypmod;

		for (result = record->children; result != NULL; result = result->next)
		{
			xmlChar *prop = xmlGetProp(result, (xmlChar *)RDF_XML_NAME_TAG);
			StringInfoData name;

			initStringInfo(&name);
			appendStringInfo(&name, "?%s", (char *)prop);

			if (strcmp(sparqlvar, name.data) == 0)
			{
				xmlNodePtr value;
				match = true;

				for (value = result->children; value != NULL; value = value->next)
				{
					HeapTuple tuple;
					Datum datum;
					StringInfoData literal_value;
					xmlChar *datatype = xmlGetProp(value, (xmlChar *)RDF_SPARQL_RESULT_LITERAL_DATATYPE);
					xmlChar *lang = xmlGetProp(value, (xmlChar *)RDF_SPARQL_RESULT_LITERAL_LANG);
					xmlChar *content = xmlNodeGetContent(value->children);
					const xmlChar *node_type = value->name;
					char *node_value;

					initStringInfo(&literal_value);
					node_value = (char *)content;

					/*
					 * For empty RDF literals (like "" or ""@en or ""^^xsd:string),
					 * xmlNodeGetContent may return NULL when the element is empty.
					 * We need to distinguish between:
					 * 1. Empty literal "" - a valid RDF value (empty string)
					 * 2. Unbound variable - absence of binding (SQL NULL)
					 *
					 * If we're inside a <literal>, <uri>, or <bnode> element,
					 * then NULL content means empty string, not unbound.
					 */
					if (!node_value)
					{
						/* Check if this is a bound RDF term (literal, uri, or bnode) */
						if (xmlStrcmp(node_type, (xmlChar *)RDF_SPARQL_RESULT_LITERAL) == 0 ||
							xmlStrcmp(node_type, (xmlChar *)RDF_SPARQL_RESULT_URI) == 0 ||
							xmlStrcmp(node_type, (xmlChar *)RDF_SPARQL_RESULT_BNODE) == 0)
						{
							/* Empty RDF term - use empty string */
							node_value = "";
							elog(DEBUG2, "%s: empty %s for column '%s' (%s)", 
								 __func__, (char*)node_type, colname, sparqlvar);
						}
						else
						{
							/* Unbound variable or unexpected element - treat as NULL */
							elog(DEBUG2, "%s: no value found for column '%s' (%s)", __func__, colname, sparqlvar);

							if (content)
								xmlFree(content);
							if (lang)
								xmlFree(lang);
							if (datatype)
								xmlFree(datatype);
							if (literal_value.data)
								pfree(literal_value.data);

							slot->tts_isnull[i] = true;
							continue;
						}
					}

					elog(DEBUG3, "%s: value='%s', lang='%s', datatye='%s', node_type='%s'",
						 __func__, node_value, (char *)lang, (char *)datatype, node_type);

					/*
					 * If the column is an RDFNode, we need to check if it has a
					 * datatype or a language tag. If it does, we need to format
					 * it accordingly.
					 *
					 * IMPORTANT: node_value at this point is raw lexical content from
					 * xmlNodeGetContent(), which has already unescaped XML entities
					 * (e.g., &quot; becomes "). We must NOT pass it through lex()
					 * which would misinterpret quote characters as RDF syntax.
					 * Instead, construct the rdfnode directly from the raw content.
					 */
					if (state->rdfTable->cols[i]->pgtype == RDFNODEOID)
					{
						if (xmlStrcmp(node_type, (xmlChar *)RDF_SPARQL_RESULT_URI) == 0)
						{
							appendStringInfo(&literal_value, "%s", iri(node_value));
						}
						else if (xmlStrcmp(node_type, (xmlChar *)RDF_SPARQL_RESULT_BNODE) == 0)
						{
							/* For blank nodes, preserve the label with _: prefix */
							appendStringInfo(&literal_value, "_:%s", node_value);
						}
						else
						{
							/* Build literal with proper quote escaping */
							char *escaped = cstring_to_rdfliteral(node_value);

							if (datatype)
								appendStringInfo(&literal_value, "%s^^%s", escaped, (char *)datatype);
							else if (lang)
								appendStringInfo(&literal_value, "%s@%s", escaped, (char *)lang);
							else
								appendStringInfo(&literal_value, "%s", escaped);
						}
					}
					else
						appendStringInfo(&literal_value, "%s", node_value);

					datum = CStringGetDatum(literal_value.data);
					slot->tts_isnull[i] = false;

					if (pgtype == RDFNODEOID)
						elog(DEBUG3, "%s: setting pg column > '%s' (type > '(RDFNODEOID)'), sparqlvar > '%s'", __func__, colname, sparqlvar);
					else
						elog(DEBUG3, "%s: setting pg column > '%s' (type > '%d'), sparqlvar > '%s'", __func__, colname, pgtype, sparqlvar);

					elog(DEBUG3, "%s: value > '%s'", __func__, node_value);

					/* find the appropriate conversion function */
					tuple = SearchSysCache1(TYPEOID, ObjectIdGetDatum(pgtype));

					if (!HeapTupleIsValid(tuple))
					{
						/* Cleanup before error */
						if (content)
							xmlFree(content);
						if (lang)
							xmlFree(lang);
						if (datatype)
							xmlFree(datatype);
						if (prop)
							xmlFree(prop);

						ereport(ERROR,
								(errcode(ERRCODE_FDW_INVALID_DATA_TYPE),
								 errmsg("cache lookup failed for type %u > column '%s(%s)'", pgtype, name.data, sparqlvar)));
					}

					typinput = ((Form_pg_type)GETSTRUCT(tuple))->typinput;
					ReleaseSysCache(tuple);

					if (pgtype == NUMERICOID || pgtype == TIMESTAMPOID || pgtype == TIMESTAMPTZOID || pgtype == VARCHAROID)
					{

						slot->tts_values[i] = OidFunctionCall3(
							typinput,
							datum,
							ObjectIdGetDatum(InvalidOid),
							Int32GetDatum(pgtypmod));
					}
					else if (pgtype == RDFNODEOID)
					{
						slot->tts_values[i] = DirectFunctionCall1(rdfnode_in, datum);
					}
					else
					{
						slot->tts_values[i] = OidFunctionCall1(typinput, datum);
					}

					/* Cleanup after successful processing */
					if (content)
						xmlFree(content);
					if (lang)
						xmlFree(lang);
					if (datatype)
						xmlFree(datatype);
					if (literal_value.data)
						pfree(literal_value.data);
				}
			}

			if (name.data)
				pfree(name.data);

			if (prop)
				xmlFree(prop);
		}

		if (!match)
		{
			elog(DEBUG3, "    %s: setting NULL for column '%s' (%s)", __func__, colname, sparqlvar);
			slot->tts_isnull[i] = true;
		}
	}

	// MemoryContextSwitchTo(old_cxt);
	// MemoryContextDelete(tmp_cxt);

	ExecStoreVirtualTuple(slot);

	elog(DEBUG3, "%s exit", __func__);
}

/*
 * DatumToString
 * -------------
 * Converts a 'Datum' into a char*.
 *
 * datum: Data to be converted to char*
 * type : Oid of the data type to be converted
 *
 * returns a char* with the string representation of a Datum or an empty string.
 */
static char *DatumToString(Datum datum, Oid type)
{
	StringInfoData result;
	regproc typoutput;
	HeapTuple tuple;
	char *str;
	text *t;

	if (type == RDFNODEOID)
		elog(DEBUG3, "%s called: type='(RDFNODEOID)' ", __func__);
	else
		elog(DEBUG3, "%s called: type='%u' ", __func__, type);

	/* get the type's output function */
	tuple = SearchSysCache1(TYPEOID, ObjectIdGetDatum(type));
	if (!HeapTupleIsValid(tuple))
	{
		elog(ERROR, "%s: cache lookup failed for type %u", __func__, type);
	}
	typoutput = ((Form_pg_type)GETSTRUCT(tuple))->typoutput;
	ReleaseSysCache(tuple);

	initStringInfo(&result);
	if (type == RDFNODEOID)
	{
		str = DatumGetCString(OidFunctionCall1(typoutput, datum));
		appendStringInfo(&result, "%s", str);
	}
	else
		switch (type)
		{
		case TEXTOID:
		case CHAROID:
		case BPCHAROID:
		case VARCHAROID:
		case NAMEOID:
		case UUIDOID:
		case INT8OID:
		case INT2OID:
		case INT4OID:
		case OIDOID:
		case FLOAT4OID:
		case FLOAT8OID:
		case NUMERICOID:
			str = DatumGetCString(OidFunctionCall1(typoutput, datum));
			appendStringInfo(&result, "%s", str);
			break;
		case DATEOID:
			t = DatumGetTextP(DirectFunctionCall1(date_to_rdfnode, datum));
			appendStringInfo(&result, "%s", text_to_cstring(t));
			break;
		case TIMEOID:
			t = DatumGetTextP(DirectFunctionCall1(time_to_rdfnode, datum));
			appendStringInfo(&result, "%s", text_to_cstring(t));
			break;
		case TIMETZOID:
			t = DatumGetTextP(DirectFunctionCall1(timetz_to_rdfnode, datum));
			appendStringInfo(&result, "%s", text_to_cstring(t));
			break;
		case TIMESTAMPOID:
			t = DatumGetTextP(DirectFunctionCall1(timestamp_to_rdfnode, datum));
			appendStringInfo(&result, "%s", text_to_cstring(t));
			break;
		case TIMESTAMPTZOID:
			t = DatumGetTextP(DirectFunctionCall1(timestamptz_to_rdfnode, datum));
			appendStringInfo(&result, "%s", text_to_cstring(t));
			break;
		case BOOLOID:
			t = DatumGetTextP(DirectFunctionCall1(boolean_to_rdfnode, datum));
			appendStringInfo(&result, "%s", text_to_cstring(t));
			break;
		default:
			elog(DEBUG1, "%s exit: returning NULL (unknown data type)", __func__);
			return NULL;
		}

	elog(DEBUG3, "%s exit: returning '%s'", __func__, result.data);
	return result.data;
}

/*
 * DeparseExpr
 * -----------
 * Deparses SQL expressions and converts them into SPARQL expressions
 *
 * state     : SPARQL, SERVER and FOREIGN TABLE info
 * foreignrel: Conditions and columns used in the SQL query
 * expr      : Expression to be deparsed
 *
 * returns a string containing a SPARQL expression or NULL if not parseable
 */
static char *DeparseExpr(struct RDFfdwState *state, RelOptInfo *foreignrel, Expr *expr)
{
	char *arg, *opername, *left, *right, oprkind;
	Const *constant;
	OpExpr *oper;
	ScalarArrayOpExpr *arrayoper;
	Var *variable;
	HeapTuple tuple;
	StringInfoData result;
	Oid leftargtype, rightargtype;
	int index;
	ArrayExpr *array;
	ArrayCoerceExpr *arraycoerce;
	Expr *rightexpr;
	Expr *leftexpr;
	bool first_arg, isNull;
	ArrayIterator iterator;
	Datum datum;
	ListCell *cell;
	BooleanTest *btest;
	FuncExpr *func;
	struct RDFfdwColumn *col = (struct RDFfdwColumn *)palloc0(sizeof(struct RDFfdwColumn));

	elog(DEBUG2, "%s called:  expr->type='%u'", __func__, expr->type);

	if (expr == NULL)
	{
		elog(DEBUG2, "%s: returning NULL (expr is NULL)", __func__);
		return NULL;
	}

	switch (nodeTag(expr))
	{
	case T_Const:
		elog(DEBUG2, "%s [T_Const] called: expr->type=%u", __func__, expr->type);
		constant = (Const *)expr;
		if (constant->constisnull)
		{
			elog(DEBUG2, "%s [T_Const]: returning NULL (constant is NULL)", __func__);
			return NULL;
		}
		else
		{
			/* get a string representation of the value */
			char *c = DatumToString(constant->constvalue, constant->consttype);
			if (c == NULL)
			{
				elog(DEBUG2, "%s [T_Const]: returning NULL (DatumToString returned NULL)", __func__);
				return NULL;
			}
			else
			{
				char *l = lang(c);
				char *dt = datatype(c);
				char *lex_str = lex(c);
				bool needs_escaping = false;

				/* Check if the lexical value contains control characters that need escaping */
				for (const char *p = lex_str; *p; p++)
				{
					if (*p == '\n' || *p == '\r' || *p == '\t')
					{
						needs_escaping = true;
						break;
					}
				}

				/* Escape control characters in the lexical value if needed */
				if (needs_escaping)
					lex_str = EscapeSPARQLLiteral(c);

				initStringInfo(&result);

				if (strlen(l) != 0)
					appendStringInfo(&result, "%s", strlang(lex_str, l));
				else if (strstr(c, "\"^^"))
					appendStringInfo(&result, "%s", strdt(lex_str, dt));
				else
					appendStringInfo(&result, "%s", lex_str);
			}
		}
		elog(DEBUG2, "%s [T_Const]: reached end of block with result='%s'", __func__, result.data);
		break;
	case T_Var:

		elog(DEBUG2, "%s [T_Var]: start (expr->type='%u')", __func__, expr->type);
		variable = (Var *)expr;

		if (variable->vartype == BOOLOID)
		{
			elog(DEBUG2, "%s [T_Var]: returning NULL (variable type is a BOOLOID)", __func__);
			return NULL;
		}

		index = state->numcols - 1;

		while (index >= 0 && state->rdfTable->cols[index]->pgattnum != variable->varattno)
			--index;

		/* if no foreign table column is found, return NULL */
		if (index == -1)
		{
			elog(DEBUG1, "%s [T_Var]: returning NULL (no table column found)", __func__);
			return NULL;
		}

		initStringInfo(&result);
		appendStringInfo(&result, "%s", state->rdfTable->cols[index]->name);

		elog(DEBUG2, "  %s [T_Var]: index='%d', result='%s'", __func__,
			 index, state->rdfTable->cols[index]->name);

		break;
	case T_OpExpr:
		elog(DEBUG2, "%s [T_OpExpr]: start (expr->type='%u')", __func__, expr->type);
		oper = (OpExpr *)expr;
		initStringInfo(&result);

		tuple = SearchSysCache1(OPEROID, ObjectIdGetDatum(oper->opno));
		if (!HeapTupleIsValid(tuple))
		{
			elog(ERROR, "cache lookup failed for operator %u", oper->opno);
		}
		opername = pstrdup(((Form_pg_operator)GETSTRUCT(tuple))->oprname.data);
		oprkind = ((Form_pg_operator)GETSTRUCT(tuple))->oprkind;
		leftargtype = ((Form_pg_operator)GETSTRUCT(tuple))->oprleft;
		rightargtype = ((Form_pg_operator)GETSTRUCT(tuple))->oprright;
		ReleaseSysCache(tuple);

		/* don't push condition down if the right argument can't be translated into a SPARQL value*/
		if (!canHandleType(rightargtype))
		{
			elog(DEBUG2, "%s [T_OpExpr]: returning NULL: cannot handle data type", __func__);
			return NULL;
		}

		/* the operators that we can translate */
		if (strcmp(opername, "=") == 0 ||
			(strcmp(opername, ">") == 0 && rightargtype != TEXTOID && rightargtype != BPCHAROID && rightargtype != NAMEOID && rightargtype != CHAROID) ||
			(strcmp(opername, "<") == 0 && rightargtype != TEXTOID && rightargtype != BPCHAROID && rightargtype != NAMEOID && rightargtype != CHAROID) ||
			(strcmp(opername, ">=") == 0 && rightargtype != TEXTOID && rightargtype != BPCHAROID && rightargtype != NAMEOID && rightargtype != CHAROID) ||
			(strcmp(opername, "<=") == 0 && rightargtype != TEXTOID && rightargtype != BPCHAROID && rightargtype != NAMEOID && rightargtype != CHAROID) ||
			strcmp(opername, "+") == 0 ||
			strcmp(opername, "*") == 0 ||
			strcmp(opername, "!=") == 0 ||
			strcmp(opername, "<>") == 0 ||
			strcmp(opername, "~~") == 0 ||
			strcmp(opername, "!~~") == 0 ||
			strcmp(opername, "~~*") == 0 ||
			strcmp(opername, "!~~*") == 0)
		{
			/* SPARQL does not negate with <> */
			if (strcmp(opername, "<>") == 0)
				opername = "!=";

			elog(DEBUG2, "%s [T_OpExpr]: deparsing operand of left expression", __func__);
			left = DeparseExpr(state, foreignrel, linitial(oper->args));
			elog(DEBUG2, "%s [T_OpExpr]: left operand returned => %s", __func__, left);

			if (left == NULL)
			{
				elog(DEBUG2, "%s [T_OpExpr]: returning NULL (left argument couldn't be deparsed)", __func__);
				return NULL;
			}

			if (oprkind == 'b')
			{
				StringInfoData left_filter_arg;
				StringInfoData right_filter_arg;
				struct RDFfdwColumn *right_column = (struct RDFfdwColumn *)palloc0(sizeof(struct RDFfdwColumn));
				struct RDFfdwColumn *left_column = (struct RDFfdwColumn *)palloc0(sizeof(struct RDFfdwColumn));

				elog(DEBUG2, "  %s [T_OpExpr]: deparsing left and right expressions", __func__);
				leftexpr = linitial(oper->args);
				rightexpr = lsecond(oper->args);

				elog(DEBUG2, "  %s [T_OpExpr]: deparsing operand of right expression, type %u", __func__, rightexpr->type);
				right = DeparseExpr(state, foreignrel, rightexpr);

				elog(DEBUG2, "  %s [T_OpExpr]: [%s] left type %u, [%s] right type %u", __func__, left, leftexpr->type, right, rightexpr->type);

				if (right == NULL)
				{
					elog(DEBUG2, "%s [T_OpExpr]: returning NULL (right argument couldn't be deparsed)", __func__);
					return NULL;
				}

				initStringInfo(&left_filter_arg);
				initStringInfo(&right_filter_arg);

				left_column = GetRDFColumn(state, left);

				if (leftexpr->type == T_Var && (!left_column || !left_column->pushable))
				{
					elog(DEBUG2, "%s [T_OpExpr]: returning NULL (column of left argument is invalid or not pushable)", __func__);
					return NULL;
				}

				elog(DEBUG2, "%s [T_OpExpr]: getting right column based on '%s' ... ", __func__, right);
				right_column = GetRDFColumn(state, right);

				if (rightexpr->type == T_Var && (!right_column || !right_column->pushable))
				{
					elog(DEBUG2, "%s [T_OpExpr]: returning NULL (column of right argument is invalid or not pushable)", __func__);
					return NULL;
				}

				/* if the column contains an expression we use it in all FILTER expressions*/
				if (left_column && left_column->expression)
				{
					elog(DEBUG2, "%s [T_OpExpr]: adding expression '%s' for left expression", __func__, left_column->expression);
					appendStringInfo(&left_filter_arg, "%s", left_column->expression);
				}
				/* check if the argument is a string (T_Const) */
				else if (IsStringDataType(leftargtype) && leftexpr->type == T_Const)
				{
					if (right_column)
					{
						/*
						 * if the argument is a IRI/URI we must wrap it with IRI(), so that it
						 * can be handled as such in the FILTER expressions.
						 */
						if (right_column->nodetype && strcmp(right_column->nodetype, RDF_COLUMN_OPTION_NODETYPE_IRI) == 0)
							appendStringInfo(&left_filter_arg, "IRI(\"%s\")", left);
						else if (right_column->language)
						{
							if (strcmp(right_column->language, "*") == 0)
								appendStringInfo(&left_filter_arg, "%s", cstring_to_rdfliteral(left));
							else
								appendStringInfo(&left_filter_arg, "%s", strlang(left, right_column->language));
						}
						else if (right_column->literaltype)
							appendStringInfo(&left_filter_arg, "%s", strdt(left, right_column->literaltype));
						else
							appendStringInfo(&left_filter_arg, "%s", cstring_to_rdfliteral(left));
					}
					else
						appendStringInfo(&left_filter_arg, "%s", cstring_to_rdfliteral(left));
				}
				/* check if the argument is a column */
				else if (left_column && leftexpr->type == T_Var)
				{
					/*
					 * we wrap the column name (sparqlvar) with STR() if the column's language
					 * is set to * (all languages)
					 */
					if (left_column->language && strcmp(left_column->language, "*") == 0)
						appendStringInfo(&left_filter_arg, "STR(%s)", left_column->sparqlvar);
					/* set the sparqlvar to the FILTER expression */
					else
						appendStringInfo(&left_filter_arg, "%s", left_column->sparqlvar);
				}
				else if (leftexpr->type == T_FuncExpr)
				{
					/* We try to resolve the column name <-> sparql variable one last time */
					left_column = GetRDFColumn(state, left);

					if (left_column)
						appendStringInfo(&left_filter_arg, "%s", left_column->sparqlvar);
					else
						appendStringInfo(&left_filter_arg, "%s", left);
				}
				else
				{
					appendStringInfo(&left_filter_arg, "%s", left);
				}

				/* if the column contains an expression we use it in all FILTER expressions*/
				if (right_column && right_column->expression)
				{
					elog(DEBUG2, "%s [T_OpExpr]: adding expression '%s' for left expression", __func__, right_column->expression);
					appendStringInfo(&right_filter_arg, "%s", right_column->expression);
				}
				/* check if the argument is a string (T_Const) */
				else if (IsStringDataType(rightargtype) && rightexpr->type == T_Const)
				{
					if (left_column)
					{
						if (left_column->nodetype && strcmp(left_column->nodetype, RDF_COLUMN_OPTION_NODETYPE_IRI) == 0)
							appendStringInfo(&right_filter_arg, "IRI(\"%s\")", right);
						else if (left_column->language)
						{
							if (strcmp(left_column->language, "*") == 0)
								appendStringInfo(&right_filter_arg, "%s", cstring_to_rdfliteral(right));
							else
								appendStringInfo(&right_filter_arg, "%s", strlang(right, left_column->language));
						}
						else if (left_column->literaltype)
							appendStringInfo(&right_filter_arg, "%s", strdt(right, left_column->literaltype));
						else if (isIRI(right) || isBlank(right))
							appendStringInfo(&right_filter_arg, "%s", right);
						else
						{

							appendStringInfo(&right_filter_arg, "%s", cstring_to_rdfliteral(right));
						}
					}
					else if (isIRI(right))
						appendStringInfo(&right_filter_arg, "%s", right);
					else
					{
						char *xsd_type = MapSPARQLDatatype(rightargtype);
						char *literal = cstring_to_rdfliteral(right);

						if (xsd_type && isPlainLiteral(literal) && leftargtype == RDFNODEOID)
							appendStringInfo(&right_filter_arg, "%s^^<%s%s>",
											 literal,
											 RDF_XSD_BASE_URI,
											 MapSPARQLDatatype(rightargtype));
						else
							appendStringInfo(&right_filter_arg, "%s", cstring_to_rdfliteral(right));
					}
				}
				else if (rightexpr->type == T_Var)
				{
					if (right_column && right_column->language && strcmp(right_column->language, "*") == 0)
						appendStringInfo(&right_filter_arg, "STR(%s)", right_column->sparqlvar);
					else
						appendStringInfo(&right_filter_arg, "%s", right_column->sparqlvar);
				}
				else if (rightexpr->type == T_FuncExpr)
				{
					/* We try to resolve the column name <-> sparql variable one last time */
					right_column = GetRDFColumn(state, right);

					if (right_column)
						appendStringInfo(&right_filter_arg, "%s", right_column->sparqlvar);
					else
						appendStringInfo(&right_filter_arg, "%s", right);
				}
				else
					appendStringInfo(&right_filter_arg, "%s", right);

				elog(DEBUG2, "  %s [T_OpExpr]: left argument converted: '%s' => '%s'", __func__, left, NameStr(left_filter_arg));
				elog(DEBUG2, "  %s [T_OpExpr]: oper  => '%s'", __func__, opername);
				elog(DEBUG2, "  %s [T_OpExpr]: right argument converted: '%s' => '%s'", __func__, right, NameStr(right_filter_arg));

				if (strcmp(opername, "~~") == 0 || strcmp(opername, "~~*") == 0 || strcmp(opername, "!~~") == 0 || strcmp(opername, "!~~*") == 0)
				{
					/*
					 * If the left and right side arguments are not respectively T_Var and
					 * T_Const it is not safe to push down the REGEX FILTER. We then let
					 * the client to deal with it.
					 */
					if (leftexpr->type != T_Var && rightexpr->type != T_Const)
					{
						elog(DEBUG2, "%s [T_OpExpr]: returning NULL (type of left expression is not a T_Var and the right expression is not a T_Const)", __func__);
						return NULL;
					}

					appendStringInfo(&result, "%s(%s,\"%s\"%s)",
									 opername[0] == '!' ? "!REGEX" : "REGEX",
									 NameStr(left_filter_arg),
									 CreateRegexString(right),
									 strcmp(opername, "~~*") == 0 || strcmp(opername, "!~~*") == 0 ? ",\"i\"" : "");
				}
				else
				{
					appendStringInfo(&result, "%s %s %s",
									 NameStr(left_filter_arg),
									 opername,
									 NameStr(right_filter_arg));
				}
			}
			else
			{
				elog(DEBUG2, "  %s [T_OpExpr]: unary operator not supported", __func__);
			}
		}
		else
		{
			elog(DEBUG2, "  %s exit [T_OpExpr]: returning NULL (operator cannot be translated '%s')", __func__, opername);
			return NULL;
		}

		break;
	case T_BooleanTest:
		elog(DEBUG2, "%s [T_BooleanTest]: start (expr->type='%u')", __func__, expr->type);
		btest = (BooleanTest *)expr;

		if (btest->arg->type != T_Var)
		{
			elog(DEBUG2, "  %s exit [T_BooleanTest]: returning NULL (argument type is not a T_Var)", __func__);
			return NULL;
		}

		variable = (Var *)btest->arg;

		index = state->numcols - 1;
		while (index >= 0 && state->rdfTable->cols[index]->pgattnum != variable->varattno)
			--index;

		arg = state->rdfTable->cols[index]->name;

		if (arg == NULL)
		{
			elog(DEBUG1, "  %s exit [T_BooleanTest]: returning NULL (column name is not valid)", __func__);
			return NULL;
		}

		col = GetRDFColumn(state, arg);

		if (!col)
		{
			elog(DEBUG2, "  %s exit [T_BooleanTest]: returning NULL (column not found)", __func__);
			return NULL;
		}

		if (!col->pushable)
		{
			elog(DEBUG2, "  %s exit [T_BooleanTest]: returning NULL (column name is not pushable)", __func__);
			return NULL;
		}

		initStringInfo(&result);

		switch (btest->booltesttype)
		{
		case IS_TRUE:
			appendStringInfo(&result, "%s = %s",
							 col->expression ? col->expression : col->sparqlvar,
							 !col->literaltype ? "\"true\"" : strdt("true", col->literaltype));
			break;
		case IS_NOT_TRUE:
			appendStringInfo(&result, "%s != %s",
							 col->expression ? col->expression : col->sparqlvar,
							 !col->literaltype ? "\"true\"" : strdt("true", col->literaltype));
			break;
		case IS_FALSE:
			appendStringInfo(&result, "%s = %s",
							 col->expression ? col->expression : col->sparqlvar,
							 !col->literaltype ? "\"false\"" : strdt("false", col->literaltype));
			break;
		case IS_NOT_FALSE:
			appendStringInfo(&result, "%s != %s",
							 col->expression ? col->expression : col->sparqlvar,
							 !col->literaltype ? "\"false\"" : strdt("false", col->literaltype));
			break;
		default:
			elog(DEBUG2, "  %s exit [T_BooleanTest]: returning NULL (unknown booltesttype)", __func__);
			return NULL;
		}

		break;
	case T_ScalarArrayOpExpr:
		elog(DEBUG2, "%s [T_ScalarArrayOpExpr]: start (expr->type='%u')", __func__, expr->type);
		arrayoper = (ScalarArrayOpExpr *)expr;

		/* get operator name, left argument type and schema */
		tuple = SearchSysCache1(OPEROID, ObjectIdGetDatum(arrayoper->opno));
		if (!HeapTupleIsValid(tuple))
		{
			elog(ERROR, "cache lookup failed for operator %u", arrayoper->opno);
		}
		opername = pstrdup(((Form_pg_operator)GETSTRUCT(tuple))->oprname.data);
		leftargtype = ((Form_pg_operator)GETSTRUCT(tuple))->oprleft;
		ReleaseSysCache(tuple);

		/* don't try to push down anything but IN and NOT IN expressions */
		if ((strcmp(opername, "=") != 0 || !arrayoper->useOr) && (strcmp(opername, "<>") != 0 || arrayoper->useOr))
		{
			elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (expression in not IN or NOT IN)", __func__);
			return NULL;
		}

		if (!canHandleType(leftargtype))
		{
			elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (cannot handle left argument's datatype)", __func__);
			return NULL;
		}

		/* the first (=initial) argument can be T_Var or T_Func */
		leftexpr = (Expr *)linitial(arrayoper->args);
		left = DeparseExpr(state, foreignrel, leftexpr);

		if (left == NULL)
		{
			elog(DEBUG1, "%s exit [T_ScalarArrayOpExpr]: returning NULL (left argument couldn't be deparsed)", __func__);
			return NULL;
		}

		initStringInfo(&result);

		if (leftexpr->type == T_Var)
		{
			elog(DEBUG2, "%s [T_ScalarArrayOpExpr]: left argument's dat type is T_Var (column)", __func__);
			col = GetRDFColumn(state, left);

			if (!col)
			{
				elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (column of left argument is not valid)", __func__);
				return NULL;
			}

			if (!col->pushable)
			{
				elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (column is not pushable)", __func__);
				return NULL;
			}

			if (strcmp(opername, "=") == 0)
				appendStringInfo(&result, "%s IN (", !col->expression ? col->sparqlvar : col->expression);
			else
				appendStringInfo(&result, "%s NOT IN (", !col->expression ? col->sparqlvar : col->expression);
		}
		else if (leftexpr->type == T_FuncExpr)
		{
			elog(DEBUG2, "%s [T_ScalarArrayOpExpr]: left argument's dat type is T_FuncExpr", __func__);
			if (strcmp(opername, "=") == 0)
				appendStringInfo(&result, "%s IN (", left);
			else
				appendStringInfo(&result, "%s NOT IN (", left);
		}
		else
		{
			elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL left argument type '%u' not supported", __func__, leftexpr->type);
			return NULL;
		}

		/* the second (=last) argument can be Const, ArrayExpr or ArrayCoerceExpr */
		rightexpr = (Expr *)llast(arrayoper->args);

		switch (rightexpr->type)
		{
		case T_Const:
			/* the second (=last) argument is a Const of ArrayType */
			constant = (Const *)rightexpr;

			/*
			 * NULL isn't supported in Linked Data. A NULL "value" is rather represented
			 * by the absence of a relation
			 */
			if (constant->constisnull)
			{
				elog(DEBUG2, "%s [T_ScalarArrayOpExpr]: returning NULL (constant->constisnull)", __func__);
				return NULL;
			}
			else
			{
				ArrayType *arr = DatumGetArrayTypeP(constant->constvalue);
				StringInfoData type;
				initStringInfo(&type);

				/* loop through the array elements */
				iterator = array_create_iterator(arr, 0);
				first_arg = true;
				while (array_iterate(iterator, &datum, &isNull))
				{
					char *c;

					if (isNull)
						c = "NULL";
					else
					{

						c = DatumToString(datum, ARR_ELEMTYPE(arr));
						if (c == NULL)
						{
							array_free_iterator(iterator);
							return NULL;
						}
					}

					if (IsStringDataType(leftargtype))
					{
						if (col && col->pgtype == RDFNODEOID)
							appendStringInfo(&result, "%s%s", first_arg ? "" : ", ", c);
						else if (col && col->language)
							appendStringInfo(&result, "%s%s",
											 first_arg ? "" : ", ", strlang(c, col->language));
						else if (col && col->literaltype)
							appendStringInfo(&result, "%s%s",
											 first_arg ? "" : ", ", strdt(c, col->literaltype));
						else
							appendStringInfo(&result, "%s%s",
											 first_arg ? "" : ", ", str(c));
					}
					else
						appendStringInfo(&result, "%s%s",
										 first_arg ? "" : ", ", c);

					/* append the argument */
					first_arg = false;
				}
				array_free_iterator(iterator);

				/* don't push down empty arrays, since the semantics for NOT x = ANY(<empty array>) differ */
				if (first_arg)
				{
					elog(DEBUG2, "%s [T_ScalarArrayOpExpr]: returning NULL (cannot push empty arrays)", __func__);
					return NULL;
				}
			}

			break;
		case T_ArrayCoerceExpr:
			/* the second (=last) argument is an ArrayCoerceExpr */
			arraycoerce = (ArrayCoerceExpr *)rightexpr;

			/* if the conversion requires more than binary coercion, don't push it down */
#if PG_VERSION_NUM < 110000
			if (arraycoerce->elemfuncid != InvalidOid)
				return NULL;
#else
			if (arraycoerce->elemexpr && arraycoerce->elemexpr->type != T_RelabelType)
			{
				elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (arraycoerce->elemexpr && arraycoerce->elemexpr->type != T_RelabelType)", __func__);
				return NULL;
			}
#endif
			if (arraycoerce->arg->type != T_ArrayExpr)
			{
				elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (arraycoerce->arg->type != T_ArrayExpr)", __func__);
				return NULL;
			}

			/* the actual array is here */
			rightexpr = arraycoerce->arg;

			/* fall through ! */

		case T_ArrayExpr:
			/* the second (=last) argument is an ArrayExpr */
			array = (ArrayExpr *)rightexpr;

			/* loop the array arguments */
			first_arg = true;
			foreach (cell, array->elements)
			{
				/* convert the argument to a string */
				char *element = DeparseExpr(state, foreignrel, (Expr *)lfirst(cell));

				/* if any element cannot be converted, give up */
				if (element == NULL)
				{
					elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (unable to deparse element of T_ArrayExpr)", __func__);
					return NULL;
				}

				/* append the argument */
				appendStringInfo(&result, "%s%s", first_arg ? "" : ", ", element);
				first_arg = false;
			}

			/* don't push down empty arrays, since the semantics for NOT x = ANY(<empty array>) differ */
			if (first_arg)
			{
				elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (cannot push down empty arrays)", __func__);
				return NULL;
			}

			break;
		default:
			elog(DEBUG2, "%s exit [T_ScalarArrayOpExpr]: returning NULL (rightexpr->type not supported)", __func__);
			return NULL;
		}

		/* parentheses close the FILTER expression */
		appendStringInfo(&result, ")");

		break;
	case T_FuncExpr:
		elog(DEBUG2, "%s [T_FuncExpr]: start (expr->type='%u')", __func__, expr->type);
		func = (FuncExpr *)expr;

		if (!canHandleType(func->funcresulttype))
		{
			return NULL;
		}

		/* do nothing for implicit casts */
		if (func->funcformat == COERCE_IMPLICIT_CAST)
		{
			char *impcast = DeparseExpr(state, foreignrel, linitial(func->args));
			elog(DEBUG2, "%s exit [T_FuncExpr]: returning '%s' (implicit cast) ", __func__, impcast);
			return impcast;
		}

		/* get function name and schema */
		tuple = SearchSysCache1(PROCOID, ObjectIdGetDatum(func->funcid));
		if (!HeapTupleIsValid(tuple))
		{
			elog(ERROR, "%s [T_FuncExpr]: cache lookup failed for function %u", __func__, func->funcid);
		}

		opername = pstrdup(((Form_pg_proc)GETSTRUCT(tuple))->proname.data);
		ReleaseSysCache(tuple);

		elog(DEBUG2, "  %s [T_FuncExpr]: opername = %s", __func__, opername);

		if (!IsFunctionPushable(opername))
		{
			elog(DEBUG2, "%s exit [T_FuncExpr]: returning NULL (function not in pg_catalog and not pushable) ", __func__);
			return NULL;
		}

		if (IsFunctionPushable(opername))
		{
			char *extract_type = "";
			bool initarg = true;
			StringInfoData args;
			initStringInfo(&args);
			initStringInfo(&result);

			foreach (cell, func->args)
			{
				Expr *ex = lfirst(cell);
				elog(DEBUG2, "%s [T_FuncExpr]: deparsing arguments for '%s'", __func__, opername);
				arg = DeparseExpr(state, foreignrel, ex);

				if (!arg)
				{
					elog(DEBUG2, "%s exit [T_FuncExpr]: returning NULL (arg is NULL and opername = %s)", __func__, opername);
					pfree(opername);
					return NULL;
				}

				if (!initarg)
				{
					/*
					 * We discard any further parameters of ROUND, as its equivalent
					 * in SPARQL expects a single parameter.
					 */
					if (strcmp(opername, "round") == 0)
						break;
					else if (strcmp(opername, "extract") != 0)
						appendStringInfo(&args, "%s", ", ");
				}

				col = GetRDFColumn(state, arg);

				if (col)
				{
					appendStringInfo(&args, "%s", !col->expression ? col->sparqlvar : col->expression);
				}
				else
				{
					if (ex->type == T_Const)
					{
						Const *ct = (Const *)ex;

						if (strcmp(opername, "extract") == 0 && initarg)
						{
							/*
							 * in EXTRACT calls the first parameter becomes the function
							 * call in SPARQL. So we leave this cycle after we parsed the
							 * parameter.
							 */
							extract_type = FormatSQLExtractField(arg);
							continue;
						}

						/* Return NULLL if the EXTRACT field cannot be converted to SPARQL */
						if (strcmp(opername, "extract") == 0 && initarg && !arg)
						{
							elog(DEBUG1, "%s exit [T_FuncExpr]: returning NULL (EXTRACT field cannot be converted to SPARQL: '%s')", __func__, arg);
							pfree(opername);
							return NULL;
						}
						else if (IsStringDataType(ct->consttype) && strcmp(opername, "strdt") == 0)
							appendStringInfo(&args, "%s", ExpandDatatypePrefix(arg));
						else if (IsStringDataType(ct->consttype) && isIRI(arg))
							appendStringInfo(&args, "%s", arg);
						else if (IsStringDataType(ct->consttype))
							appendStringInfo(&args, "%s", cstring_to_rdfliteral(arg));
						else
							appendStringInfo(&args, "%s", arg);
					}
					else
						appendStringInfo(&args, "%s", arg);
				}

				initarg = false;
			}

			if (strcmp(opername, "upper") == 0)
				appendStringInfo(&result, "UCASE(%s)", NameStr(args));
			else if (strcmp(opername, "lower") == 0)
				appendStringInfo(&result, "LCASE(%s)", NameStr(args));
			else if (strcmp(opername, "length") == 0)
				appendStringInfo(&result, "STRLEN(%s)", NameStr(args));
			else if (strcmp(opername, "abs") == 0)
				appendStringInfo(&result, "ABS(%s)", NameStr(args));
			else if (strcmp(opername, "round") == 0)
				appendStringInfo(&result, "ROUND(%s)", NameStr(args));
			else if (strcmp(opername, "floor") == 0)
				appendStringInfo(&result, "FLOOR(%s)", NameStr(args));
			else if (strcmp(opername, "ceil") == 0)
				appendStringInfo(&result, "CEIL(%s)", NameStr(args));
			else if (strcmp(opername, "strstarts") == 0 || strcmp(opername, "starts_with") == 0)
				appendStringInfo(&result, "STRSTARTS(%s)", NameStr(args));
			else if (strcmp(opername, "strends") == 0)
				appendStringInfo(&result, "STRENDS(%s)", NameStr(args));
			else if (strcmp(opername, "strbefore") == 0)
				appendStringInfo(&result, "STRBEFORE(%s)", NameStr(args));
			else if (strcmp(opername, "strafter") == 0)
				appendStringInfo(&result, "STRAFTER(%s)", NameStr(args));
			else if (strcmp(opername, "strlang") == 0)
				appendStringInfo(&result, "STRLANG(%s)", NameStr(args));
			else if (strcmp(opername, "strdt") == 0)
				appendStringInfo(&result, "STRDT(%s)", NameStr(args));
			else if (strcmp(opername, "str") == 0)
				appendStringInfo(&result, "STR(%s)", NameStr(args));
			else if (strcmp(opername, "iri") == 0)
				appendStringInfo(&result, "IRI(%s)", NameStr(args));
			else if (strcmp(opername, "isiri") == 0)
				appendStringInfo(&result, "isIRI(%s)", NameStr(args));
			else if (strcmp(opername, "lang") == 0)
				appendStringInfo(&result, "LANG(%s)", NameStr(args));
			else if (strcmp(opername, "langmatches") == 0)
				appendStringInfo(&result, "LANGMATCHES(%s)", NameStr(args));
			else if (strcmp(opername, "datatype") == 0)
				appendStringInfo(&result, "DATATYPE(%s)", NameStr(args));
			else if (strcmp(opername, "substring") == 0)
				appendStringInfo(&result, "SUBSTR(%s)", NameStr(args));
			else if (strcmp(opername, "contains") == 0)
				appendStringInfo(&result, "CONTAINS(%s)", NameStr(args));
			else if (strcmp(opername, "encode_for_uri") == 0)
				appendStringInfo(&result, "ENCODE_FOR_URI(%s)", NameStr(args));
			else if (strcmp(opername, "isblank") == 0)
				appendStringInfo(&result, "ISBLANK(%s)", NameStr(args));
			else if (strcmp(opername, "isnumeric") == 0)
				appendStringInfo(&result, "ISNUMERIC(%s)", NameStr(args));
			else if (strcmp(opername, "isliteral") == 0)
				appendStringInfo(&result, "ISLITERAL(%s)", NameStr(args));
			else if (strcmp(opername, "bnode") == 0)
				appendStringInfo(&result, "BNODE(%s)", NameStr(args));
			else if (strcmp(opername, "lcase") == 0)
				appendStringInfo(&result, "LCASE(%s)", NameStr(args));
			else if (strcmp(opername, "ucase") == 0)
				appendStringInfo(&result, "UCASE(%s)", NameStr(args));
			else if (strcmp(opername, "strlen") == 0)
				appendStringInfo(&result, "STRLEN(%s)", NameStr(args));
			else if (strcmp(opername, "substr") == 0)
				appendStringInfo(&result, "SUBSTR(%s)", NameStr(args));
			else if (strcmp(opername, "concat") == 0)
				appendStringInfo(&result, "CONCAT(%s)", NameStr(args));
			else if (strcmp(opername, "replace") == 0)
				appendStringInfo(&result, "REPLACE(%s)", NameStr(args));
			else if (strcmp(opername, "year") == 0)
				appendStringInfo(&result, "YEAR(%s)", NameStr(args));
			else if (strcmp(opername, "month") == 0)
				appendStringInfo(&result, "MONTH(%s)", NameStr(args));
			else if (strcmp(opername, "day") == 0)
				appendStringInfo(&result, "DAY(%s)", NameStr(args));
			else if (strcmp(opername, "hours") == 0)
				appendStringInfo(&result, "HOURS(%s)", NameStr(args));
			else if (strcmp(opername, "minutes") == 0)
				appendStringInfo(&result, "MINUTES(%s)", NameStr(args));
			else if (strcmp(opername, "seconds") == 0)
				appendStringInfo(&result, "SECONDS(%s)", NameStr(args));
			else if (strcmp(opername, "timezone") == 0)
				appendStringInfo(&result, "TIMEZONE(%s)", NameStr(args));
			else if (strcmp(opername, "tz") == 0)
				appendStringInfo(&result, "TZ(%s)", NameStr(args));
			else if (strcmp(opername, "md5") == 0)
				appendStringInfo(&result, "MD5(%s)", NameStr(args));
			else if (strcmp(opername, "bound") == 0)
				appendStringInfo(&result, "BOUND(%s)", NameStr(args));
			else if (strcmp(opername, "sameterm") == 0)
				appendStringInfo(&result, "SAMETERM(%s)", NameStr(args));
			else if (strcmp(opername, "coalesce") == 0)
				appendStringInfo(&result, "COALESCE(%s)", NameStr(args));
			else if (strcmp(opername, "extract") == 0)
				appendStringInfo(&result, "%s(%s)", extract_type, NameStr(args));
			else if (strcmp(opername, "rdfnode_to_timestamp") == 0)
				appendStringInfo(&result, "%s", NameStr(args));
			else if (strcmp(opername, "rdfnode_to_timestamptz") == 0)
				appendStringInfo(&result, "%s", NameStr(args));
			else if (strcmp(opername, "rdfnode_to_times") == 0)
				appendStringInfo(&result, "%s", NameStr(args));
			else if (strcmp(opername, "rdfnode_to_timetz") == 0)
				appendStringInfo(&result, "%s", NameStr(args));
			else if (strcmp(opername, "rdfnode_to_boolean") == 0)
				appendStringInfo(&result, "%s", NameStr(args));
			else if (strcmp(opername, "boolean_to_rdfnode") == 0)
				appendStringInfo(&result, "%s", NameStr(args));

			else
			{
				elog(DEBUG2, "%s [T_FuncExpr]: returning NULL (unknown opername '%s')", __func__, opername);
				return NULL;
			}

			pfree(args.data);
		}
		/* in PostgreSQL 11 EXTRACT is internally called as DATE_PART */
		else if (strcmp(opername, "date_part") == 0)
		{
			Expr *field = linitial(func->args);
			char *date_part_type = "";

			elog(DEBUG2, "%s [T_FuncExpr]: deparsing FIELD for '%s'", __func__, opername);
			date_part_type = DeparseExpr(state, foreignrel, field);

			if (!date_part_type)
			{
				elog(DEBUG2, "%s exit [T_FuncExpr]: returning NULL (date_part_type is NULL and opername = '%s')", __func__, opername);
				pfree(opername);
				return NULL;
			}

			elog(DEBUG2, "%s [T_FuncExpr]: date_part FIELD '%s'", __func__, date_part_type);

			date_part_type = FormatSQLExtractField(date_part_type);

			if (date_part_type)
			{
				char *val;

				elog(DEBUG2, "%s [T_FuncExpr]: deparsing VALUE for '%s'", __func__, opername);

				val = DeparseExpr(state, foreignrel, lsecond(func->args));
				col = GetRDFColumn(state, val);

				initStringInfo(&result);

				if (col)
					appendStringInfo(&result, "%s(%s)", date_part_type, !col->expression ? col->sparqlvar : col->expression);
				else
					appendStringInfo(&result, "%s(\"%s\")", date_part_type, val);
			}
			else
			{
				elog(DEBUG2, "%s exit [T_FuncExpr]: returning NULL (date_part_type is NULL)", __func__);
				pfree(opername);
				return NULL;
			}
		}
		else if (strcmp(opername, "timestamp") == 0)
		{
			char *value;
			Expr *ex = linitial(func->args);

			value = DeparseExpr(state, foreignrel, ex);

			if (!value)
			{
				elog(DEBUG2, "%s exit [T_FuncExpr]: returning NULL (unable to deparse timestamp value)", __func__);
				return NULL;
			}

			initStringInfo(&result);
			appendStringInfo(&result, "%s", value);
		}
		else
		{
			elog(DEBUG2, "%s exit [T_FuncExpr]: returning NULL (unable to push function '%s')", __func__, opername);
			return NULL;
		}

		pfree(opername);
		break;
	case T_ArrayExpr:
		elog(DEBUG2, "%s [T_ArrayExpr]: start (expr->type='%u')", __func__, expr->type);

		/* this is exclusively for SPARQL COALESCE */
		array = (ArrayExpr *)expr;
		elog(DEBUG2, "%s [T_ArrayExpr]: function called", __func__);
		initStringInfo(&result);

		/* loop the array arguments */
		first_arg = true;
		foreach (cell, array->elements)
		{
			Expr *element_expr = (Expr *)lfirst(cell);
			char *element = DeparseExpr(state, foreignrel, element_expr);

			/* if any element cannot be converted, give up */
			if (element == NULL)
			{
				elog(DEBUG2, "%s exit [T_ArrayExpr]: returning NULL (unable to deparse element of T_ArrayExpr)", __func__);
				return NULL;
			}

			col = GetRDFColumn(state, element);

			if (col)
				appendStringInfo(&result, "%s%s", first_arg ? "" : ", ", col->sparqlvar);
			else if (nodeTag(element_expr) == T_Const && isLiteral(element))
			{
				/*
				 * this seems unnecessary, but it is important to expand
				 * possible prefixed XSD predicates into their full URI.
				 */
				char *dt = datatype(element);

				if (strlen(dt) != 0)
					appendStringInfo(&result, "%s%s", first_arg ? "" : ", ", strdt(element, dt));
				else
					appendStringInfo(&result, "%s%s", first_arg ? "" : ", ", cstring_to_rdfliteral(element));
			}
			else if (nodeTag(element_expr) == T_Const)
				appendStringInfo(&result, "%s%s", first_arg ? "" : ", ", cstring_to_rdfliteral(element));
			else
				appendStringInfo(&result, "%s%s", first_arg ? "" : ", ", element);

			first_arg = false;
		}

		if (first_arg)
		{
			elog(DEBUG2, "%s exit [T_ArrayExpr]: returning NULL (cannot push empty arrays)", __func__);
			return NULL;
		}

		break;
	default:
		elog(DEBUG2, "%s exit: returning NULL (expression not supported '%u')", __func__, expr->type);
		return NULL;
	}

	elog(DEBUG2, "%s exit: returning '%s'\n", __func__, result.data);
	return result.data;
}

/*
 * DeparseSQLWhereConditions
 * ----------------------
 * Deparses the WHERE clause of SQL queries and tries to convert its conditions into
 * SPARQL FILTER expressions.
 *
 * state  : SPARQL, SERVER and FOREIGN TABLE info
 * baserel: Conditions and columns used in the SQL query
 *
 * returns char* containing SPARQL FILTER expressions or an empty string if not applicable
 */
static char *DeparseSQLWhereConditions(struct RDFfdwState *state, RelOptInfo *baserel)
{
	List *conditions = baserel->baserestrictinfo;
	ListCell *cell;
	StringInfoData where_clause;
	StringInfoData filter_expr;

	elog(DEBUG1, "%s called", __func__);

	initStringInfo(&where_clause);
	initStringInfo(&filter_expr);

	/* 
	 * DO NOT initialize remote_conds here! 
	 * It should remain NULL for non-parsable queries.
	 * Only initialize when we actually have pushable conditions.
	 */

	foreach (cell, conditions)
	{
		RestrictInfo *ri = (RestrictInfo *)lfirst(cell);
		
		/* deparse expression for pushdown */
		char *where = DeparseExpr(state, baserel, ri->clause);

		if (where != NULL)
		{
			/* Initialize remote_conds list on first pushable condition */
			if (state->remote_conds == NULL)
				state->remote_conds = NIL;

			/* append new FILTER clause to query string */
			appendStringInfo(&where_clause, " FILTER(%s)\n", pstrdup(where));

			if (filter_expr.len > 0)
				appendStringInfo(&filter_expr, " && (%s)", pstrdup(where));
			else
				appendStringInfo(&filter_expr, "((%s)", pstrdup(where));

			/* Track this RestrictInfo as successfully pushed down */
			state->remote_conds = lappend(state->remote_conds, ri);

			pfree(where);
		}
		else
		{
			state->has_unparsable_conds = true;
			elog(DEBUG1, "  %s: condition cannot be pushed down.", __func__);
		}
	}

	if (filter_expr.len > 0)
		appendStringInfo(&filter_expr, ")");

	state->sparql_filter_expr = filter_expr.data;

	elog(DEBUG1, "%s exit: returning '%s'", __func__, where_clause.data);
	return where_clause.data;
}

static char *DeparseSPARQLWhereGraphPattern(struct RDFfdwState *state)
{
	int where_position = -1;
	int where_size = -1;
	char *result;

	elog(DEBUG1, "%s called", __func__);

	/*
	 * Deparsing SPARQL WHERE clause
	 *   'where_position = i + 1' to remove the surrounging curly braces {} as we are
	 *   interested only in WHERE clause's graph pattern
	 */
	for (int i = 0; state->raw_sparql[i] != '\0'; i++)
	{
		if (state->raw_sparql[i] == '{' && where_position == -1)
			where_position = i + 1;

		if (state->raw_sparql[i] == '}')
			where_size = i - where_position;
	}

	result = pnstrdup(state->raw_sparql + where_position, where_size);

	elog(DEBUG1, "%s exit: returning '%s'", __func__, result);
	return result;
}

/*
 * DeparseSQLOrderBy
 * -----------------
 *
 * state  : SPARQL, SERVER and FOREIGN TABLE info
 * baserel: Conditions and columns used in the SQL query
 * root   : Planner info
 *
 * returns char* containg a SPARQL ORDER BY clause or an empty string if not applicable
 */
static char *DeparseSQLOrderBy(struct RDFfdwState *state, PlannerInfo *root, RelOptInfo *baserel)
{
	StringInfoData orderedquery;
	List *usable_pathkeys = NIL;
	ListCell *cell;
	char *delim = " ";

	elog(DEBUG1, "%s called", __func__);

	initStringInfo(&orderedquery);

	foreach (cell, root->query_pathkeys)
	{
		PathKey *pathkey = (PathKey *)lfirst(cell);
		EquivalenceClass *pathkey_ec = pathkey->pk_eclass;
		EquivalenceMember *em = NULL;
		Expr *em_expr = NULL;
		char *sort_clause;
		Oid em_type;
		ListCell *lc;
		bool can_pushdown;

		/* ec_has_volatile saves some cycles */
		if (pathkey_ec->ec_has_volatile)
		{
			elog(DEBUG1, "%s exit: returning 'false' (pathkey_ec->ec_has_volatile)", __func__);
			return false;
		}

		/*
		 * Given an EquivalenceClass and a foreign relation, find an EC member
		 * that can be used to sort the relation remotely according to a pathkey
		 * using this EC.
		 *
		 * If there is more than one suitable candidate, use an arbitrary
		 * one of them.
		 *
		 * This checks that the EC member expression uses only Vars from the given
		 * rel and is shippable.  Caller must separately verify that the pathkey's
		 * ordering operator is shippable.
		 */
		foreach (lc, pathkey_ec->ec_members)
		{
			EquivalenceMember *some_em = (EquivalenceMember *)lfirst(lc);

			/*
			 * Note we require !bms_is_empty, else we'd accept constant
			 * expressions which are not suitable for the purpose.
			 */
			if (bms_is_subset(some_em->em_relids, baserel->relids) &&
				!bms_is_empty(some_em->em_relids))
			{
				em = some_em;
				break;
			}
		}

		if (em == NULL)
		{
			elog(DEBUG1, "%s exit: returning 'false' (EquivalenceMember is NULL)", __func__);
			return false;
		}

		em_expr = em->em_expr;
		em_type = exprType((Node *)em_expr);

		/*
		 * SPARQL does not support sorting with functions, so it is not safe to
		 * push down anything other than T_Var.
		 */

		can_pushdown = (em_expr->type == T_Var) && canHandleType(em_type);

		elog(DEBUG1, "  %s: can push down > %d", __func__, can_pushdown);

		if (can_pushdown && ((sort_clause = DeparseExpr(state, baserel, em_expr)) != NULL))
		{
			/* keep usable_pathkeys for later use. */
			usable_pathkeys = lappend(usable_pathkeys, pathkey);

			/* create orderedquery */
			appendStringInfoString(&orderedquery, delim);

#if PG_VERSION_NUM >= 180000
			if (pathkey->pk_cmptype == COMPARE_LT)
#else
			if (pathkey->pk_strategy == BTLessStrategyNumber)
#endif /* PG_VERSION_NUM */
				appendStringInfo(&orderedquery, " ASC (%s)", (GetRDFColumn(state, sort_clause))->sparqlvar);
			else
				appendStringInfo(&orderedquery, " DESC (%s)", (GetRDFColumn(state, sort_clause))->sparqlvar);
		}
		else
		{
			/*
			 * Before PostgreSQL v13, the planner and executor don't have
			 * any clever strategy for taking data sorted by a prefix of the
			 * query's pathkeys and getting it to be sorted by all of those
			 * pathekeys.
			 * So, unless we can push down all of the query pathkeys, forget it.
			 * This could be improved from v13 on!
			 */

			elog(DEBUG1, "  %s: cannot push down ORDER BY", __func__);
			list_free(usable_pathkeys);
			usable_pathkeys = NIL;
			break;
		}
	}

	if (root->query_pathkeys != NIL && usable_pathkeys != NIL)
	{
		elog(DEBUG1, "%s exit: returning '%s'", __func__, orderedquery.data);
		return orderedquery.data;
	}
	else
	{
		elog(DEBUG1, "%s exit: returning NULL (unable to deparse ORDER BY clause)", __func__);
		return NULL;
	}
}

/*
 * DeparseSPARQLFrom
 * -----------------
 * Deparses the SPARQL FROM clause.
 *
 * raw_sparql: SPARQL query set in the CREATE TABLE statement
 *
 * returns the SPARQL FROM clause
 */
static char *DeparseSPARQLFrom(char *raw_sparql)
{
	StringInfoData from;
	char *open_chars = ">)\n\t ";
	char *close_chars = " <\n\t";
	int nfrom = 0;

	elog(DEBUG1, "%s called", __func__);

	initStringInfo(&from);

	if (LocateKeyword(raw_sparql, open_chars, RDF_SPARQL_KEYWORD_FROM, close_chars, &nfrom, 0) != RDF_KEYWORD_NOT_FOUND)
	{
		int entry_position = 0;

		for (int i = 1; i <= nfrom; i++)
		{
			bool is_named = false;
			StringInfoData from_entry;
			initStringInfo(&from_entry);

			entry_position = LocateKeyword(raw_sparql, open_chars, RDF_SPARQL_KEYWORD_FROM, close_chars, NULL, entry_position);

			if (entry_position == RDF_KEYWORD_NOT_FOUND)
				break;

			entry_position = entry_position + (strlen(RDF_SPARQL_KEYWORD_FROM) + 1);

			while (raw_sparql[entry_position] == ' ')
				entry_position++;

			/* Is the SPARQL long enough for 'FROM NAMED' to be parsed? */
			if (entry_position + strlen(RDF_SPARQL_KEYWORD_NAMED) <= strlen(raw_sparql))
			{
				/*
				 * if the next keyword is NAMED, set is_named to 'true' and move the cursor
				 * to the next keyword
				 */
				if (strncasecmp(raw_sparql + entry_position, RDF_SPARQL_KEYWORD_NAMED, strlen(RDF_SPARQL_KEYWORD_NAMED)) == 0)
				{
					is_named = true;
					entry_position = entry_position + strlen(RDF_SPARQL_KEYWORD_NAMED);

					while (raw_sparql[entry_position] == ' ')
						entry_position++;
				}
			}

			while (raw_sparql[entry_position] != ' ' &&
				   raw_sparql[entry_position] != '\n' &&
				   raw_sparql[entry_position] != '\t' &&
				   raw_sparql[entry_position] != '\0')
			{
				appendStringInfo(&from_entry, "%c", raw_sparql[entry_position]);

				if (raw_sparql[entry_position] == '>')
					break;

				entry_position++;
			}

			if (is_named)
				appendStringInfo(&from, "%s %s %s\n", RDF_SPARQL_KEYWORD_FROM, RDF_SPARQL_KEYWORD_NAMED, from_entry.data);
			else
				appendStringInfo(&from, "%s %s\n", RDF_SPARQL_KEYWORD_FROM, from_entry.data);
		}
	}

	elog(DEBUG1, "%s exit: returning '%s'", __func__, from.data);
	return from.data;
}

/*
 * ExtractSPARQLPrefixes
 * -------------------
 * Parses the SPARQL PREFIX entries.
 *
 * state  : SPARQL, SERVER and FOREIGN TABLE info
 * 
 * returns void
 */
static void ExtractSPARQLPrefixes(struct RDFfdwState *state)
{
	char *sparql = state->raw_sparql;
	int p = 0;
	int end_prefixes = 0;
	StringInfoData prefix_str;
	StringInfoData uri_str;

	initStringInfo(&prefix_str);
	initStringInfo(&uri_str);

	elog(DEBUG1, "%s called", __func__);

	/* Locate where the PREFIX declarations end and the query begins */
	end_prefixes = LocateKeyword(sparql, "\n\t> ", RDF_SPARQL_KEYWORD_SELECT, " *?\n\t", NULL, 0);

	while (p < end_prefixes)
	{
		/* Skip whitespace */
		while (p < end_prefixes && isspace(sparql[p]))
			p++;

		/* Look for a PREFIX declaration */
		if (strncasecmp(sparql + p, RDF_SPARQL_KEYWORD_PREFIX, strlen(RDF_SPARQL_KEYWORD_PREFIX)) == 0)
		{
			RDFPrefix *entry = palloc(sizeof(RDFPrefix));

			p += strlen(RDF_SPARQL_KEYWORD_PREFIX);

			/* Skip whitespace after "PREFIX" */
			while (p < end_prefixes && isspace(sparql[p]))
				p++;

			/* Read prefix name (up to ':') */
			resetStringInfo(&prefix_str);
			while (p < end_prefixes && !isspace(sparql[p]) && sparql[p] != ':')
			{
				appendStringInfoChar(&prefix_str, sparql[p]);
				p++;
			}

			/* Expect and skip ':' */
			if (p >= end_prefixes || sparql[p] != ':')
				ereport(ERROR, (errmsg("Malformed PREFIX: expected ':' after prefix label")));
			p++;

			/* Skip whitespace after ':' */
			while (p < end_prefixes && isspace(sparql[p]))
				p++;

			/* Expect '<' */
			if (p >= end_prefixes || sparql[p] != '<')
				ereport(ERROR, (errmsg("Malformed PREFIX: expected '<' before URI")));
			p++;

			/* Read URI up to '>' */
			resetStringInfo(&uri_str);
			while (p < end_prefixes && sparql[p] != '>')
			{
				appendStringInfoChar(&uri_str, sparql[p]);
				p++;
			}

			if (p >= end_prefixes || sparql[p] != '>')
				ereport(ERROR, (errmsg("Malformed PREFIX: unterminated URI")));
			p++; /* Skip '>' */

			/* Store the prefix */
			entry->prefix = pstrdup(prefix_str.data);
			entry->url = pstrdup(uri_str.data);
			state->prefixes = lappend(state->prefixes, entry);

			elog(DEBUG1, "Parsed PREFIX: %s -> %s", entry->prefix, entry->url);
		}
		else
		{
			/* Skip to next line or fail fast? */
			while (p < end_prefixes && sparql[p] != '\n')
				p++;
			p++;
		}
	}
}

/*
 * DeparseSQLLimit
 * ---------------
 * Deparses the SQL LIMIT or FETCH clause and converts it into a SPARQL LIMIT clause
 *
 * state  : SPARQL, SERVER and FOREIGN TABLE info
 * root   : Planner info
 * baserel: Conditions and columns used in the SQL query
 *
 * returns a SPARQL LIMIT clause or an empty string if not applicable
 */
static char *DeparseSQLLimit(struct RDFfdwState *state, PlannerInfo *root, RelOptInfo *baserel)
{
	StringInfoData limit_clause;
	char *limit_val, *offset_val = NULL;

	elog(DEBUG1, "%s called ", __func__);

	/* don't push down LIMIT (OFFSET)  if the query has a GROUP BY clause or aggregates */
	if (root->parse->groupClause != NULL || root->parse->hasAggs)
	{
		elog(DEBUG1, "%s exit: returning NULL (LIMIT won't be pushed down, as SQL query contains aggregators)", __func__);
		return NULL;
	}

	/* don't push down LIMIT (OFFSET) if the query contains DISTINCT */
	if (root->parse->distinctClause != NULL)
	{
		elog(DEBUG1, "%s exit: returning NULL (LIMIT won't be pushed down, as SQL query contains DISTINCT)", __func__);
		return NULL;
	}

	/*
	 * disables LIMIT push down if any WHERE conidition cannot be be pushed down, otherwise you'll
	 * be scratching your head forever wondering why some data are missing from the result set.
	 */
	if (state->has_unparsable_conds)
	{
		elog(DEBUG1, "%s exit: returning NULL (LIMIT won't be pushed down, as there are WHERE conditions that could not be translated)", __func__);
		return NULL;
	}

	/* only push down constant LIMITs that are not NULL */
	if (root->parse->limitCount != NULL && IsA(root->parse->limitCount, Const))
	{
		Const *limit = (Const *)root->parse->limitCount;

		if (limit->constisnull)
		{
			elog(DEBUG1, "%s exit: returning NULL (limit->constisnull)", __func__);
			return NULL;
		}

		limit_val = DatumToString(limit->constvalue, limit->consttype);
	}
	else
	{
		elog(DEBUG1, "%s exit: returning NULL (constant is NULL)", __func__);
		return NULL;
	}

	/* only consider OFFSETS that are non-NULL constants */
	if (root->parse->limitOffset != NULL && IsA(root->parse->limitOffset, Const))
	{
		Const *offset = (Const *)root->parse->limitOffset;

		if (!offset->constisnull)
			offset_val = DatumToString(offset->constvalue, offset->consttype);
	}

	initStringInfo(&limit_clause);

	if (offset_val)
	{
		int val_offset = DatumGetInt32(((Const *)root->parse->limitOffset)->constvalue);
		int val_limit = DatumGetInt32(((Const *)root->parse->limitCount)->constvalue);
		appendStringInfo(&limit_clause, "LIMIT %d", val_offset + val_limit);
	}
	else
		appendStringInfo(&limit_clause, "LIMIT %s", limit_val);

	elog(DEBUG1, "%s exit: returning '%s'", __func__, NameStr(limit_clause));
	return NameStr(limit_clause);
}

/*
 * GetRDFNodeOID
 * ---------------
 * Gets the Oid of the custom data type 'rdfnode', as it is not part of
 * PostgreSQL core and will be different in every installation.
 *
 * returns Oid of 'rdfnode'
 */
static Oid GetRDFNodeOID(void)
{
	TypeName *typename = makeTypeNameFromNameList(list_make2(makeString("public"), makeString("rdfnode")));
	Oid typoid = typenameTypeId(NULL, typename);

	if (!OidIsValid(typoid))
		elog(ERROR, "could not find type \"rdfnode\"");

	return typoid;
}

Datum rdfnode_in(PG_FUNCTION_ARGS)
{
	char *str_in = PG_GETARG_CSTRING(0);
	char *lexical;
	char *lan;
	char *dtype;

	rdfnode *result;
	size_t len;
	StringInfoData r;

	initStringInfo(&r);

	if (strlen(str_in) == 0)
	{
		appendStringInfo(&r, "\"\"");
	}
	else if (isLiteral(str_in))
	{
		char *node = cstring_to_rdfliteral(str_in);

		lexical = lex(node);
		lan = lang(node);
		dtype = datatype(node);

		/* xsd data tyoe validations */
		if (strcmp(dtype, RDF_XSD_DOUBLE) == 0 && !is_valid_xsd_double(lexical))
			ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
							errmsg("invalid lexical form for xsd:double: \"%s\"", lexical)));
		else if (strcmp(dtype, RDF_XSD_INT) == 0 && !is_valid_xsd_int(lexical))
			ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
							errmsg("invalid lexical form for xsd:int: \"%s\"", lexical)));
		else if (strcmp(dtype, RDF_XSD_INTEGER) == 0 && !is_valid_xsd_int(lexical))
			ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
							errmsg("invalid lexical form for xsd:integer: \"%s\"", lexical)));
		else if (strcmp(dtype, RDF_XSD_DATE) == 0 && !is_valid_xsd_date(lexical))
			ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
							errmsg("invalid lexical form for xsd:date: \"%s\"", lexical)));
		else if (strcmp(dtype, RDF_XSD_DATETIME) == 0 && !is_valid_xsd_dateTime(lexical))
			ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
							errmsg("invalid lexical form for xsd:dateTime: \"%s\"", lexical)));
		else if (strcmp(dtype, RDF_XSD_TIME) == 0 && !is_valid_xsd_time(lexical))
			ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
							errmsg("invalid lexical form for xsd:time: \"%s\"", lexical)));
		else if (strlen(lan) != 0)
		{
			if (!is_valid_language_tag(lan))
				ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
								errmsg("invalid language tag: \"%s\"", lan)));

			appendStringInfo(&r, "%s", pstrdup(strlang(unescape_unicode(lexical), lan)));
		}
		else if (strlen(dtype) != 0)
			appendStringInfo(&r, "%s", pstrdup(strdt(unescape_unicode(lexical), dtype)));
		else
			appendStringInfo(&r, "%s", pstrdup(str(unescape_unicode(str_in))));
	}
	else
	{
		appendStringInfo(&r, "%s", pstrdup(unescape_unicode(str_in)));
	}

	len = strlen(r.data);

	/*
	 * allocate memory for the rdfnode (use palloc0 to clear memory).
	 * r.data is already null-terminated, so no +1 :)
	 */
	result = (rdfnode *)palloc0(VARHDRSZ + len);
	SET_VARSIZE(result, VARHDRSZ + len);

	/*
	 * copy string data into the result structure.
	 * no need for explicit null-termination here
	 */
	memcpy(result->vl_data, r.data, len);

	PG_RETURN_POINTER(result);
}

Datum rdfnode_out(PG_FUNCTION_ARGS)
{
	text *lit = PG_GETARG_TEXT_PP(0); /* handles detoasting */
	int len = VARSIZE_ANY_EXHDR(lit); /* get payload length safely */
	char *out = (char *)palloc(len + 1);

	memcpy(out, VARDATA_ANY(lit), len);
	out[len] = '\0';

	PG_RETURN_CSTRING(out);
}

Datum rdfnode_cmp(PG_FUNCTION_ARGS)
{
	text *ta = PG_GETARG_TEXT_PP(0);
	text *tb = PG_GETARG_TEXT_PP(1);
	const char *node1 = text_to_cstring(ta);
	const char *node2 = text_to_cstring(tb);
	int result = strcmp(node1, node2);

	if (result < 0)
		PG_RETURN_INT32(-1);
	else if (result > 0)
		PG_RETURN_INT32(1);
	else
		PG_RETURN_INT32(0);
}

Datum rdfnode_neq_rdfnode(PG_FUNCTION_ARGS)
{
	text *node1 = PG_GETARG_TEXT_PP(0);
	text *node2 = PG_GETARG_TEXT_PP(1);

	PG_RETURN_BOOL(!rdfnode_eq((rdfnode *)node1, (rdfnode *)node2));
}

Datum rdfnode_eq_rdfnode(PG_FUNCTION_ARGS)
{
	text *node1 = PG_GETARG_TEXT_PP(0);
	text *node2 = PG_GETARG_TEXT_PP(1);

	PG_RETURN_BOOL(rdfnode_eq((rdfnode *)node1, (rdfnode *)node2));
}

Datum rdfnode_lt_rdfnode(PG_FUNCTION_ARGS)
{
	text *node1 = PG_GETARG_TEXT_PP(0);
	text *node2 = PG_GETARG_TEXT_PP(1);

	PG_RETURN_BOOL(rdfnode_lt((rdfnode *)node1, (rdfnode *)node2));
}

Datum rdfnode_gt_rdfnode(PG_FUNCTION_ARGS)
{
	text *node1 = PG_GETARG_TEXT_PP(0);
	text *node2 = PG_GETARG_TEXT_PP(1);

	PG_RETURN_BOOL(rdfnode_gt((rdfnode *)node1, (rdfnode *)node2));
}

Datum rdfnode_le_rdfnode(PG_FUNCTION_ARGS)
{
	text *node1 = PG_GETARG_TEXT_PP(0);
	text *node2 = PG_GETARG_TEXT_PP(1);

	PG_RETURN_BOOL(rdfnode_le((rdfnode *)node1, (rdfnode *)node2));
}

Datum rdfnode_ge_rdfnode(PG_FUNCTION_ARGS)
{
	text *node1 = PG_GETARG_TEXT_PP(0);
	text *node2 = PG_GETARG_TEXT_PP(1);

	PG_RETURN_BOOL(rdfnode_ge((rdfnode *)node1, (rdfnode *)node2));
}

Datum rdfnode_to_text(PG_FUNCTION_ARGS)
{
	text *lit = PG_GETARG_TEXT_PP(0); /* safe detoasting */
	int len = VARSIZE_ANY_EXHDR(lit); /* length of the actual data */
	text *result = (text *)palloc(VARHDRSZ + len);

	SET_VARSIZE(result, VARHDRSZ + len);
	memcpy(VARDATA(result), VARDATA_ANY(lit), len);

	PG_RETURN_TEXT_P(result);
}

/* numeric */
Datum rdfnode_to_numeric(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	if (!p.isNumeric)
		ereport(ERROR,
				(errmsg("cannot cast non-numeric RDF literal to numeric")));

	PG_RETURN_DATUM(DirectFunctionCall3(numeric_in,
										CStringGetDatum(p.lex),
										ObjectIdGetDatum(InvalidOid),
										Int32GetDatum(-1)));
}

Datum rdfnode_eq_numeric(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Numeric num = PG_GETARG_NUMERIC(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_eq, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_numeric(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Numeric num = PG_GETARG_NUMERIC(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_ne, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_lt_numeric(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Numeric num = PG_GETARG_NUMERIC(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_lt, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_numeric(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Numeric num = PG_GETARG_NUMERIC(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_gt, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_numeric(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Numeric num = PG_GETARG_NUMERIC(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_le, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_numeric(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Numeric num = PG_GETARG_NUMERIC(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_ge, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum numeric_eq_rdfnode(PG_FUNCTION_ARGS)
{
	Numeric num = PG_GETARG_NUMERIC(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));

	result = DatumGetBool(DirectFunctionCall2(numeric_eq, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum numeric_neq_rdfnode(PG_FUNCTION_ARGS)
{
	Numeric num = PG_GETARG_NUMERIC(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_ne, rdf_num, NumericGetDatum(num)));

	PG_RETURN_BOOL(result);
}

Datum numeric_lt_rdfnode(PG_FUNCTION_ARGS)
{
	Numeric num = PG_GETARG_NUMERIC(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_lt, NumericGetDatum(num), rdf_num));

	PG_RETURN_BOOL(result);
}

Datum numeric_gt_rdfnode(PG_FUNCTION_ARGS)
{
	Numeric num = PG_GETARG_NUMERIC(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_gt, NumericGetDatum(num), rdf_num));

	PG_RETURN_BOOL(result);
}

Datum numeric_le_rdfnode(PG_FUNCTION_ARGS)
{
	Numeric num = PG_GETARG_NUMERIC(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_le, NumericGetDatum(num), rdf_num));

	PG_RETURN_BOOL(result);
}

Datum numeric_ge_rdfnode(PG_FUNCTION_ARGS)
{
	Numeric num = PG_GETARG_NUMERIC(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_num;
	bool result;

	rdf_num = DirectFunctionCall3(numeric_in,
								  CStringGetDatum(p.lex),
								  ObjectIdGetDatum(InvalidOid),
								  Int32GetDatum(-1));
	result = DatumGetBool(DirectFunctionCall2(numeric_ge, NumericGetDatum(num), rdf_num));

	PG_RETURN_BOOL(result);
}

Datum numeric_to_rdfnode(PG_FUNCTION_ARGS)
{
	Numeric val = PG_GETARG_NUMERIC(0);
	char *val_str = DatumGetCString(DirectFunctionCall1(numeric_out, NumericGetDatum(val)));

	StringInfoData buf;
	initStringInfo(&buf);

	/* format numeric as an RDF literal */
	appendStringInfo(&buf, "\"%s\"^^%s", val_str, RDF_XSD_DECIMAL);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

/* float8 */
Datum rdfnode_eq_float8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float8 f = PG_GETARG_FLOAT8(1);
	float8 rdf_float;
	Datum rdf_float_datum;
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	rdf_float_datum = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	rdf_float = DatumGetFloat8(rdf_float_datum);

	PG_RETURN_BOOL(rdf_float == f);
}

Datum rdfnode_neq_float8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float8 f = PG_GETARG_FLOAT8(1);
	float8 rdf_float;
	Datum rdf_float_datum;
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	rdf_float_datum = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	rdf_float = DatumGetFloat8(rdf_float_datum);

	PG_RETURN_BOOL(rdf_float != f);
}

Datum rdfnode_lt_float8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float8 f = PG_GETARG_FLOAT8(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8lt, rdf_float, Float8GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_float8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float8 f = PG_GETARG_FLOAT8(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8gt, rdf_float, Float8GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_float8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float8 f = PG_GETARG_FLOAT8(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8le, rdf_float, Float8GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_float8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float8 f = PG_GETARG_FLOAT8(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8ge, rdf_float, Float8GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_to_float8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	if (!p.isNumeric)
		ereport(ERROR,
				(errmsg("cannot cast non-numeric RDF literal to double precision")));

	PG_RETURN_DATUM(DirectFunctionCall1(float8in, CStringGetDatum(p.lex)));
}

Datum float8_eq_rdfnode(PG_FUNCTION_ARGS)
{
	float8 f = PG_GETARG_FLOAT8(0);
	text *t = PG_GETARG_TEXT_PP(1);
	float8 rdf_float;
	Datum rdf_float_datum;
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	rdf_float_datum = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	rdf_float = DatumGetFloat8(rdf_float_datum);

	PG_RETURN_BOOL(f == rdf_float);
}

Datum float8_neq_rdfnode(PG_FUNCTION_ARGS)
{
	float8 f = PG_GETARG_FLOAT8(0);
	text *t = PG_GETARG_TEXT_PP(1);
	float8 rdf_float;
	Datum rdf_float_datum;
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	rdf_float_datum = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	rdf_float = DatumGetFloat8(rdf_float_datum);

	PG_RETURN_BOOL(f != rdf_float);
}

Datum float8_lt_rdfnode(PG_FUNCTION_ARGS)
{
	float8 f = PG_GETARG_FLOAT8(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8lt, Float8GetDatum(f), rdf_float));
	PG_RETURN_BOOL(result);
}

Datum float8_gt_rdfnode(PG_FUNCTION_ARGS)
{
	float8 f = PG_GETARG_FLOAT8(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8gt, Float8GetDatum(f), rdf_float));
	PG_RETURN_BOOL(result);
}

Datum float8_le_rdfnode(PG_FUNCTION_ARGS)
{
	float8 f = PG_GETARG_FLOAT8(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8le, Float8GetDatum(f), rdf_float));
	PG_RETURN_BOOL(result);
}

Datum float8_ge_rdfnode(PG_FUNCTION_ARGS)
{
	float8 f = PG_GETARG_FLOAT8(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float = DirectFunctionCall1(float8in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float8ge, Float8GetDatum(f), rdf_float));
	PG_RETURN_BOOL(result);
}

Datum float8_to_rdfnode(PG_FUNCTION_ARGS)
{
	float8 val = PG_GETARG_FLOAT8(0);
	char *valstr;
	StringInfoData buf;

	valstr = DatumGetCString(DirectFunctionCall1(float8out, Float8GetDatum(val)));

	initStringInfo(&buf);
	appendStringInfo(&buf, "\"%s\"^^%s", valstr, RDF_XSD_DOUBLE);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

/* float4 (real) */
Datum rdfnode_to_float4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	PG_RETURN_DATUM(DirectFunctionCall1(float4in, CStringGetDatum(p.lex)));
}

Datum rdfnode_eq_float4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float4 f = PG_GETARG_FLOAT4(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4eq, rdf_float4, Float4GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_float4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float4 f = PG_GETARG_FLOAT4(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4ne, rdf_float4, Float4GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_float4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float4 f = PG_GETARG_FLOAT4(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4gt, rdf_float4, Float4GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_lt_float4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float4 f = PG_GETARG_FLOAT4(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4lt, rdf_float4, Float4GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_float4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float4 f = PG_GETARG_FLOAT4(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4ge, rdf_float4, Float4GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_float4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	float4 f = PG_GETARG_FLOAT4(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4le, rdf_float4, Float4GetDatum(f)));

	PG_RETURN_BOOL(result);
}

Datum float4_to_rdfnode(PG_FUNCTION_ARGS)
{
	float4 val = PG_GETARG_FLOAT4(0);
	StringInfoData buf;
	initStringInfo(&buf);

	if (isnan(val))
		appendStringInfo(&buf, "\"NaN\"^^%s", RDF_XSD_FLOAT);
	else if (isinf(val))
		appendStringInfo(&buf, val < 0 ? "\"-Infinity\"^^%s" : "\"Infinity\"^^%s", RDF_XSD_FLOAT);
	else
		appendStringInfo(&buf, "\"%g\"^^%s", val, RDF_XSD_FLOAT);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum float4_eq_rdfnode(PG_FUNCTION_ARGS)
{
	float4 f = PG_GETARG_FLOAT4(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4eq, Float4GetDatum(f), rdf_float4));

	PG_RETURN_BOOL(result);
}

Datum float4_neq_rdfnode(PG_FUNCTION_ARGS)
{
	float4 f = PG_GETARG_FLOAT4(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4ne, Float4GetDatum(f), rdf_float4));

	PG_RETURN_BOOL(result);
}

Datum float4_lt_rdfnode(PG_FUNCTION_ARGS)
{
	float4 f = PG_GETARG_FLOAT4(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4lt, Float4GetDatum(f), rdf_float4));

	PG_RETURN_BOOL(result);
}

Datum float4_gt_rdfnode(PG_FUNCTION_ARGS)
{
	float4 f = PG_GETARG_FLOAT4(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4gt, Float4GetDatum(f), rdf_float4));

	PG_RETURN_BOOL(result);
}

Datum float4_le_rdfnode(PG_FUNCTION_ARGS)
{
	float4 f = PG_GETARG_FLOAT4(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4le, Float4GetDatum(f), rdf_float4));

	PG_RETURN_BOOL(result);
}

Datum float4_ge_rdfnode(PG_FUNCTION_ARGS)
{
	float4 f = PG_GETARG_FLOAT4(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_float4 = DirectFunctionCall1(float4in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(float4ge, Float4GetDatum(f), rdf_float4));

	PG_RETURN_BOOL(result);
}

/* bigint (int8) */
Datum rdfnode_to_int8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
#if PG_VERSION_NUM >= 100000
    int64 result = DatumGetInt64(DirectFunctionCall1(int8in, CStringGetDatum(p.lex)));
#else
    int64 result = DatumGetInt64(OidFunctionCall1(F_INT8IN, CStringGetDatum(p.lex)));
#endif

	PG_RETURN_INT64(result);
}

Datum rdfnode_lt_int8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int64 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_lt, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_int8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int64 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_le, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_int8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int64 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_gt, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_int8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int64 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ge, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_eq_int8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int64 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_eq, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_int8(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int64 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ne, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum int8_to_rdfnode(PG_FUNCTION_ARGS)
{
	int64 val = PG_GETARG_INT64(0);
	StringInfoData buf;
	initStringInfo(&buf);
	appendStringInfo(&buf, "\"%ld\"^^%s", val, RDF_XSD_LONG);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum int8_lt_rdfnode(PG_FUNCTION_ARGS)
{
	int64 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_lt, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int8_le_rdfnode(PG_FUNCTION_ARGS)
{
	int64 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_le, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int8_gt_rdfnode(PG_FUNCTION_ARGS)
{
	int64 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_gt, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int8_ge_rdfnode(PG_FUNCTION_ARGS)
{
	int64 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ge, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int8_eq_rdfnode(PG_FUNCTION_ARGS)
{
	int64 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_eq, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int8_neq_rdfnode(PG_FUNCTION_ARGS)
{
	int64 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int8_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ne, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

/* int (int4) */
Datum rdfnode_to_int4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	int32 result = DatumGetInt32(DirectFunctionCall1(int4in, CStringGetDatum(p.lex)));

	PG_RETURN_INT64(result);
}

Datum rdfnode_lt_int4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int32 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_lt, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_int4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int32 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_le, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_int4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int32 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_gt, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_int4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int32 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ge, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_eq_int4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int32 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_eq, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_int4(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int32 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ne, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum int4_to_rdfnode(PG_FUNCTION_ARGS)
{
	int32 val = PG_GETARG_INT32(0);
	StringInfoData buf;
	initStringInfo(&buf);
	appendStringInfo(&buf, "\"%d\"^^%s", val, RDF_XSD_INT);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum int4_lt_rdfnode(PG_FUNCTION_ARGS)
{
	int32 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_lt, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int4_le_rdfnode(PG_FUNCTION_ARGS)
{
	int32 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_le, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int4_gt_rdfnode(PG_FUNCTION_ARGS)
{
	int32 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_gt, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int4_ge_rdfnode(PG_FUNCTION_ARGS)
{
	int32 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ge, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int4_eq_rdfnode(PG_FUNCTION_ARGS)
{
	int32 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_eq, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int4_neq_rdfnode(PG_FUNCTION_ARGS)
{
	int32 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int4_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ne, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

/* smallint (int2) */
Datum rdfnode_to_int2(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	int16 result = DatumGetInt32(DirectFunctionCall1(int2in, CStringGetDatum(p.lex)));

	PG_RETURN_INT64(result);
}

Datum rdfnode_lt_int2(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int16 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_lt, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_int2(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int16 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_le, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_int2(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int16 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_gt, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_int2(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int16 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ge, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_eq_int2(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int16 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_eq, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_int2(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	int16 val = PG_GETARG_INT64(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ne, rdf_numeric, val_numeric));

	PG_RETURN_BOOL(result);
}

Datum int2_to_rdfnode(PG_FUNCTION_ARGS)
{
	int16 val = PG_GETARG_INT16(0);
	StringInfoData buf;
	initStringInfo(&buf);
	appendStringInfo(&buf, "\"%d\"^^%s", val, RDF_XSD_SHORT);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum int2_lt_rdfnode(PG_FUNCTION_ARGS)
{
	int16 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_lt, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int2_le_rdfnode(PG_FUNCTION_ARGS)
{
	int16 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_le, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int2_gt_rdfnode(PG_FUNCTION_ARGS)
{
	int16 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_gt, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int2_ge_rdfnode(PG_FUNCTION_ARGS)
{
	int16 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ge, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int2_eq_rdfnode(PG_FUNCTION_ARGS)
{
	int16 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_eq, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

Datum int2_neq_rdfnode(PG_FUNCTION_ARGS)
{
	int16 val = PG_GETARG_INT64(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_numeric = DirectFunctionCall3(numeric_in,
											CStringGetDatum(p.lex),
											ObjectIdGetDatum(InvalidOid),
											Int32GetDatum(-1));

	Datum val_numeric = DirectFunctionCall1(int2_numeric, Int64GetDatum(val));

	bool result = DatumGetBool(DirectFunctionCall2(numeric_ne, val_numeric, rdf_numeric));

	PG_RETURN_BOOL(result);
}

/* timestamp with time zone (timestamptz) */
Datum timestamptz_to_rdfnode(PG_FUNCTION_ARGS)
{
	TimestampTz ts = PG_GETARG_TIMESTAMPTZ(0);
	struct pg_tm tm;
	fsec_t fsec;
	const char *tzn;
	StringInfoData buf;

	if (timestamp2tm(ts, NULL, &tm, &fsec, &tzn, NULL) != 0)
		ereport(ERROR, (errmsg("invalid timestamp")));

	initStringInfo(&buf);
	appendStringInfo(&buf,
					 "\"%04d-%02d-%02dT%02d:%02d:%02d.%06dZ\"^^%s",
					 tm.tm_year, tm.tm_mon, tm.tm_mday,
					 tm.tm_hour, tm.tm_min, tm.tm_sec,
					 (int)fsec,
					 RDF_XSD_DATETIME);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum rdfnode_to_timestamptz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum result = DatumGetTimestampTz(DirectFunctionCall3(timestamptz_in,
														   CStringGetDatum(p.lex),
														   ObjectIdGetDatum(InvalidOid),
														   Int32GetDatum(-1)));

	PG_RETURN_DATUM(result);
}

/* timestamp */
Datum rdfnode_to_timestamp(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum result;

	if (!p.isDateTime && !p.isDate)
		ereport(ERROR, (errmsg("cannot cast RDF literal: %s", text_to_cstring(t))));

	result = DatumGetTimestamp(DirectFunctionCall3(timestamp_in,
												   CStringGetDatum(p.lex),
												   ObjectIdGetDatum(InvalidOid),
												   Int32GetDatum(-1)));

	PG_RETURN_DATUM(result);
}

Datum rdfnode_eq_timestamp(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Timestamp val = PG_GETARG_TIMESTAMP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_eq, rdf_ts, TimestampGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_timestamp(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Timestamp val = PG_GETARG_TIMESTAMP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_ne, rdf_ts, TimestampGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_lt_timestamp(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Timestamp val = PG_GETARG_TIMESTAMP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_lt, rdf_ts, TimestampGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_timestamp(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Timestamp val = PG_GETARG_TIMESTAMP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_gt, rdf_ts, TimestampGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_timestamp(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Timestamp val = PG_GETARG_TIMESTAMP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_le, rdf_ts, TimestampGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_timestamp(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Timestamp val = PG_GETARG_TIMESTAMP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_ge, rdf_ts, TimestampGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum timestamp_to_rdfnode(PG_FUNCTION_ARGS)
{
	Timestamp ts = PG_GETARG_TIMESTAMP(0);
	struct pg_tm tm;
	fsec_t fsec;
	StringInfoData buf;

	if (timestamp2tm(ts, NULL, &tm, &fsec, NULL, NULL) != 0)
		ereport(ERROR, (errmsg("invalid timestamp")));

	initStringInfo(&buf);
	appendStringInfo(&buf,
					 "\"%04d-%02d-%02dT%02d:%02d:%02d",
					 tm.tm_year, tm.tm_mon, tm.tm_mday,
					 tm.tm_hour, tm.tm_min, tm.tm_sec);

	if (fsec != 0)
		appendStringInfo(&buf, ".%06d", (int)fsec);

	appendStringInfo(&buf, "\"^^%s", RDF_XSD_DATETIME);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum timestamp_eq_rdfnode(PG_FUNCTION_ARGS)
{
	Timestamp val = PG_GETARG_TIMESTAMP(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_eq, TimestampGetDatum(val), rdf_ts));

	PG_RETURN_BOOL(result);
}

Datum timestamp_neq_rdfnode(PG_FUNCTION_ARGS)
{
	Timestamp val = PG_GETARG_TIMESTAMP(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_ne, TimestampGetDatum(val), rdf_ts));

	PG_RETURN_BOOL(result);
}

Datum timestamp_lt_rdfnode(PG_FUNCTION_ARGS)
{
	Timestamp val = PG_GETARG_TIMESTAMP(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_lt, TimestampGetDatum(val), rdf_ts));

	PG_RETURN_BOOL(result);
}

Datum timestamp_gt_rdfnode(PG_FUNCTION_ARGS)
{
	Timestamp val = PG_GETARG_TIMESTAMP(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_gt, TimestampGetDatum(val), rdf_ts));

	PG_RETURN_BOOL(result);
}

Datum timestamp_le_rdfnode(PG_FUNCTION_ARGS)
{
	Timestamp val = PG_GETARG_TIMESTAMP(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_le, TimestampGetDatum(val), rdf_ts));

	PG_RETURN_BOOL(result);
}

Datum timestamp_ge_rdfnode(PG_FUNCTION_ARGS)
{
	Timestamp val = PG_GETARG_TIMESTAMP(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_ts = DirectFunctionCall1(timestamp_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timestamp_ge, TimestampGetDatum(val), rdf_ts));

	PG_RETURN_BOOL(result);
}

/* date */
Datum rdfnode_to_date(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum result = DirectFunctionCall3(date_in,
									   CStringGetDatum(p.lex),
									   ObjectIdGetDatum(InvalidOid),
									   Int32GetDatum(-1));

	PG_RETURN_DATEADT(DatumGetDateADT(result));
}

Datum rdfnode_lt_date(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	DateADT val = PG_GETARG_DATEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_lt, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_date(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	DateADT val = PG_GETARG_DATEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_le, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_date(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	DateADT val = PG_GETARG_DATEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_gt, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_date(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	DateADT val = PG_GETARG_DATEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_ge, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum rdfnode_eq_date(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	DateADT val = PG_GETARG_DATEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_eq, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_date(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	DateADT val = PG_GETARG_DATEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_ne, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return true (not equal) */
		FlushErrorState();
		PG_RETURN_BOOL(true);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum date_to_rdfnode(PG_FUNCTION_ARGS)
{
	DateADT d = PG_GETARG_DATEADT(0);
	StringInfoData buf;
	int year, month, day;

	j2date(d + POSTGRES_EPOCH_JDATE, &year, &month, &day);

	initStringInfo(&buf);
	appendStringInfo(&buf,
					 "\"%04d-%02d-%02d\"^^%s",
					 year, month, day, RDF_XSD_DATE);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum date_lt_rdfnode(PG_FUNCTION_ARGS)
{
	DateADT val = PG_GETARG_DATEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_lt, DateADTGetDatum(val), rdf_date));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum date_le_rdfnode(PG_FUNCTION_ARGS)
{
	DateADT val = PG_GETARG_DATEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_le, DateADTGetDatum(val), rdf_date));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum date_gt_rdfnode(PG_FUNCTION_ARGS)
{
	DateADT val = PG_GETARG_DATEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_gt, DateADTGetDatum(val), rdf_date));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum date_ge_rdfnode(PG_FUNCTION_ARGS)
{
	DateADT val = PG_GETARG_DATEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_ge, DateADTGetDatum(val), rdf_date));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum date_eq_rdfnode(PG_FUNCTION_ARGS)
{
	DateADT val = PG_GETARG_DATEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_eq, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return false */
		FlushErrorState();
		PG_RETURN_BOOL(false);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

Datum date_neq_rdfnode(PG_FUNCTION_ARGS)
{
	DateADT val = PG_GETARG_DATEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_date;
	bool result;

	/* Try to parse the lexical value as a date, even if not tagged as xsd:date */
	PG_TRY();
	{
		rdf_date = DirectFunctionCall1(date_in, CStringGetDatum(p.lex));
		result = DatumGetBool(DirectFunctionCall2(date_ne, rdf_date, DateADTGetDatum(val)));
	}
	PG_CATCH();
	{
		/* If parsing fails, the value is not a valid date - return true (not equal) */
		FlushErrorState();
		PG_RETURN_BOOL(true);
	}
	PG_END_TRY();

	PG_RETURN_BOOL(result);
}

/* time (without time zone) */
Datum rdfnode_to_time(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum result = DirectFunctionCall3(time_in,
									   CStringGetDatum(p.lex),
									   ObjectIdGetDatum(InvalidOid),
									   Int32GetDatum(-1));

	PG_RETURN_TIMEADT(DatumGetTimeADT(result));
}

Datum rdfnode_lt_time(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeADT val = PG_GETARG_TIMEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_lt, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_time(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeADT val = PG_GETARG_TIMEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_le, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_time(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeADT val = PG_GETARG_TIMEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_gt, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_time(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeADT val = PG_GETARG_TIMEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_ge, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_eq_time(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeADT val = PG_GETARG_TIMEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_eq, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_time(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeADT val = PG_GETARG_TIMEADT(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_ne, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum time_to_rdfnode(PG_FUNCTION_ARGS)
{
	TimeADT t = PG_GETARG_TIMEADT(0);
	struct pg_tm tt;
	fsec_t fsec;
	StringInfoData buf;

	if (timestamp2tm(t, NULL, &tt, &fsec, NULL, NULL) != 0)
		ereport(ERROR,
				(errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
				 errmsg("time out of range")));

	initStringInfo(&buf);
	appendStringInfo(&buf,
					 "\"%02d:%02d:%02d\"^^%s",
					 tt.tm_hour, tt.tm_min, tt.tm_sec,
					 RDF_XSD_TIME);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum time_lt_rdfnode(PG_FUNCTION_ARGS)
{
	TimeADT val = PG_GETARG_TIMEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_lt, TimeADTGetDatum(val), rdf_time));

	PG_RETURN_BOOL(result);
}

Datum time_le_rdfnode(PG_FUNCTION_ARGS)
{
	TimeADT val = PG_GETARG_TIMEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_le, TimeADTGetDatum(val), rdf_time));

	PG_RETURN_BOOL(result);
}

Datum time_gt_rdfnode(PG_FUNCTION_ARGS)
{
	TimeADT val = PG_GETARG_TIMEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_gt, TimeADTGetDatum(val), rdf_time));

	PG_RETURN_BOOL(result);
}

Datum time_ge_rdfnode(PG_FUNCTION_ARGS)
{
	TimeADT val = PG_GETARG_TIMEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_ge, TimeADTGetDatum(val), rdf_time));

	PG_RETURN_BOOL(result);
}

Datum time_eq_rdfnode(PG_FUNCTION_ARGS)
{
	TimeADT val = PG_GETARG_TIMEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_eq, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum time_neq_rdfnode(PG_FUNCTION_ARGS)
{
	TimeADT val = PG_GETARG_TIMEADT(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_time = DirectFunctionCall1(time_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(time_ne, rdf_time, TimeADTGetDatum(val)));

	PG_RETURN_BOOL(result);
}

/*  time with time zone (timetz) */
Datum rdfnode_to_timetz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum result = DirectFunctionCall3(timetz_in,
									   CStringGetDatum(p.lex),
									   ObjectIdGetDatum(InvalidOid),
									   Int32GetDatum(-1));

	PG_RETURN_TIMETZADT_P(DatumGetTimeTzADTP(result));
}

Datum rdfnode_lt_timetz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall3(timetz_in,
										   CStringGetDatum(p.lex),
										   ObjectIdGetDatum(InvalidOid),
										   Int32GetDatum(-1));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_lt, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_timetz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall3(timetz_in,
										   CStringGetDatum(p.lex),
										   ObjectIdGetDatum(InvalidOid),
										   Int32GetDatum(-1));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_le, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_timetz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall3(timetz_in,
										   CStringGetDatum(p.lex),
										   ObjectIdGetDatum(InvalidOid),
										   Int32GetDatum(-1));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_gt, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_timetz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall3(timetz_in,
										   CStringGetDatum(p.lex),
										   ObjectIdGetDatum(InvalidOid),
										   Int32GetDatum(-1));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_ge, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_eq_timetz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall3(timetz_in,
										   CStringGetDatum(p.lex),
										   ObjectIdGetDatum(InvalidOid),
										   Int32GetDatum(-1));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_eq, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_timetz(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall3(timetz_in,
										   CStringGetDatum(p.lex),
										   ObjectIdGetDatum(InvalidOid),
										   Int32GetDatum(-1));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_ne, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum timetz_to_rdfnode(PG_FUNCTION_ARGS)
{
	TimeTzADT *t = PG_GETARG_TIMETZADT_P(0);
	char *timetzstr;
	StringInfoData buf;
	timetzstr = DatumGetCString(DirectFunctionCall1(timetz_out, TimeTzADTPGetDatum(t)));

	initStringInfo(&buf);
	appendStringInfo(&buf,
					 "\"%s\"^^%s",
					 timetzstr,
					 RDF_XSD_TIME);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum timetz_lt_rdfnode(PG_FUNCTION_ARGS)
{
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall1(timetz_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_lt, TimeTzADTPGetDatum(val), rdf_timetz));

	PG_RETURN_BOOL(result);
}

Datum timetz_le_rdfnode(PG_FUNCTION_ARGS)
{
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall1(timetz_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_le, TimeTzADTPGetDatum(val), rdf_timetz));

	PG_RETURN_BOOL(result);
}

Datum timetz_gt_rdfnode(PG_FUNCTION_ARGS)
{
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall1(timetz_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_gt, TimeTzADTPGetDatum(val), rdf_timetz));

	PG_RETURN_BOOL(result);
}

Datum timetz_ge_rdfnode(PG_FUNCTION_ARGS)
{
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall1(timetz_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_ge, TimeTzADTPGetDatum(val), rdf_timetz));

	PG_RETURN_BOOL(result);
}

Datum timetz_eq_rdfnode(PG_FUNCTION_ARGS)
{
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall1(timetz_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_eq, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum timetz_neq_rdfnode(PG_FUNCTION_ARGS)
{
	TimeTzADT *val = PG_GETARG_TIMETZADT_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_timetz = DirectFunctionCall1(timetz_in, CStringGetDatum(p.lex));
	bool result = DatumGetBool(DirectFunctionCall2(timetz_ne, rdf_timetz, TimeTzADTPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

/* boolean */
Datum rdfnode_to_boolean(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	bool result;

	if (strcmp(p.dtype, RDF_XSD_BOOLEAN) != 0 && strcmp(p.dtype, RDF_XSD_INTEGER) != 0)
		ereport(ERROR, (errmsg("cannot cast RDF literal: %s to boolean", p.raw)));

	if (pg_strcasecmp(p.lex, "true") == 0 || strcmp(p.lex, "1") == 0)
		result = true;
	else if (pg_strcasecmp(p.lex, "false") == 0 || strcmp(p.lex, "0") == 0)
		result = false;
	else
		ereport(ERROR,
				(errmsg("cannot cast RDF literal: %s to boolean", p.raw),
				 errdetail("expected values for xsd:boolean are \"true\" or \"false\"")));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_eq_boolean(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	bool val = PG_GETARG_BOOL(1);
	char *literal = text_to_cstring(t);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	if (strcmp(p.dtype, RDF_XSD_BOOLEAN) != 0 && strcmp(p.dtype, RDF_XSD_INTEGER) != 0)
		ereport(ERROR, (errmsg("cannot cast RDF literal: %s to boolean", literal)));

	if ((pg_strcasecmp(p.lex, "true") == 0 || strcmp(p.lex, "1") == 0) && val)
		PG_RETURN_BOOL(true);
	else if ((pg_strcasecmp(p.lex, "false") == 0 || strcmp(p.lex, "0") == 0) && !val)
		PG_RETURN_BOOL(true);
	else
		PG_RETURN_BOOL(false);
}

Datum rdfnode_neq_boolean(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	bool val = PG_GETARG_BOOL(1);
	char *literal = text_to_cstring(t);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	if (strcmp(p.dtype, RDF_XSD_BOOLEAN) != 0 && strcmp(p.dtype, RDF_XSD_INTEGER) != 0)
		ereport(ERROR, (errmsg("cannot cast RDF literal: %s to boolean", literal)));

	if ((pg_strcasecmp(p.lex, "true") == 0 || strcmp(p.lex, "1") == 0) && !val)
		PG_RETURN_BOOL(true);
	else if ((pg_strcasecmp(p.lex, "false") || strcmp(p.lex, "0") == 0) == 0 && val)
		PG_RETURN_BOOL(true);
	else
		PG_RETURN_BOOL(false);
}

Datum boolean_to_rdfnode(PG_FUNCTION_ARGS)
{
	bool val = PG_GETARG_BOOL(0);
	StringInfoData buf;
	initStringInfo(&buf);

	if (val)
		appendStringInfo(&buf, "\"true\"^^%s", RDF_XSD_BOOLEAN);
	else
		appendStringInfo(&buf, "\"false\"^^%s", RDF_XSD_BOOLEAN);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum boolean_eq_rdfnode(PG_FUNCTION_ARGS)
{
	bool val = PG_GETARG_BOOL(0);
	text *t = PG_GETARG_TEXT_PP(1);
	char *literal = text_to_cstring(t);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	if (strcmp(p.dtype, RDF_XSD_BOOLEAN) != 0 && strcmp(p.dtype, RDF_XSD_INTEGER) != 0)
		ereport(ERROR, (errmsg("cannot cast RDF literal: %s to boolean", literal)));

	if ((pg_strcasecmp(p.lex, "true") == 0 || strcmp(p.lex, "1") == 0) && val)
		PG_RETURN_BOOL(true);
	else if ((pg_strcasecmp(p.lex, "false") == 0 || strcmp(p.lex, "0") == 0) && !val)
		PG_RETURN_BOOL(true);
	else
		PG_RETURN_BOOL(false);
}

Datum boolean_neq_rdfnode(PG_FUNCTION_ARGS)
{
	bool val = PG_GETARG_BOOL(0);
	text *t = PG_GETARG_TEXT_PP(1);
	char *literal = text_to_cstring(t);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	if (strcmp(p.dtype, RDF_XSD_BOOLEAN) != 0 && strcmp(p.dtype, RDF_XSD_INTEGER) != 0)
		ereport(ERROR, (errmsg("cannot cast RDF literal: %s to boolean", literal)));

	if ((pg_strcasecmp(p.lex, "true") == 0 || strcmp(p.lex, "1") == 0) && !val)
		PG_RETURN_BOOL(true);
	else if ((pg_strcasecmp(p.lex, "false") == 0 || strcmp(p.lex, "0") == 0) && val)
		PG_RETURN_BOOL(true);
	else
		PG_RETURN_BOOL(false);
}

/* interval */
Datum rdfnode_to_interval(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum result;

	if (strcmp(p.dtype, RDF_XSD_DURATION) != 0)
		ereport(ERROR,
				(errmsg("cannot cast RDF literal: %s to interval", p.raw),
				 errdetail("expected xsd:duration")));

	result = DirectFunctionCall3(interval_in,
								 CStringGetDatum(p.lex),
								 ObjectIdGetDatum(InvalidOid),
								 Int32GetDatum(-1));

	PG_RETURN_DATUM(result);
}

Datum rdfnode_eq_interval(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Interval *val = PG_GETARG_INTERVAL_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_eq,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_neq_interval(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Interval *val = PG_GETARG_INTERVAL_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_ne,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_lt_interval(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Interval *val = PG_GETARG_INTERVAL_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_lt,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_le_interval(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Interval *val = PG_GETARG_INTERVAL_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_le,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_gt_interval(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Interval *val = PG_GETARG_INTERVAL_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_gt,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum rdfnode_ge_interval(PG_FUNCTION_ARGS)
{
	text *t = PG_GETARG_TEXT_PP(0);
	Interval *val = PG_GETARG_INTERVAL_P(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_ge,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum interval_to_rdfnode(PG_FUNCTION_ARGS)
{
	Interval *iv = PG_GETARG_INTERVAL_P(0);
	StringInfoData buf;
	bool is_negative = false;
	int years, months, days, hours, mins, secs, usecs;
	bool is_zero;

	initStringInfo(&buf);

	/* deparse interval */
	if (iv->month < 0 || iv->day < 0 || iv->time < 0)
		is_negative = true;

	years = iv->month / 12;
	months = iv->month % 12;
	days = iv->day;
	hours = (iv->time / USECS_PER_HOUR);
	mins = (iv->time % USECS_PER_HOUR) / USECS_PER_MINUTE;
	secs = (iv->time % USECS_PER_MINUTE) / USECS_PER_SEC;
	usecs = iv->time % USECS_PER_SEC;

	/* check for zero duration */
	is_zero = (years == 0 && months == 0 && days == 0 &&
			   hours == 0 && mins == 0 && secs == 0 && usecs == 0);

	appendStringInfoChar(&buf, '\"');

	if (is_zero)
	{
		/* use PT0S for zero durations */
		appendStringInfo(&buf, "PT0S");
	}
	else
	{
		/* andle negative interval */
		if (is_negative)
			appendStringInfoChar(&buf, '-');

		appendStringInfoChar(&buf, 'P');

		/* add years, months, and days */
		if (years != 0)
			appendStringInfo(&buf, "%dY", abs(years));
		if (months != 0)
			appendStringInfo(&buf, "%dM", abs(months));
		if (days != 0)
			appendStringInfo(&buf, "%dD", abs(days));

		/* add time portion (hours, minutes, seconds, microseconds) */
		if (hours != 0 || mins != 0 || secs != 0 || usecs != 0)
		{
			appendStringInfoChar(&buf, 'T');

			if (hours != 0)
				appendStringInfo(&buf, "%dH", abs(hours));
			if (mins != 0)
				appendStringInfo(&buf, "%dM", abs(mins));

			if (usecs != 0)
				appendStringInfo(&buf, "%d.%06dS", abs(secs), abs(usecs));
			else if (secs != 0)
				appendStringInfo(&buf, "%dS", abs(secs));
		}
	}

	/* close the literal and add the RDF type */
	appendStringInfo(&buf, "\"^^%s", RDF_XSD_DURATION);

	PG_RETURN_TEXT_P(cstring_to_text(buf.data));
}

Datum interval_eq_rdfnode(PG_FUNCTION_ARGS)
{
	Interval *val = PG_GETARG_INTERVAL_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_eq,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum interval_neq_rdfnode(PG_FUNCTION_ARGS)
{
	Interval *val = PG_GETARG_INTERVAL_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);

	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_ne,
												   rdf_interval,
												   IntervalPGetDatum(val)));

	PG_RETURN_BOOL(result);
}

Datum interval_lt_rdfnode(PG_FUNCTION_ARGS)
{
	Interval *val = PG_GETARG_INTERVAL_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_lt,
												   IntervalPGetDatum(val),
												   rdf_interval));

	PG_RETURN_BOOL(result);
}

Datum interval_le_rdfnode(PG_FUNCTION_ARGS)
{
	Interval *val = PG_GETARG_INTERVAL_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_le,
												   IntervalPGetDatum(val),
												   rdf_interval));
	PG_RETURN_BOOL(result);
}

Datum interval_gt_rdfnode(PG_FUNCTION_ARGS)
{
	Interval *val = PG_GETARG_INTERVAL_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_gt,
												   IntervalPGetDatum(val),
												   rdf_interval));

	PG_RETURN_BOOL(result);
}

Datum interval_ge_rdfnode(PG_FUNCTION_ARGS)
{
	Interval *val = PG_GETARG_INTERVAL_P(0);
	text *t = PG_GETARG_TEXT_PP(1);
	rdfnode_info p = parse_rdfnode((rdfnode *)t);
	Datum rdf_interval = DirectFunctionCall3(interval_in,
											 CStringGetDatum(p.lex),
											 ObjectIdGetDatum(InvalidOid),
											 Int32GetDatum(-1));

	bool result = DatumGetBool(DirectFunctionCall2(interval_ge,
												   IntervalPGetDatum(val),
												   rdf_interval));

	PG_RETURN_BOOL(result);
}

static void LoadPrefixes(RDFfdwState *state)
{
	int ret;
	bool isnull;
	char query[1024];
	ListCell *cell;
	StringInfoData prefixes;

	state->prefixes = NIL;

	initStringInfo(&prefixes);

	if (state->prefix_context)
	{
		if (SPI_connect() != SPI_OK_CONNECT)
			elog(ERROR, "rdf_fdw: SPI_connect failed");

		snprintf(query, sizeof(query),
				 "SELECT prefix, uri FROM sparql.prefixes WHERE context = %s",
				 quote_literal_cstr(state->prefix_context));

		ret = SPI_execute(query, true, 0);

		if (ret != SPI_OK_SELECT)
			elog(ERROR, "rdf_fdw: SPI_execute failed: %s", query);

		if (SPI_processed == 0)
			elog(WARNING, "no prefixes found for context '%s'", state->prefix_context);

		for (int i = 0; i < SPI_processed; i++)
		{
			HeapTuple tuple = SPI_tuptable->vals[i];
			TupleDesc tupdesc = SPI_tuptable->tupdesc;
			RDFPrefix *entry = palloc(sizeof(RDFPrefix));
			char *uri;
			char *prefix = TextDatumGetCString(SPI_getbinval(tuple, tupdesc, 1, &isnull));

			if (isnull)
			{
				pfree(entry);
				elog(WARNING, "%s: NULL prefix skipped", __func__);
				continue;
			}

			uri = TextDatumGetCString(SPI_getbinval(tuple, tupdesc, 2, &isnull));

			if (isnull)
			{
				elog(WARNING, "%s: NULL URI skipped", __func__);
				pfree(entry);
				if (uri)
					pfree(uri);
				continue;
			}

			entry->prefix = pstrdup(prefix);
			entry->url = pstrdup(uri);
			state->prefixes = lappend(state->prefixes, entry);

			pfree(uri);
			pfree(prefix);
		}

		SPI_finish();
	}

	ExtractSPARQLPrefixes(state);

	foreach (cell, state->prefixes)
	{
		RDFPrefix *p = (RDFPrefix *)lfirst(cell);
		appendStringInfo(&prefixes, "PREFIX %s: <%s>\n", p->prefix, p->url);
	}

	state->sparql_prefixes = prefixes.data;
}

/*
 * rdf_fdw_sum_sfunc
 * -----------------
 * Wrapper for SPARQL SUM aggregate transition function.
 * Handles PostgreSQL aggregate context validation before
 * delegating.
 */
Datum rdf_fdw_sum_sfunc(PG_FUNCTION_ARGS)
{
	MemoryContext aggcontext;

	elog(DEBUG1, "%s called", __func__);

	/* Verify we're being called as an aggregate */
	if (!AggCheckCallContext(fcinfo, &aggcontext))
		ereport(ERROR,
				(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
				 errmsg("sum_rdfnode_sfunc called in non-aggregate context")));

	/* 
	 * Delegate to the actual implementation in
	 * sum_rdfnode_sfunc()
	 */
	return sum_rdfnode_sfunc(fcinfo);
}

/*
 * rdf_fdw_sum_finalfunc
 * ---------------------
 * Wrapper for SPARQL SUM aggregate final function.
 *
 * Per SPARQL 1.1 Section 18.5.1.3: Sum({}) = 0
 * However, when ALL input values produce type errors (non-numeric),
 * the aggregate returns NULL (unbound result).
 * The distinction is:
 * - Empty input set (no rows) or all NULL: returns "0"^^xsd:integer
 * - All values are non-numeric (type errors): returns NULL
 */
Datum rdf_fdw_sum_finalfunc(PG_FUNCTION_ARGS)
{
	RdfnodeAggState *aggstate;

	/* 
	 * If called with NULL state (empty set or all-NULL inputs),
	 * return SQL NULL to match SPARQL 1.1 semantics for unbound
	 * results. 
	 */
	if (PG_ARGISNULL(0))
		PG_RETURN_NULL();

	/* Extract state pointer */
	aggstate = (RdfnodeAggState *)PG_GETARG_POINTER(0);

	/* If state pointer is NULL, treat as empty and return NULL */
	if (aggstate == NULL)
		PG_RETURN_NULL();

	/* 
	 * If we saw input values but none were numeric, return NULL
	 * (type errors)
	 */
	if (aggstate->has_input && aggstate->numeric_value == NULL)
		PG_RETURN_NULL();

	/* If no input was recorded, return NULL (empty group) */
	if (!aggstate->has_input)
		PG_RETURN_NULL();

	/* Have numeric result - delegate to actual implementation */
	return sum_rdfnode_finalfunc(fcinfo);
}

/*
 * rdf_fdw_avg_sfunc
 * -----------------
 * Wrapper for SPARQL AVG aggregate transition function.
 * Handles PostgreSQL aggregate context validation before
 * delegating.
 */
Datum rdf_fdw_avg_sfunc(PG_FUNCTION_ARGS)
{
	MemoryContext aggcontext;

	elog(DEBUG1, "%s called", __func__);

	/* Verify we're being called as an aggregate */
	if (!AggCheckCallContext(fcinfo, &aggcontext))
		ereport(ERROR,
				(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
				 errmsg("avg_rdfnode_sfunc called in non-aggregate context")));

	/* Delegate to the actual implementation in sparql.c */
	return avg_rdfnode_sfunc(fcinfo);
}

/*
 * rdf_fdw_avg_finalfunc
 * ---------------------
 * Wrapper for SPARQL AVG aggregate final function.
 *
 * Per SPARQL 1.1 Section 18.5.1.4: Avg is defined in terms
 * of Sum and Count. Avg({}) = 0/0 = 0. However, when ALL
 * input values produce type errors, the aggregate returns
 * NULL (unbound result). Same logic as SUM.
 */
Datum rdf_fdw_avg_finalfunc(PG_FUNCTION_ARGS)
{
	RdfnodeAggState *aggstate;

	/* 
	 * If called with NULL aggstate (empty set or all-NULL
	 * inputs), return SQL NULL to match SPARQL 1.1 semantics
	 * for unbound results. */
	if (PG_ARGISNULL(0))
		PG_RETURN_NULL();

	/* Extract state pointer */
	aggstate = (RdfnodeAggState *)PG_GETARG_POINTER(0);

	/* If state pointer is NULL, treat as empty and return NULL */
	if (aggstate == NULL)
		PG_RETURN_NULL();

	/* If we saw input values but none were numeric, return NULL */
	if (aggstate->has_input && aggstate->numeric_value == NULL)
		PG_RETURN_NULL();

	/* If no input was recorded, return NULL (empty group) */
	if (!aggstate->has_input)
		PG_RETURN_NULL();

	return avg_rdfnode_finalfunc(fcinfo);
}

/*
 * rdf_fdw_min_sfunc
 * -----------------
 * Wrapper for SPARQL MIN aggregate transition function.
 * Handles PostgreSQL aggregate context validation before
 * delegating.
 */
Datum rdf_fdw_min_sfunc(PG_FUNCTION_ARGS)
{
	MemoryContext aggcontext;

	elog(DEBUG1, "%s called", __func__);

	/* Verify we're being called as an aggregate */
	if (!AggCheckCallContext(fcinfo, &aggcontext))
		ereport(ERROR,
				(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
				 errmsg("min_rdfnode_sfunc called in non-aggregate context")));

	/* 
	 * Delegate to the actual implementation in
	 * min_rdfnode_sfunc()
	 */
	return min_rdfnode_sfunc(fcinfo);
}

/*
 * rdf_fdw_min_finalfunc
 * ---------------------
 * Wrapper for SPARQL MIN aggregate final function.
 * Returns NULL when all input values are NULL or for
 * empty result sets.
 *
 * Per SPARQL 1.1 Section 18.5.1.5, MIN returns unbound
 * (SQL NULL) when there are no values to select from.
 */
Datum rdf_fdw_min_finalfunc(PG_FUNCTION_ARGS)
{
	elog(DEBUG1, "%s called", __func__);

	/* NULL state means only NULL values were found */
	if (PG_ARGISNULL(0))
		PG_RETURN_NULL();

	/* 
	 * Delegate to the actual implementation in
	 * min_rdfnode_finalfunc()
	 */
	return min_rdfnode_finalfunc(fcinfo);
}

/*
 * rdf_fdw_max_sfunc
 * -----------------
 * Wrapper for SPARQL MAX aggregate transition function.
 * Handles PostgreSQL aggregate context validation before
 * delegating.
 */
Datum rdf_fdw_max_sfunc(PG_FUNCTION_ARGS)
{
	MemoryContext aggcontext;

	elog(DEBUG1, "%s called", __func__);

	/* Verify we're being called as an aggregate */
	if (!AggCheckCallContext(fcinfo, &aggcontext))
		ereport(ERROR,
				(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
				 errmsg("max_rdfnode_sfunc called in non-aggregate context")));

	/* 
	 * Delegate to the actual implementation in
	 * max_rdfnode_sfunc()
	 */
	return max_rdfnode_sfunc(fcinfo);
}

/*
 * rdf_fdw_max_finalfunc
 * ---------------------
 * Wrapper for SPARQL MAX aggregate final function.
 * Returns NULL when all input values are NULL or for
 * empty result sets.
 *
 * Per SPARQL 1.1 Section 18.5.1.6, MAX returns unbound
 * (SQL NULL) when there are no values to select from.
 */
Datum rdf_fdw_max_finalfunc(PG_FUNCTION_ARGS)
{
	elog(DEBUG1, "%s called", __func__);

	/* NULL state means only NULL values were found */
	if (PG_ARGISNULL(0))
		PG_RETURN_NULL();

	/* 
	 * Delegate to the actual implementation in
	 * max_rdfnode_finalfunc()
	 */
	return max_rdfnode_finalfunc(fcinfo);
}

/*
 * rdf_fdw_sample_sfunc
 * --------------------
 * Wrapper for SPARQL SAMPLE aggregate transition
 * function.Handles PostgreSQL aggregate context
 * validation before delegating.
 */
Datum rdf_fdw_sample_sfunc(PG_FUNCTION_ARGS)
{
	MemoryContext aggcontext;

	elog(DEBUG1, "%s called", __func__);

	/* Verify we're being called as an aggregate */
	if (!AggCheckCallContext(fcinfo, &aggcontext))
		ereport(ERROR,
				(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
				 errmsg("sample_rdfnode_sfunc called in non-aggregate context")));

	/* 
	 * Delegate to the actual implementation in
	 * sample_rdfnode_sfunc()
	 */
	return sample_rdfnode_sfunc(fcinfo);
}

/*
 * rdf_fdw_sample_finalfunc
 * ------------------------
 * Wrapper for SPARQL SAMPLE aggregate final function.
 * Returns NULL when all input values are NULL or for
 * empty result sets.
 *
 * Per SPARQL 1.1 Section 18.5.1.8, SAMPLE returns unbound
 * (SQL NULL) when there are no non-NULL values in the input.
 */
Datum rdf_fdw_sample_finalfunc(PG_FUNCTION_ARGS)
{
	elog(DEBUG1, "%s called", __func__);

	/* NULL state means only NULL values were found */
	if (PG_ARGISNULL(0))
		PG_RETURN_NULL();

	/* 
	 * Delegate to the actual implementation in
	 * sample_rdfnode_finalfunc()
	 */
	return sample_rdfnode_finalfunc(fcinfo);
}

/*
 * rdf_fdw_group_concat_sfunc
 * ---------------------------
 * Wrapper for SPARQL GROUP_CONCAT aggregate state
 * transition function. Handles PostgreSQL aggregate
 * context validation before delegating.
 */
Datum rdf_fdw_group_concat_sfunc(PG_FUNCTION_ARGS)
{
	MemoryContext aggcontext;

	elog(DEBUG1, "%s called", __func__);

	/* Verify we're being called as an aggregate */
	if (!AggCheckCallContext(fcinfo, &aggcontext))
		ereport(ERROR,
				(errcode(ERRCODE_INVALID_PARAMETER_VALUE),
				 errmsg("group_concat_rdfnode_sfunc called in non-aggregate context")));

	/* 
	 * Delegate to the actual implementation in
	 * group_concat_sfunc()
	 */
	return group_concat_sfunc(fcinfo);
}

/*
 * rdf_fdw_group_concat_finalfunc
 * -----------------------------
 * Wrapper for SPARQL GROUP_CONCAT aggregate final function. Returns empty
 * string when called with NULL aggstate (empty result set).
 *
 * Per SPARQL 1.1 Section 18.5.1.7, GROUP_CONCAT of an empty set should
 * produce an empty string, not NULL. This differs from PostgreSQL's
 * string_agg which returns NULL for empty sets.
 */
Datum rdf_fdw_group_concat_finalfunc(PG_FUNCTION_ARGS)
{
	elog(DEBUG1, "%s called", __func__);

	/* 
	 * NULL state means empty result set - return empty
	 * string per SPARQL spec
	 */
	if (PG_ARGISNULL(0))
		PG_RETURN_TEXT_P(cstring_to_text(""));

	/* 
	 * Delegate to the actual implementation in
	 * group_concat_finalfunc()
	 */
	return group_concat_finalfunc(fcinfo);
}
