From 0296783ff4b7682b2c49b2aa85470d0046c02e74 Mon Sep 17 00:00:00 2001 From: Jim Jones Date: Wed, 17 Jun 2026 07:52:48 +0200 Subject: [PATCH v23] Add XMLCast function (SQL/XML X025) This patch introduces support for the XMLCast function, as specified in SQL/XML:2023 (ISO/IEC 9075-14:2023), Subclause 6.7 "". It enables standards-compliant conversion between SQL data types and XML, following the lexical rules defined by the W3C XML Schema Part 2. XMLCast provides an alternative to CAST when converting SQL values into XML content, ensuring the output uses standard XML Schema lexical forms. For example, timestamp and interval values are rendered as xs:dateTime and xs:duration (e.g., "2024-01-01T12:00:00" or "P1Y2M"), conforming to ISO 8601 formats. Conversely, XMLCast also allows converting XML content back into SQL types (e.g., boolean, numeric, date/time), validating the input string according to XML Schema lexical forms. Supported casts include: * SQL -> XML: boolean, numeric, character, date/time, interval, binary * XML -> SQL: the inverse of the above, with lexical validation The BY REF and BY VALUE clauses are accepted for SQL/XML compatibility, but ignored. Author: Jim Jones Reviewed-by: Robert Haas Reviewed-by: Marcos Pegoraro Discussion: https://www.postgresql.org/message-id/flat/7b99d466-985f-4d27-8c93-9b98c6945ebb%40uni-muenster.de --- doc/src/sgml/datatype.sgml | 94 +++- doc/src/sgml/func/func-xml.sgml | 7 +- src/backend/catalog/sql_features.txt | 2 +- src/backend/executor/execExprInterp.c | 22 +- src/backend/nodes/nodeFuncs.c | 38 +- src/backend/parser/gram.y | 22 +- src/backend/parser/parse_expr.c | 94 ++++ src/backend/parser/parse_target.c | 7 + src/backend/utils/adt/numeric.c | 11 + src/backend/utils/adt/ruleutils.c | 11 +- src/backend/utils/adt/xml.c | 243 ++++++++- src/include/nodes/parsenodes.h | 8 + src/include/nodes/primnodes.h | 4 + src/include/parser/kwlist.h | 1 + src/include/utils/numeric.h | 1 + src/include/utils/xml.h | 2 + src/test/regress/expected/xml.out | 686 ++++++++++++++++++++++++++ src/test/regress/sql/xml.sql | 319 ++++++++++++ src/tools/pgindent/typedefs.list | 1 + 19 files changed, 1547 insertions(+), 26 deletions(-) diff --git a/doc/src/sgml/datatype.sgml b/doc/src/sgml/datatype.sgml index d8d91678e86..47519b171d7 100644 --- a/doc/src/sgml/datatype.sgml +++ b/doc/src/sgml/datatype.sgml @@ -4506,14 +4506,100 @@ XMLPARSE ( { DOCUMENT | CONTENT } value) XMLPARSE (DOCUMENT 'Manual...') XMLPARSE (CONTENT 'abcbarfoo') ]]> - While this is the only way to convert character strings into XML - values according to the SQL standard, the PostgreSQL-specific - syntaxes: + + Another option for converting values to or from xml is the xmlcast function,xmlcast + which is designed to cast SQL data types into xml, and vice versa, in a standards-compliant way. + +XMLCAST ( expression AS type [ BY REF | BY VALUE ] ) + + Similar to the SQL function CAST, this function converts an expression + into the specified type. It is primarily used for converting between SQL values + and xml values in a standards-compliant way. + + Unlike CAST, which may coerce SQL values into text or XML without enforcing a specific + lexical representation, xmlcast ensures that the conversion produces or expects a + standard XML Schema lexical form appropriate for the target type. For example, an interval + value is rendered as P1Y2M (xs:duration), and a timestamp as + 2023-05-19T14:30:00 (xs:dateTime). Similarly, when converting from XML to SQL types, + xmlcast validates that the input string conforms to the lexical format required by the + corresponding SQL type. + + The function xmlcast follows these rules: + + + + + Either expression or type must be of type xml. + + + + + Casting is supported between xml and character, + numeric, date/time, + boolean and binary data types. + + + + + Similar to the function xmltext, expression + values containing XML predefined entities will be escaped (see examples below). + + + + + Values of type date, time with time zone, timestamp with time zone, + and interval are converted to their corresponding XML Schema types: xs:date, + xs:time, xs:dateTime, and xs:duration, respectively. + + + + + The BY REF and BY VALUE clauses + are accepted but ignored, as discussed in + . + + + + + Examples: +'::text AS xml); + xmlcast +--------------------- + <foo&bar> +(1 row) + +SELECT xmlcast('<foo&bar>'::xml AS text); + xmlcast +----------- + +(1 row) + +SELECT xmlcast('2024-05-19 14:30:00'::timestamp AS xml); + xmlcast +---------------------- + 2024-05-19T14:30:00 +(1 row) + +SELECT xmlcast('P1Y2M3W4DT5H6M7S'::xml AS interval); + xmlcast +-------------------------------- + 1 year 2 mons 25 days 05:06:07 +(1 row) + +SELECT xmlcast('1 year 2 months 3 weeks 4 days 5 hours 6 minutes 7 seconds'::interval AS xml); + xmlcast +----------------- + P1Y2M25DT5H6M7S +(1 row) +]]> + + Alternatively, it is also possible to convert character strings into XML using PostgreSQL-specific cast syntaxes: bar' 'bar'::xml ]]> - can also be used. + diff --git a/doc/src/sgml/func/func-xml.sgml b/doc/src/sgml/func/func-xml.sgml index 511bc90852a..4da07985fe0 100644 --- a/doc/src/sgml/func/func-xml.sgml +++ b/doc/src/sgml/func/func-xml.sgml @@ -10,9 +10,10 @@ The functions and function-like expressions described in this section operate on values of type xml. See for information about the xml - type. The function-like expressions xmlparse - and xmlserialize for converting to and from - type xml are documented there, not in this section. + type. The function-like expressions xmlparse, + xmlcast, and xmlserialize + for converting to and from type xml are documented + there, not in this section. diff --git a/src/backend/catalog/sql_features.txt b/src/backend/catalog/sql_features.txt index 626054cbcef..24f6c0ff146 100644 --- a/src/backend/catalog/sql_features.txt +++ b/src/backend/catalog/sql_features.txt @@ -724,7 +724,7 @@ X014 Attributes of XML type YES X015 Fields of XML type NO X016 Persistent XML values YES X020 XMLConcat YES -X025 XMLCast NO +X025 XMLCast YES X030 XMLDocument NO X031 XMLElement YES X032 XMLForest YES diff --git a/src/backend/executor/execExprInterp.c b/src/backend/executor/execExprInterp.c index 0634af964a9..bf87c2468a4 100644 --- a/src/backend/executor/execExprInterp.c +++ b/src/backend/executor/execExprInterp.c @@ -70,6 +70,7 @@ #include "utils/array.h" #include "utils/builtins.h" #include "utils/date.h" +#include "utils/datetime.h" #include "utils/datum.h" #include "utils/expandedrecord.h" #include "utils/json.h" @@ -4719,11 +4720,26 @@ ExecEvalXmlExpr(ExprState *state, ExprEvalStep *op) *op->resnull = false; } break; + case IS_XMLCAST: + { + Datum *argvalue = op->d.xmlexpr.argvalue; + bool *argnull = op->d.xmlexpr.argnull; - default: - elog(ERROR, "unrecognized XML operation"); + Assert(list_length(xexpr->args) == 1); + + if (argnull[0]) + return; + + *op->resvalue = exec_xmlcast(argvalue[0], + xexpr->type, + xexpr->targetType); + *op->resnull = false; + } break; - } + default: + elog(ERROR, "unrecognized XML operation"); + break; + } } /* diff --git a/src/backend/nodes/nodeFuncs.c b/src/backend/nodes/nodeFuncs.c index 2a2e00b372e..3441ae92883 100644 --- a/src/backend/nodes/nodeFuncs.c +++ b/src/backend/nodes/nodeFuncs.c @@ -220,6 +220,9 @@ exprType(const Node *expr) type = BOOLOID; else if (((const XmlExpr *) expr)->op == IS_XMLSERIALIZE) type = TEXTOID; + else if (((const XmlExpr *) expr)->op == IS_XMLCAST && + ((const XmlExpr *) expr)->targetType != XMLOID) + type = TEXTOID; else type = XMLOID; break; @@ -986,11 +989,13 @@ exprCollation(const Node *expr) case T_XmlExpr: /* - * XMLSERIALIZE returns text from non-collatable inputs, so its - * collation is always default. The other cases return boolean or - * XML, which are non-collatable. + * XMLSERIALIZE and XMLCAST (to a non-XML type) return text, so + * their collation is always default. The other cases return + * boolean or XML, which are non-collatable. */ - if (((const XmlExpr *) expr)->op == IS_XMLSERIALIZE) + if (((const XmlExpr *) expr)->op == IS_XMLSERIALIZE || + (((const XmlExpr *) expr)->op == IS_XMLCAST && + ((const XmlExpr *) expr)->targetType != XMLOID)) coll = DEFAULT_COLLATION_OID; else coll = InvalidOid; @@ -1260,9 +1265,15 @@ exprSetCollation(Node *expr, Oid collation) (collation == InvalidOid)); break; case T_XmlExpr: - Assert((((XmlExpr *) expr)->op == IS_XMLSERIALIZE) ? - (collation == DEFAULT_COLLATION_OID) : - (collation == InvalidOid)); + { + const XmlExpr *xexpr = (const XmlExpr *) expr; + + if (xexpr->op == IS_XMLSERIALIZE || + (xexpr->op == IS_XMLCAST && xexpr->targetType != XMLOID)) + Assert(collation == DEFAULT_COLLATION_OID); + else + Assert(collation == InvalidOid); + } break; case T_JsonValueExpr: exprSetCollation((Node *) ((JsonValueExpr *) expr)->formatted_expr, @@ -1754,6 +1765,9 @@ exprLocation(const Node *expr) case T_FunctionParameter: loc = ((const FunctionParameter *) expr)->location; break; + case T_XmlCast: + loc = ((const XmlCast *) expr)->location; + break; case T_XmlSerialize: /* XMLSERIALIZE keyword should always be the first thing */ loc = ((const XmlSerialize *) expr)->location; @@ -4583,6 +4597,16 @@ raw_expression_tree_walker_impl(Node *node, return true; } break; + case T_XmlCast: + { + XmlCast *xc = (XmlCast *) node; + + if (WALK(xc->expr)) + return true; + if (WALK(xc->targetType)) + return true; + } + break; case T_CollateClause: return WALK(((CollateClause *) node)->arg); case T_SortBy: diff --git a/src/backend/parser/gram.y b/src/backend/parser/gram.y index ff4e1388c55..aedd91ea7d0 100644 --- a/src/backend/parser/gram.y +++ b/src/backend/parser/gram.y @@ -833,7 +833,7 @@ static Node *makeRecursiveViewSelect(char *relname, List *aliases, Node *query); WAIT WHEN WHERE WHITESPACE_P WINDOW WITH WITHIN WITHOUT WORK WRAPPER WRITE - XML_P XMLATTRIBUTES XMLCONCAT XMLELEMENT XMLEXISTS XMLFOREST XMLNAMESPACES + XML_P XMLATTRIBUTES XMLCAST XMLCONCAT XMLELEMENT XMLEXISTS XMLFOREST XMLNAMESPACES XMLPARSE XMLPI XMLROOT XMLSERIALIZE XMLTABLE YEAR_P YES_P @@ -16938,6 +16938,24 @@ func_expr_common_subexpr: v->location = @1; $$ = (Node *) v; } + | XMLCAST '(' a_expr AS Typename ')' + { + XmlCast *n = makeNode(XmlCast); + + n->expr = $3; + n->targetType = $5; + n->location = @1; + $$ = (Node *) n; + } + | XMLCAST '(' a_expr AS Typename xml_passing_mech ')' + { + XmlCast *n = makeNode(XmlCast); + + n->expr = $3; + n->targetType = $5; + n->location = @1; + $$ = (Node *) n; + } | XMLCONCAT '(' expr_list ')' { $$ = makeXmlExpr(IS_XMLCONCAT, NULL, NIL, $3, @1); @@ -19234,6 +19252,7 @@ col_name_keyword: | VALUES | VARCHAR | XMLATTRIBUTES + | XMLCAST | XMLCONCAT | XMLELEMENT | XMLEXISTS @@ -19837,6 +19856,7 @@ bare_label_keyword: | WRITE | XML_P | XMLATTRIBUTES + | XMLCAST | XMLCONCAT | XMLELEMENT | XMLEXISTS diff --git a/src/backend/parser/parse_expr.c b/src/backend/parser/parse_expr.c index 9adc9d4c0f6..9d048414564 100644 --- a/src/backend/parser/parse_expr.c +++ b/src/backend/parser/parse_expr.c @@ -42,6 +42,18 @@ #include "utils/typcache.h" #include "utils/xml.h" +/* + * Determines whether a type category is allowed in XMLCAST conversions, + * either as a source (SQL -> XML) or target (XML -> SQL) type, per + * SQL/XML:2023 (ISO/IEC 9075-14:2023), Subclause 6.7 + * "", General Rules, item 3.d.ii: + */ +#define type_is_xmlcast_supported(x) ((x) == TYPCATEGORY_NUMERIC \ + || (x) == TYPCATEGORY_STRING || (x) == TYPCATEGORY_DATETIME \ + || (x) == TYPCATEGORY_BOOLEAN || (x) == TYPCATEGORY_UNKNOWN \ + || (x) == TYPCATEGORY_TIMESPAN) + + /* GUC parameters */ bool Transform_null_equals = false; @@ -69,6 +81,7 @@ static Node *transformMinMaxExpr(ParseState *pstate, MinMaxExpr *m); static Node *transformSQLValueFunction(ParseState *pstate, SQLValueFunction *svf); static Node *transformXmlExpr(ParseState *pstate, XmlExpr *x); +static Node *transformXmlCast(ParseState *pstate, XmlCast *xc); static Node *transformXmlSerialize(ParseState *pstate, XmlSerialize *xs); static Node *transformBooleanTest(ParseState *pstate, BooleanTest *b); static Node *transformCurrentOfExpr(ParseState *pstate, CurrentOfExpr *cexpr); @@ -277,6 +290,10 @@ transformExprRecurse(ParseState *pstate, Node *expr) (SQLValueFunction *) expr); break; + case T_XmlCast: + result = transformXmlCast(pstate, (XmlCast *) expr); + break; + case T_XmlExpr: result = transformXmlExpr(pstate, (XmlExpr *) expr); break; @@ -2498,6 +2515,10 @@ transformXmlExpr(ParseState *pstate, XmlExpr *x) newe = coerce_to_specific_type(pstate, newe, INT4OID, "XMLROOT"); break; + case IS_XMLCAST: + /* not handled here */ + Assert(false); + break; case IS_XMLSERIALIZE: /* not handled here */ Assert(false); @@ -2514,6 +2535,79 @@ transformXmlExpr(ParseState *pstate, XmlExpr *x) return (Node *) newx; } +static Node * +transformXmlCast(ParseState *pstate, XmlCast *xc) +{ + Node *result; + Node *expr; + XmlExpr *xexpr; + int32 targetTypmod; + Oid targetType; + Oid inputType; + char inputTypcategory; + char targetTypcategory; + bool inputTypispreferred; + bool targetTypispreferred; + + /* Transform the input expression */ + expr = transformExprRecurse(pstate, xc->expr); + inputType = exprType(expr); + get_type_category_preferred(inputType, &inputTypcategory, &inputTypispreferred); + + typenameTypeIdAndMod(pstate, xc->targetType, &targetType, &targetTypmod); + get_type_category_preferred(targetType, &targetTypcategory, &targetTypispreferred); + + /* + * Ensure that either the cast operand or the data type is an XML, + * and check if the data types are supported. + */ + if ((inputType != XMLOID && targetType != XMLOID) || + (!type_is_xmlcast_supported(inputTypcategory) && inputType != XMLOID && inputType != BYTEAOID) || + (!type_is_xmlcast_supported(targetTypcategory) && targetType != XMLOID && targetType != BYTEAOID)) + ereport(ERROR, + (errcode(ERRCODE_CANNOT_COERCE), + errmsg("cannot cast type %s to %s", + format_type_be(inputType), format_type_be(targetType)), + parser_errposition(pstate, xc->location))); + + /* + * It is not possible to cast some supported data types directly to XML, + * so we first handle them as text and later on return them as XML. + */ + if ((inputTypcategory == TYPCATEGORY_NUMERIC && inputType != FLOAT4OID && + inputType != FLOAT8OID && inputType != NUMERICOID) || inputType == TIMEOID || + inputType == TIMETZOID || inputType == UNKNOWNOID || inputType == NAMEOID) + inputType = TEXTOID; + + xexpr = makeNode(XmlExpr); + xexpr->op = IS_XMLCAST; + xexpr->location = xc->location; + xexpr->type = inputType; + xexpr->targetType = targetType; + xexpr->targetTypmod = targetTypmod; + xexpr->name = "xmlcast"; + xexpr->args = list_make1(coerce_to_specific_type(pstate, + expr, + inputType, + "XMLCAST")); + + result = coerce_to_target_type(pstate, (Node *) xexpr, + targetType == XMLOID ? XMLOID : TEXTOID, + targetType, targetTypmod, + COERCION_EXPLICIT, + COERCE_EXPLICIT_CAST, + -1); + + if (result == NULL) + ereport(ERROR, + (errcode(ERRCODE_CANNOT_COERCE), + errmsg("cannot cast XMLCAST result to %s", + format_type_be(targetType)), + parser_errposition(pstate, xexpr->location))); + + return result; +} + static Node * transformXmlSerialize(ParseState *pstate, XmlSerialize *xs) { diff --git a/src/backend/parser/parse_target.c b/src/backend/parser/parse_target.c index 6a862d5a4f9..16550402dd5 100644 --- a/src/backend/parser/parse_target.c +++ b/src/backend/parser/parse_target.c @@ -1962,6 +1962,9 @@ FigureColnameInternal(Node *node, char **name) /* make SQL/XML functions act like a regular function */ switch (((XmlExpr *) node)->op) { + case IS_XMLCAST: + *name = "xmlcast"; + return 2; case IS_XMLCONCAT: *name = "xmlconcat"; return 2; @@ -1988,6 +1991,10 @@ FigureColnameInternal(Node *node, char **name) break; } break; + case T_XmlCast: + /* make XMLCAST act like a regular function */ + *name = "xmlcast"; + return 2; case T_XmlSerialize: /* make XMLSERIALIZE act like a regular function */ *name = "xmlserialize"; diff --git a/src/backend/utils/adt/numeric.c b/src/backend/utils/adt/numeric.c index cb23dfe9b95..83eecf92f8f 100644 --- a/src/backend/utils/adt/numeric.c +++ b/src/backend/utils/adt/numeric.c @@ -847,6 +847,17 @@ numeric_is_inf(Numeric num) return NUMERIC_IS_INF(num); } +/* + * numeric_is_positive_inf() - + * + * Is Numeric value positive infinity? + */ +bool +numeric_is_positive_inf(Numeric num) +{ + return NUMERIC_IS_PINF(num); +} + /* * numeric_is_integral() - * diff --git a/src/backend/utils/adt/ruleutils.c b/src/backend/utils/adt/ruleutils.c index 88de5c0481c..65bb094070c 100644 --- a/src/backend/utils/adt/ruleutils.c +++ b/src/backend/utils/adt/ruleutils.c @@ -10671,6 +10671,9 @@ get_rule_expr(Node *node, deparse_context *context, case IS_XMLSERIALIZE: appendStringInfoString(buf, "XMLSERIALIZE("); break; + case IS_XMLCAST: + appendStringInfoString(buf, "XMLCAST("); + break; case IS_DOCUMENT: break; } @@ -10681,7 +10684,7 @@ get_rule_expr(Node *node, deparse_context *context, else appendStringInfoString(buf, "CONTENT "); } - if (xexpr->name) + if (xexpr->name && xexpr->op != IS_XMLCAST) { appendStringInfo(buf, "NAME %s", quote_identifier(map_xml_name_to_sql_identifier(xexpr->name))); @@ -10717,6 +10720,7 @@ get_rule_expr(Node *node, deparse_context *context, appendStringInfoString(buf, ", "); switch (xexpr->op) { + case IS_XMLCAST: case IS_XMLCONCAT: case IS_XMLELEMENT: case IS_XMLFOREST: @@ -10794,6 +10798,11 @@ get_rule_expr(Node *node, deparse_context *context, appendStringInfoString(buf, " NO INDENT"); } + if (xexpr->op == IS_XMLCAST) + appendStringInfo(buf, " AS %s", + format_type_with_typemod(xexpr->targetType, + xexpr->targetTypmod)); + if (xexpr->op == IS_DOCUMENT) appendStringInfoString(buf, " IS DOCUMENT"); else diff --git a/src/backend/utils/adt/xml.c b/src/backend/utils/adt/xml.c index 0953ad2becb..99fb85f03ee 100644 --- a/src/backend/utils/adt/xml.c +++ b/src/backend/utils/adt/xml.c @@ -45,6 +45,8 @@ #include "postgres.h" +#include + #ifdef USE_LIBXML #include #include @@ -99,6 +101,7 @@ #include "utils/date.h" #include "utils/datetime.h" #include "utils/lsyscache.h" +#include "utils/numeric.h" #include "utils/rel.h" #include "utils/syscache.h" #include "utils/xml.h" @@ -1027,6 +1030,110 @@ xmlelement(XmlExpr *xexpr, #endif } +/* + * Execute an IS_XMLCAST expression. + * + * sourceType is the OID of the input value's type; targetType is the OID of + * the requested output type. Returns an xml Datum when targetType is XMLOID, + * or a text Datum otherwise. For non-text targets (e.g., integer, interval), + * the text result is fed into an outer implicit cast node that the parser + * inserted to complete the conversion to the final target type. + */ +Datum +exec_xmlcast(Datum value, Oid sourceType, Oid targetType) +{ +#ifdef USE_LIBXML + switch (targetType) + { + case XMLOID: + /* + * Certain SQL data types must be mapped to XML Schema types when + * casting to XML. These mappings are defined in SQL/XML:2023 + * (ISO/IEC 9075-14:2023), Subclause 6.7 "", + * Syntax Rules, item 15.e.i-v. The corresponding XML Schema lexical + * formats are specified in W3C XML Schema Part 2: Primitive Datatypes. + */ + if (sourceType == TIMESTAMPOID || sourceType == TIMESTAMPTZOID || + sourceType == DATEOID || sourceType == BYTEAOID || sourceType == BOOLOID || + sourceType == FLOAT4OID || sourceType == FLOAT8OID || sourceType == NUMERICOID) + { + char *strdt = map_sql_value_to_xml_value(value, sourceType, false); + text *mapped_value = cstring_to_text(strdt); + + pfree(strdt); + return PointerGetDatum(mapped_value); + } + else if (sourceType == INTERVALOID) + { + Interval *in = DatumGetIntervalP(value); + struct pg_itm tt, + *itm = &tt; + char buf[MAXDATELEN + 1]; + + /* + * Infinity has no representation in the XSD lexical space for + * xs:duration. + */ + if (INTERVAL_NOT_FINITE(in)) + ereport(ERROR, + (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE), + errmsg("interval out of range"), + errdetail("XML does not support infinite interval values."))); + + interval2itm(*in, itm); + EncodeInterval(itm, INTSTYLE_ISO_8601, buf); + + return PointerGetDatum(cstring_to_text(buf)); + } + /* no need to escape the result, as the origin is also an XML */ + else if (sourceType == XMLOID) + return PointerGetDatum(DatumGetXmlP(value)); + /* make sure that predefined XML entities are escaped */ + else + return PointerGetDatum(DatumGetXmlP(DirectFunctionCall1(xmltext, value))); + case TEXTOID: + case VARCHAROID: + case NAMEOID: + case BPCHAROID: + { + /* + * When casting from XML to a character string, unescape any + * predefined XML entities. + */ + char *str = text_to_cstring(DatumGetTextPP(value)); + char *unescaped = unescape_xml(str); + Datum res = PointerGetDatum(cstring_to_text(unescaped)); + + pfree(unescaped); + pfree(str); + return res; + } + + case INT2OID: + case INT4OID: + case INT8OID: + case NUMERICOID: + case FLOAT4OID: + case FLOAT8OID: + case BOOLOID: + case TIMESTAMPOID: + case TIMESTAMPTZOID: + case TIMEOID: + case TIMETZOID: + case DATEOID: + case BYTEAOID: + case INTERVALOID: + return PointerGetDatum(DatumGetTextP(value)); + + default: + elog(ERROR, "unsupported target data type for XMLCast"); + pg_unreachable(); + } +#else + NO_XML_SUPPORT(); + return (Datum)0; +#endif +} xmltype * xmlparse(text *data, XmlOptionType xmloption_arg, bool preserve_whitespace, Node *escontext) @@ -2578,9 +2685,9 @@ map_sql_value_to_xml_value(Datum value, Oid type, bool xml_escape_strings) { case BOOLOID: if (DatumGetBool(value)) - return "true"; + return pstrdup("true"); else - return "false"; + return pstrdup("false"); case DATEOID: { @@ -2589,7 +2696,11 @@ map_sql_value_to_xml_value(Datum value, Oid type, bool xml_escape_strings) char buf[MAXDATELEN + 1]; date = DatumGetDateADT(value); - /* XSD doesn't support infinite values */ + + /* + * Infinity has no representation in the XSD lexical + * space for xs:date. + */ if (DATE_NOT_FINITE(date)) ereport(ERROR, (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE), @@ -2611,7 +2722,10 @@ map_sql_value_to_xml_value(Datum value, Oid type, bool xml_escape_strings) timestamp = DatumGetTimestamp(value); - /* XSD doesn't support infinite values */ + /* + * Infinity has no representation in the XSD lexical + * space for xs:dateTime. + */ if (TIMESTAMP_NOT_FINITE(timestamp)) ereport(ERROR, (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE), @@ -2638,7 +2752,10 @@ map_sql_value_to_xml_value(Datum value, Oid type, bool xml_escape_strings) timestamp = DatumGetTimestamp(value); - /* XSD doesn't support infinite values */ + /* + * Infinity has no representation in the XSD lexical + * space for xs:dateTime. + */ if (TIMESTAMP_NOT_FINITE(timestamp)) ereport(ERROR, (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE), @@ -2710,8 +2827,60 @@ map_sql_value_to_xml_value(Datum value, Oid type, bool xml_escape_strings) } #endif /* USE_LIBXML */ - } + case FLOAT4OID: + /* + * Special handling for infinity values in floating-point and + * numeric types. The XML Schema specification requires that + * positive infinity be represented as "INF" and negative + * infinity as "-INF" in XML documents for float and double + * types. While decimal types in XML Schema do not support + * infinity, PostgreSQL's NUMERIC type can represent it, so + * we use the same representation for consistency. + * + * See: XML Schema Part 2: Datatypes Second Edition, sections + * 3.2.4 (float) and 3.2.5 (double). + */ + { + float4 val = DatumGetFloat4(value); + + if (isinf(val)) + { + if (val < 0) + return pstrdup("-INF"); + else + return pstrdup("INF"); + } + } + break; + + case FLOAT8OID: + { + float8 val = DatumGetFloat8(value); + + if (isinf(val)) + { + if (val < 0) + return pstrdup("-INF"); + else + return pstrdup("INF"); + } + } + break; + case NUMERICOID: + { + Numeric num = DatumGetNumeric(value); + + if (numeric_is_inf(num)) + { + if (numeric_is_positive_inf(num)) + return pstrdup("INF"); + else + return pstrdup("-INF"); + } + } + break; + } /* * otherwise, just use the type's native text representation */ @@ -2766,6 +2935,67 @@ escape_xml(const char *str) return buf.data; } +/* + * Unescape XML escaped characters. + * + * In order to keep it consistent with "escape_xml(const char*)", + * this function intentionally does not depend on libxml2. + */ +char * +unescape_xml(const char *str) +{ + StringInfoData buf; + size_t p = 0; + size_t len; + + if (!str) + return NULL; + + len = strlen(str); + + initStringInfo(&buf); + + while (p < len) + { + if (p + 4 <= len && strncmp(str + p, "<", 4) == 0) + { + appendStringInfoChar(&buf, '<'); + p += 4; + } + else if (p + 4 <= len && strncmp(str + p, ">", 4) == 0) + { + appendStringInfoChar(&buf, '>'); + p += 4; + } + else if (p + 5 <= len && strncmp(str + p, "&", 5) == 0) + { + appendStringInfoChar(&buf, '&'); + p += 5; + } + else if (p + 5 <= len && strncmp(str + p, " ", 5) == 0) + { + appendStringInfoChar(&buf, '\r'); + p += 5; + } + else if (p + 6 <= len && strncmp(str + p, """, 6) == 0) + { + appendStringInfoChar(&buf, '"'); + p += 6; + } + else if (p + 6 <= len && strncmp(str + p, " ", 6) == 0) + { + appendStringInfoChar(&buf, '\r'); + p += 6; + } + else + { + appendStringInfoChar(&buf, *(str + p)); + p++; + } + } + + return buf.data; +} static char * _SPI_strdup(const char *s) @@ -4356,6 +4586,7 @@ xml_xpathobjtoxmlarray(xmlXPathObjectPtr xpathobj, datum = PointerGetDatum(cstring_to_xmltype(result_str)); (void) accumArrayResult(astate, datum, false, XMLOID, CurrentMemoryContext); + pfree(result_str); return 1; } diff --git a/src/include/nodes/parsenodes.h b/src/include/nodes/parsenodes.h index 4133c404a6b..d3455c00740 100644 --- a/src/include/nodes/parsenodes.h +++ b/src/include/nodes/parsenodes.h @@ -896,6 +896,14 @@ typedef struct XmlSerialize ParseLoc location; /* token location, or -1 if unknown */ } XmlSerialize; +typedef struct XmlCast +{ + NodeTag type; + Node *expr; + TypeName *targetType; + ParseLoc location; /* token location, or -1 if unknown */ +} XmlCast; + /* Partitioning related definitions */ /* diff --git a/src/include/nodes/primnodes.h b/src/include/nodes/primnodes.h index bb05aeebee4..40890e509a8 100644 --- a/src/include/nodes/primnodes.h +++ b/src/include/nodes/primnodes.h @@ -1593,6 +1593,7 @@ typedef enum XmlExprOp IS_XMLROOT, /* XMLROOT(xml, version, standalone) */ IS_XMLSERIALIZE, /* XMLSERIALIZE(is_document, xmlval, indent) */ IS_DOCUMENT, /* xmlval IS DOCUMENT */ + IS_XMLCAST, /* XMLCAST(op AS datatype) */ } XmlExprOp; typedef enum XmlOptionType @@ -1621,6 +1622,9 @@ typedef struct XmlExpr /* target type/typmod for XMLSERIALIZE */ Oid type pg_node_attr(query_jumble_ignore); int32 typmod pg_node_attr(query_jumble_ignore); + /* target type/typmod for XMLCAST */ + Oid targetType; + int32 targetTypmod; /* token location, or -1 if unknown */ ParseLoc location; } XmlExpr; diff --git a/src/include/parser/kwlist.h b/src/include/parser/kwlist.h index 51ead54f015..95383e4e7e1 100644 --- a/src/include/parser/kwlist.h +++ b/src/include/parser/kwlist.h @@ -523,6 +523,7 @@ PG_KEYWORD("wrapper", WRAPPER, UNRESERVED_KEYWORD, BARE_LABEL) PG_KEYWORD("write", WRITE, UNRESERVED_KEYWORD, BARE_LABEL) PG_KEYWORD("xml", XML_P, UNRESERVED_KEYWORD, BARE_LABEL) PG_KEYWORD("xmlattributes", XMLATTRIBUTES, COL_NAME_KEYWORD, BARE_LABEL) +PG_KEYWORD("xmlcast", XMLCAST, COL_NAME_KEYWORD, BARE_LABEL) PG_KEYWORD("xmlconcat", XMLCONCAT, COL_NAME_KEYWORD, BARE_LABEL) PG_KEYWORD("xmlelement", XMLELEMENT, COL_NAME_KEYWORD, BARE_LABEL) PG_KEYWORD("xmlexists", XMLEXISTS, COL_NAME_KEYWORD, BARE_LABEL) diff --git a/src/include/utils/numeric.h b/src/include/utils/numeric.h index b1cf40ed9fd..cc03a47f91b 100644 --- a/src/include/utils/numeric.h +++ b/src/include/utils/numeric.h @@ -87,6 +87,7 @@ NumericGetDatum(Numeric X) */ extern bool numeric_is_nan(Numeric num); extern bool numeric_is_inf(Numeric num); +extern bool numeric_is_positive_inf(Numeric num); extern int32 numeric_maximum_size(int32 typmod); extern char *numeric_out_sci(Numeric num, int scale); extern char *numeric_normalize(Numeric num); diff --git a/src/include/utils/xml.h b/src/include/utils/xml.h index ca266f448d6..c2f6ce68aa6 100644 --- a/src/include/utils/xml.h +++ b/src/include/utils/xml.h @@ -79,7 +79,9 @@ extern xmltype *xmlroot(xmltype *data, text *version, int standalone); extern bool xml_is_document(xmltype *arg); extern text *xmltotext_with_options(xmltype *data, XmlOptionType xmloption_arg, bool indent); +extern Datum exec_xmlcast(Datum value, Oid sourceType, Oid targetType); extern char *escape_xml(const char *str); +extern char *unescape_xml(const char *str); extern char *map_sql_identifier_to_xml_name(const char *ident, bool fully_escaped, bool escape_period); extern char *map_xml_name_to_sql_identifier(const char *name); diff --git a/src/test/regress/expected/xml.out b/src/test/regress/expected/xml.out index fb3e0ec41b2..f29f2b8f40c 100644 --- a/src/test/regress/expected/xml.out +++ b/src/test/regress/expected/xml.out @@ -1891,3 +1891,689 @@ SELECT xmltext('x'|| '

73

'::xml || .42 || true || 'j'::char); x<P>73</P>0.42truej (1 row) +-- for xmlcast() tests +INSERT INTO xmltest + VALUES (42, +' + + P1Y2M3DT4H5M6S + 1 year 2 mons 3 days 4 hours 5 minutes 6 seconds + 2002-09-24 + 2002-09-24+06:00 + + 09:30:10Z + 09:30:10-06:00 + 09:30:10+06:00 + 2002-05-30T09:00:00 + 2002-05-30T09:30:10.5 + 2002-05-30T09:30:10Z + 2002-05-30T09:30:10-06:00 + 2002-05-30T09:30:10+06:00 + foo bar + foo bar + foo & <"bar"> + 42.7312345678910 + +42.7312345678910 + -42.7312345678910 + INF + -INF + NaN + 42 + +42 + -42 + 4273535420162021 + +4273535420162021 + -4273535420162021 + 42 + 73 + + '::xml +); +-- This prevents the xmlcast regression tests from failing if the system's timezone has been changed. +SET timezone TO 'America/Los_Angeles'; +-- xmlcast exceptions +\set VERBOSITY terse +SELECT xmlcast((xpath('//text1/text()', data))[1] AS text[]) FROM xmltest WHERE id = 42; +ERROR: cannot cast type xml to text[] at character 8 +SELECT xmlcast((xpath('//text1/integer1()', data))[1] AS int[]) FROM xmltest WHERE id = 42; +ERROR: cannot cast type xml to integer[] at character 8 +SELECT xmlcast(NULL AS text); +ERROR: cannot cast type unknown to text at character 8 +SELECT xmlcast('foo'::text AS varchar); +ERROR: cannot cast type text to character varying at character 8 +SELECT xmlcast(42 AS text); +ERROR: cannot cast type integer to text at character 8 +SELECT xmlcast(array['foo','bar'] AS xml); +ERROR: cannot cast type text[] to xml at character 8 +SELECT xmlcast('not-a-number'::xml AS integer); +ERROR: invalid input syntax for type integer: "not-a-number" +SELECT xmlcast('not-a-date'::xml AS date); +ERROR: invalid input syntax for type date: "not-a-date" +\set VERBOSITY default +-- xmlcast tests for "XML to non-XML" expressions +SELECT + xmlcast((xpath('//date1/text()', data))[1] AS date), pg_typeof(xmlcast((xpath('//date1/text()', data))[1] AS date)), + xmlcast((xpath('//date2/text()', data))[1] AS date), pg_typeof(xmlcast((xpath('//date2/text()', data))[1] AS date)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof +------------+-----------+------------+----------- + 09-24-2002 | date | 09-24-2002 | date +(1 row) + +SELECT + xmlcast((xpath('//period1/text()', data))[1] AS interval), pg_typeof(xmlcast((xpath('//period1/text()', data))[1] AS interval)), + xmlcast((xpath('//period2/text()', data))[1] AS interval), pg_typeof(xmlcast((xpath('//period2/text()', data))[1] AS interval)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof +----------------------------------------------+-----------+----------------------------------------------+----------- + @ 1 year 2 mons 3 days 4 hours 5 mins 6 secs | interval | @ 1 year 2 mons 3 days 4 hours 5 mins 6 secs | interval +(1 row) + +SELECT + xmlcast((xpath('//time/text()', data))[1] AS time), pg_typeof(xmlcast((xpath('//time/text()', data))[1] AS time)), + xmlcast((xpath('//time_tz1/text()', data))[1] AS time with time zone), pg_typeof(xmlcast((xpath('//time_tz1/text()', data))[1] AS time with time zone)), + xmlcast((xpath('//time_tz2/text()', data))[1] AS time with time zone), pg_typeof(xmlcast((xpath('//time_tz2/text()', data))[1] AS time with time zone)), + xmlcast((xpath('//time_tz3/text()', data))[1] AS time with time zone), pg_typeof(xmlcast((xpath('//time_tz3/text()', data))[1] AS time with time zone)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +------------+------------------------+-------------+---------------------+-------------+---------------------+-------------+--------------------- + 09:30:10.5 | time without time zone | 09:30:10+00 | time with time zone | 09:30:10-06 | time with time zone | 09:30:10+06 | time with time zone +(1 row) + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS text)), + xmlcast((xpath('//text2/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS text)), + xmlcast((xpath('//text3/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS text)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +---------+-----------+---------------------+-----------+---------------+----------- + foo bar | text | foo bar | text | foo & <"bar"> | text +(1 row) + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS varchar), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS varchar)), + xmlcast((xpath('//text2/text()', data))[1] AS varchar), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS varchar)), + xmlcast((xpath('//text3/text()', data))[1] AS varchar), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS varchar)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +---------+-------------------+---------------------+-------------------+---------------+------------------- + foo bar | character varying | foo bar | character varying | foo & <"bar"> | character varying +(1 row) + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS name), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS name)), + xmlcast((xpath('//text2/text()', data))[1] AS name), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS name)), + xmlcast((xpath('//text3/text()', data))[1] AS name), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS name)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +---------+-----------+---------------------+-----------+---------------+----------- + foo bar | name | foo bar | name | foo & <"bar"> | name +(1 row) + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS bpchar), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS bpchar)), + xmlcast((xpath('//text2/text()', data))[1] AS bpchar), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS bpchar)), + xmlcast((xpath('//text3/text()', data))[1] AS bpchar), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS bpchar)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +---------+-----------+---------------------+-----------+---------------+----------- + foo bar | character | foo bar | character | foo & <"bar"> | character +(1 row) + +SELECT + xmlcast((xpath('//decimal1/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal1/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal2/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal2/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal3/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal3/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal4/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal4/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal5/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal5/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal6/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal6/text()', data))[1] AS numeric)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +------------------+-----------+------------------+-----------+-------------------+-----------+----------+-----------+-----------+-----------+---------+----------- + 42.7312345678910 | numeric | 42.7312345678910 | numeric | -42.7312345678910 | numeric | Infinity | numeric | -Infinity | numeric | NaN | numeric +(1 row) + +SELECT + xmlcast((xpath('//decimal1/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal1/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal2/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal2/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal3/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal3/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal4/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal4/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal5/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal5/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal6/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal6/text()', data))[1] AS double precision)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +-----------------+------------------+-----------------+------------------+------------------+------------------+----------+------------------+-----------+------------------+---------+------------------ + 42.731234567891 | double precision | 42.731234567891 | double precision | -42.731234567891 | double precision | Infinity | double precision | -Infinity | double precision | NaN | double precision +(1 row) + +SELECT + xmlcast((xpath('//integer1/text()', data))[1] AS int), pg_typeof(xmlcast((xpath('//integer1/text()', data))[1] AS int)), + xmlcast((xpath('//integer2/text()', data))[1] AS int), pg_typeof(xmlcast((xpath('//integer2/text()', data))[1] AS int)), + xmlcast((xpath('//integer3/text()', data))[1] AS int), pg_typeof(xmlcast((xpath('//integer3/text()', data))[1] AS int)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +---------+-----------+---------+-----------+---------+----------- + 42 | integer | 42 | integer | -42 | integer +(1 row) + +SELECT + xmlcast((xpath('//long1/text()', data))[1] AS bigint), pg_typeof(xmlcast((xpath('//long1/text()', data))[1] AS bigint)), + xmlcast((xpath('//long2/text()', data))[1] AS bigint), pg_typeof(xmlcast((xpath('//long2/text()', data))[1] AS bigint)), + xmlcast((xpath('//long3/text()', data))[1] AS bigint), pg_typeof(xmlcast((xpath('//long3/text()', data))[1] AS bigint)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +------------------+-----------+------------------+-----------+-------------------+----------- + 4273535420162021 | bigint | 4273535420162021 | bigint | -4273535420162021 | bigint +(1 row) + +SELECT + xmlcast((xpath('//bool1/@att', data))[1] AS boolean), pg_typeof(xmlcast((xpath('//bool1/@att', data))[1] AS boolean)), + xmlcast((xpath('//bool2/@att', data))[1] AS boolean), pg_typeof(xmlcast((xpath('//bool1/@att', data))[1] AS boolean)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof +---------+-----------+---------+----------- + t | boolean | f | boolean +(1 row) + +SELECT xmlcast((xpath('//empty/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//empty/text()', data))[1] AS text)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof +---------+----------- + | text +(1 row) + +-- xmlcast tests for "XML to XML" expressions +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS xml), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS xml)), + xmlcast((xpath('//text2/text()', data))[1] AS xml), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS xml)), + xmlcast((xpath('//text3/text()', data))[1] AS xml), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS xml)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +---------+-----------+---------------------+-----------+-------------------------+----------- + foo bar | xml | foo bar | xml | foo & <"bar"> | xml +(1 row) + +SELECT + xmlcast((xpath('//timestamp1/text()', data))[1] AS timestamp), pg_typeof(xmlcast((xpath('//timestamp1/text()', data))[1] AS timestamp)), + xmlcast((xpath('//timestamp2/text()', data))[1] AS timestamp), pg_typeof(xmlcast((xpath('//timestamp2/text()', data))[1] AS timestamp)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof +--------------------------+-----------------------------+----------------------------+----------------------------- + Thu May 30 09:00:00 2002 | timestamp without time zone | Thu May 30 09:30:10.5 2002 | timestamp without time zone +(1 row) + +SELECT + xmlcast((xpath('//timestamp_tz1/text()', data))[1] AS timestamp with time zone), pg_typeof(xmlcast((xpath('//timestamp_tz1/text()', data))[1] AS timestamp with time zone)), + xmlcast((xpath('//timestamp_tz2/text()', data))[1] AS timestamp with time zone), pg_typeof(xmlcast((xpath('//timestamp_tz2/text()', data))[1] AS timestamp with time zone)), + xmlcast((xpath('//timestamp_tz3/text()', data))[1] AS timestamp with time zone), pg_typeof(xmlcast((xpath('//timestamp_tz3/text()', data))[1] AS timestamp with time zone)) +FROM xmltest WHERE id = 42; + xmlcast | pg_typeof | xmlcast | pg_typeof | xmlcast | pg_typeof +------------------------------+--------------------------+------------------------------+--------------------------+------------------------------+-------------------------- + Thu May 30 02:30:10 2002 PDT | timestamp with time zone | Thu May 30 08:30:10 2002 PDT | timestamp with time zone | Wed May 29 20:30:10 2002 PDT | timestamp with time zone +(1 row) + +-- xmlcast tests for "non-XML to XML" expressions +SELECT j, pg_typeof(j) FROM xmlcast(NULL AS xml) t(j); + j | pg_typeof +---+----------- + | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('foo' AS xml) t(j); + j | pg_typeof +-----+----------- + foo | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(''::text AS xml) t(j); + j | pg_typeof +---+----------- + | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(NULL::text AS xml) t(j); + j | pg_typeof +---+----------- + | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(''::xml AS text) t(j); + j | pg_typeof +---+----------- + | text +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(NULL::xml AS text) t(j); + j | pg_typeof +---+----------- + | text +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('foo & <"bar">'::text AS xml) t(j); + j | pg_typeof +-----------------------------------+----------- + foo & <"bar"> | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('foo & <"bar">'::varchar AS xml) t(j); + j | pg_typeof +-----------------------------------+----------- + foo & <"bar"> | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('foo & <"bar">'::name AS xml) t(j); + j | pg_typeof +-----------------------------------+----------- + foo & <"bar"> | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(xmltext(E'foo & <"bar">\r') AS text) t(j); + j | pg_typeof +-----------------+----------- + foo & <"bar">\r | text +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(xmlcast(E'foo & <"bar">\r' AS xml) AS text) t(j); + j | pg_typeof +-----------------+----------- + foo & <"bar">\r | text +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(to_date('29/05/2024','dd/mm/yyyy') AS xml) t(j); + j | pg_typeof +------------+----------- + 2024-05-29 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('2024-05-29 12:04:10.703585+02'::timestamp with time zone at time zone 'Europe/Berlin' AS xml) t(j); + j | pg_typeof +----------------------------+----------- + 2024-05-29T12:04:10.703585 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('2024-05-29 12:04:10.703585+02'::timestamp without time zone AS xml) t(j); + j | pg_typeof +----------------------------+----------- + 2024-05-29T12:04:10.703585 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('1 year 2 months 3 days 4 hours 5 minutes 6 seconds'::interval AS xml) t(j); + j | pg_typeof +----------------+----------- + P1Y2M3DT4H5M6S | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(42::smallint AS xml) t(j); + j | pg_typeof +----+----------- + 42 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(427353542 AS xml) t(j); + j | pg_typeof +-----------+----------- + 427353542 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(4273535420162021 AS xml) t(j); + j | pg_typeof +------------------+----------- + 4273535420162021 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(42.007312345678910 AS xml) t(j); + j | pg_typeof +--------------------+----------- + 42.007312345678910 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(42.007312345678910::double precision AS xml) t(j); + j | pg_typeof +-------------------+----------- + 42.00731234567891 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(42.0::real AS xml) t(j); + j | pg_typeof +----+----------- + 42 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::real AS xml) t(j); + j | pg_typeof +-----+----------- + INF | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::real AS xml) t(j); + j | pg_typeof +------+----------- + -INF | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('nan'::real AS xml) t(j); + j | pg_typeof +-----+----------- + NaN | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::double precision AS xml) t(j); + j | pg_typeof +-----+----------- + INF | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::double precision AS xml) t(j); + j | pg_typeof +------+----------- + -INF | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('nan'::double precision AS xml) t(j); + j | pg_typeof +-----+----------- + NaN | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::numeric AS xml) t(j); + j | pg_typeof +-----+----------- + INF | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::numeric AS xml) t(j); + j | pg_typeof +------+----------- + -INF | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('nan'::numeric AS xml) t(j); + j | pg_typeof +-----+----------- + NaN | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(true AS xml) t(j); + j | pg_typeof +------+----------- + true | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(false AS xml) t(j); + j | pg_typeof +-------+----------- + false | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(42 = 73 AS xml) t(j); + j | pg_typeof +-------+----------- + false | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast(42 <> 73 AS xml) t(j); + j | pg_typeof +------+----------- + true | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('11:11:11.5'::time AS xml) t(j); + j | pg_typeof +------------+----------- + 11:11:11.5 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('11:11:11.5+01'::time with time zone AS xml) t(j); + j | pg_typeof +---------------+----------- + 11:11:11.5+01 | xml +(1 row) + +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::interval AS xml) t(j); +ERROR: interval out of range +DETAIL: XML does not support infinite interval values. +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::interval AS xml) t(j); +ERROR: interval out of range +DETAIL: XML does not support infinite interval values. +-- Convert an XML string to bytea and back to xml +SELECT xmlcast(convert_from(xmlcast('<"foo&bar">'::xml AS bytea),'UTF8')::xml AS text); + xmlcast +------------- + <"foo&bar"> +(1 row) + +SET xmlbinary TO hex; +SELECT xmlcast(E'\\xDEADBEEF'::bytea AS xml); + xmlcast +---------- + DEADBEEF +(1 row) + +SET xmlbinary TO base64; +SELECT xmlcast(E'\\xDEADBEEF'::bytea AS xml); + xmlcast +---------- + 3q2+7w== +(1 row) + +-- The BY REF and BY VALUE clauses are accepted but ignored. +-- This checks if the results are indeed the same as without the clauses. +SELECT + xmlcast('foo' AS xml)::text = xmlcast('foo' AS xml BY REF)::text, + xmlcast('foo' AS xml)::text = xmlcast('foo' AS xml BY VALUE)::text, + xmlcast('foo'::xml AS text) = xmlcast('foo'::xml AS text BY REF), + xmlcast('foo'::xml AS text) = xmlcast('foo'::xml AS text BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +SELECT + xmlcast(42 AS xml)::text = xmlcast(42 AS xml BY REF)::text, + xmlcast(42 AS xml)::text = xmlcast(42 AS xml BY VALUE)::text, + xmlcast('42'::xml AS int) = xmlcast('42'::xml AS int BY REF), + xmlcast('42'::xml AS int) = xmlcast('42'::xml AS int BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +SELECT + xmlcast(42.73 AS xml)::text = xmlcast(42.73 AS xml BY REF)::text, + xmlcast(42.73 AS xml)::text = xmlcast(42.73 AS xml BY VALUE)::text, + xmlcast('42.73'::xml AS numeric) = xmlcast('42.73'::xml AS numeric BY REF), + xmlcast('42.73'::xml AS numeric) = xmlcast('42.73'::xml AS numeric BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +SELECT + xmlcast('2024-08-14'::date AS xml)::text = xmlcast('2024-08-14'::date AS xml BY REF)::text, + xmlcast('2024-08-14'::date AS xml)::text = xmlcast('2024-08-14'::date AS xml BY VALUE)::text, + xmlcast('2024-08-14'::xml AS date) = xmlcast('2024-08-14'::xml AS date BY REF), + xmlcast('2024-08-14'::xml AS date) = xmlcast('2024-08-14'::xml AS date BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +SELECT + xmlcast('12:30:45'::time without time zone AS xml)::text = xmlcast('12:30:45'::time without time zone AS xml BY REF)::text, + xmlcast('12:30:45'::time without time zone AS xml)::text = xmlcast('12:30:45'::time without time zone AS xml BY VALUE)::text, + xmlcast('12:30:45'::xml AS time without time zone) = xmlcast('12:30:45'::xml AS time without time zone BY REF), + xmlcast('12:30:45'::xml AS time without time zone) = xmlcast('12:30:45'::xml AS time without time zone BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +SELECT + xmlcast('09:30:10+06:00'::time with time zone AS xml)::text = xmlcast('09:30:10+06:00'::time with time zone AS xml BY REF)::text, + xmlcast('09:30:10+06:00'::time with time zone AS xml)::text = xmlcast('09:30:10+06:00'::time with time zone AS xml BY VALUE)::text, + xmlcast('09:30:10+06:00'::xml AS time with time zone) = xmlcast('09:30:10+06:00'::xml AS time with time zone BY REF), + xmlcast('09:30:10+06:00'::xml AS time with time zone) = xmlcast('09:30:10+06:00'::xml AS time with time zone BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +SELECT + xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml)::text = xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml BY REF)::text, + xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml)::text = xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml BY VALUE)::text, + xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone) = xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone BY REF), + xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone) = xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +SELECT + xmlcast('1 year 2 mons'::interval AS xml)::text = xmlcast('1 year 2 mons'::interval AS xml BY REF)::text, + xmlcast('1 year 2 mons'::interval AS xml)::text = xmlcast('1 year 2 mons'::interval AS xml BY VALUE)::text, + xmlcast('1 year 2 mons'::xml AS interval) = xmlcast('1 year 2 mons'::xml AS interval BY REF), + xmlcast('1 year 2 mons'::xml AS interval) = xmlcast('1 year 2 mons'::xml AS interval BY VALUE); + ?column? | ?column? | ?column? | ?column? +----------+----------+----------+---------- + t | t | t | t +(1 row) + +-- tests for xmlcast() with explicit length modifiers +SELECT xmlcast('hello world'::xml AS varchar(5)); + xmlcast +--------- + hello +(1 row) + +SELECT xmlcast('42.7312'::xml AS numeric(5,2)); + xmlcast +--------- + 42.73 +(1 row) + +CREATE VIEW view_xmlcast_to_xml AS +SELECT + xmlcast(NULL AS xml) AS c1, + xmlcast('foo' AS xml) AS c2, + xmlcast(''::text AS xml) AS c3, + xmlcast(NULL::text AS xml) AS c4, + xmlcast(''::xml AS text) AS c5, + xmlcast(NULL::xml AS text) c6, + xmlcast('foo & <"bar">'::text AS xml) AS c7, + xmlcast('foo & <"bar">'::varchar AS xml) AS c8, + xmlcast('foo & <"bar">'::name AS xml) AS c9, + xmlcast(xmltext(E'foo & <"bar">\r') AS text) AS c10, + xmlcast(xmlcast(E'foo & <"bar">\r' AS xml) AS text) AS c11, + xmlcast(to_date('29/05/2024','dd/mm/yyyy') AS xml) AS c12, + xmlcast('2024-05-29 12:04:10.703585+02'::timestamp with time zone at time zone 'Europe/Berlin' AS xml) AS c13, + xmlcast('2024-05-29 12:04:10.703585+02'::timestamp without time zone AS xml) AS c14, + xmlcast('1 year 2 months 3 days 4 hours 5 minutes 6 seconds'::interval AS xml) AS c15, + xmlcast(427353542 AS xml) AS c16, + xmlcast(4273535420162021 AS xml) AS c17, + xmlcast(42.007312345678910 AS xml) AS c18, + xmlcast(42.007312345678910::double precision AS xml) AS c19, + xmlcast(true AS xml) AS c20, + xmlcast(false AS xml) AS c21, + xmlcast(42 = 73 AS xml) AS c22, + xmlcast(42 <> 73 AS xml) AS c23, + xmlcast('11:11:11.5'::time AS xml) AS c24, + xmlcast('11:11:11.5+01'::time with time zone AS xml) AS c25; +\sv view_xmlcast_to_xml +CREATE OR REPLACE VIEW public.view_xmlcast_to_xml AS + SELECT XMLCAST(NULL::text AS xml) AS c1, + XMLCAST('foo'::text AS xml) AS c2, + XMLCAST(''::text AS xml) AS c3, + XMLCAST(NULL::text AS xml) AS c4, + XMLCAST(''::xml AS text) AS c5, + XMLCAST(NULL::xml AS text) AS c6, + XMLCAST('foo & <"bar">'::text AS xml) AS c7, + XMLCAST('foo & <"bar">'::character varying AS xml) AS c8, + XMLCAST('foo & <"bar">'::name::text AS xml) AS c9, + XMLCAST(xmltext('foo & <"bar"> '::text) AS text) AS c10, + XMLCAST(XMLCAST('foo & <"bar"> '::text AS xml) AS text) AS c11, + XMLCAST(to_date('29/05/2024'::text, 'dd/mm/yyyy'::text) AS xml) AS c12, + XMLCAST(('Wed May 29 03:04:10.703585 2024 PDT'::timestamp with time zone AT TIME ZONE 'Europe/Berlin'::text) AS xml) AS c13, + XMLCAST('Wed May 29 12:04:10.703585 2024'::timestamp without time zone AS xml) AS c14, + XMLCAST('@ 1 year 2 mons 3 days 4 hours 5 mins 6 secs'::interval AS xml) AS c15, + XMLCAST(427353542::text AS xml) AS c16, + XMLCAST('4273535420162021'::bigint::text AS xml) AS c17, + XMLCAST(42.007312345678910 AS xml) AS c18, + XMLCAST(42.007312345678910::double precision AS xml) AS c19, + XMLCAST(true AS xml) AS c20, + XMLCAST(false AS xml) AS c21, + XMLCAST(42 = 73 AS xml) AS c22, + XMLCAST(42 <> 73 AS xml) AS c23, + XMLCAST('11:11:11.5'::time without time zone::text AS xml) AS c24, + XMLCAST('11:11:11.5+01'::time with time zone::text AS xml) AS c25 +SELECT * FROM view_xmlcast_to_xml; + c1 | c2 | c3 | c4 | c5 | c6 | c7 | c8 | c9 | c10 | c11 | c12 | c13 | c14 | c15 | c16 | c17 | c18 | c19 | c20 | c21 | c22 | c23 | c24 | c25 +----+-----+----+----+----+----+-----------------------------------+-----------------------------------+-----------------------------------+-----------------+-----------------+------------+----------------------------+----------------------------+----------------+-----------+------------------+--------------------+-------------------+------+-------+-------+------+------------+--------------- + | foo | | | | | foo & <"bar"> | foo & <"bar"> | foo & <"bar"> | foo & <"bar">\r | foo & <"bar">\r | 2024-05-29 | 2024-05-29T12:04:10.703585 | 2024-05-29T12:04:10.703585 | P1Y2M3DT4H5M6S | 427353542 | 4273535420162021 | 42.007312345678910 | 42.00731234567891 | true | false | false | true | 11:11:11.5 | 11:11:11.5+01 +(1 row) + +CREATE VIEW view_xmlcast_from_xml AS +SELECT + xmlcast('P1Y2M3DT4H5M6S'::xml AS interval) AS c1, + xmlcast('1 year 2 mons 3 days 4 hours 5 minutes 6 seconds'::xml AS interval) AS c2, + xmlcast('2002-09-24'::xml AS date) AS c3, + xmlcast('2002-09-24+06:00'::xml AS date) AS c4, + xmlcast('09:30:10Z'::xml AS time with time zone) AS c5, + xmlcast('09:30:10-06:00'::xml AS time with time zone) AS c6, + xmlcast('09:30:10+06:00'::xml AS time with time zone) AS c7, + xmlcast('2002-05-30T09:30:10Z'::xml AS timestamp with time zone) at time zone 'Europe/Berlin' AS c8, + xmlcast('2002-05-30T09:30:10-06:00'::xml AS timestamp with time zone) at time zone 'Europe/Berlin' AS c9, + xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone) at time zone 'Europe/Berlin' AS c10, + xmlcast('foo bar'::xml AS text) AS c11, + xmlcast(' foo bar '::xml AS varchar) AS c12, + xmlcast('foo & <"bar">'::xml AS text) AS c13, + xmlcast('42.7312345678910'::xml AS numeric) AS c14, + xmlcast('+42.7312345678910'::xml AS numeric) AS c15, + xmlcast('-42.7312345678910'::xml AS numeric) AS c16, + xmlcast('42'::xml AS integer) AS c17, + xmlcast('+42'::xml AS integer) AS c18, + xmlcast('-42'::xml AS integer) AS c19, + xmlcast('4273535420162021'::xml AS bigint) AS c20, + xmlcast('+4273535420162021'::xml AS bigint) AS c21, + xmlcast('-4273535420162021'::xml AS bigint) AS c22, + xmlcast('true'::xml AS boolean) AS c23, + xmlcast('false'::xml AS boolean) AS c24, + xmlcast(''::xml AS character varying) AS c25, + xmlcast(NULL::xml AS character varying) AS c26, + xmlcast('hello world'::xml AS varchar(5)) AS c27, + xmlcast('42.7312'::xml AS numeric(5,2)) AS c28; +\sv view_xmlcast_from_xml +CREATE OR REPLACE VIEW public.view_xmlcast_from_xml AS + SELECT XMLCAST('P1Y2M3DT4H5M6S'::xml AS interval)::interval AS c1, + XMLCAST('1 year 2 mons 3 days 4 hours 5 minutes 6 seconds'::xml AS interval)::interval AS c2, + XMLCAST('2002-09-24'::xml AS date)::date AS c3, + XMLCAST('2002-09-24+06:00'::xml AS date)::date AS c4, + XMLCAST('09:30:10Z'::xml AS time with time zone)::time with time zone AS c5, + XMLCAST('09:30:10-06:00'::xml AS time with time zone)::time with time zone AS c6, + XMLCAST('09:30:10+06:00'::xml AS time with time zone)::time with time zone AS c7, + (XMLCAST('2002-05-30T09:30:10Z'::xml AS timestamp with time zone)::timestamp with time zone AT TIME ZONE 'Europe/Berlin'::text) AS c8, + (XMLCAST('2002-05-30T09:30:10-06:00'::xml AS timestamp with time zone)::timestamp with time zone AT TIME ZONE 'Europe/Berlin'::text) AS c9, + (XMLCAST('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone)::timestamp with time zone AT TIME ZONE 'Europe/Berlin'::text) AS c10, + XMLCAST('foo bar'::xml AS text) AS c11, + XMLCAST(' foo bar '::xml AS character varying)::character varying AS c12, + XMLCAST('foo & <"bar">'::xml AS text) AS c13, + XMLCAST('42.7312345678910'::xml AS numeric)::numeric AS c14, + XMLCAST('+42.7312345678910'::xml AS numeric)::numeric AS c15, + XMLCAST('-42.7312345678910'::xml AS numeric)::numeric AS c16, + XMLCAST('42'::xml AS integer)::integer AS c17, + XMLCAST('+42'::xml AS integer)::integer AS c18, + XMLCAST('-42'::xml AS integer)::integer AS c19, + XMLCAST('4273535420162021'::xml AS bigint)::bigint AS c20, + XMLCAST('+4273535420162021'::xml AS bigint)::bigint AS c21, + XMLCAST('-4273535420162021'::xml AS bigint)::bigint AS c22, + XMLCAST('true'::xml AS boolean)::boolean AS c23, + XMLCAST('false'::xml AS boolean)::boolean AS c24, + XMLCAST(''::xml AS character varying)::character varying AS c25, + XMLCAST(NULL::xml AS character varying)::character varying AS c26, + XMLCAST('hello world'::xml AS character varying(5))::character varying(5) AS c27, + XMLCAST('42.7312'::xml AS numeric(5,2))::numeric(5,2) AS c28 +SELECT * FROM view_xmlcast_from_xml; + c1 | c2 | c3 | c4 | c5 | c6 | c7 | c8 | c9 | c10 | c11 | c12 | c13 | c14 | c15 | c16 | c17 | c18 | c19 | c20 | c21 | c22 | c23 | c24 | c25 | c26 | c27 | c28 +----------------------------------------------+----------------------------------------------+------------+------------+-------------+-------------+-------------+--------------------------+--------------------------+--------------------------+---------+---------------------+---------------+------------------+------------------+-------------------+-----+-----+-----+------------------+------------------+-------------------+-----+-----+-----+-----+-------+------- + @ 1 year 2 mons 3 days 4 hours 5 mins 6 secs | @ 1 year 2 mons 3 days 4 hours 5 mins 6 secs | 09-24-2002 | 09-24-2002 | 09:30:10+00 | 09:30:10-06 | 09:30:10+06 | Thu May 30 11:30:10 2002 | Thu May 30 17:30:10 2002 | Thu May 30 05:30:10 2002 | foo bar | foo bar | foo & <"bar"> | 42.7312345678910 | 42.7312345678910 | -42.7312345678910 | 42 | 42 | -42 | 4273535420162021 | 4273535420162021 | -4273535420162021 | t | f | | | hello | 42.73 +(1 row) + diff --git a/src/test/regress/sql/xml.sql b/src/test/regress/sql/xml.sql index aafd39433a6..61e6f280e50 100644 --- a/src/test/regress/sql/xml.sql +++ b/src/test/regress/sql/xml.sql @@ -685,3 +685,322 @@ SELECT xmltext(' '); SELECT xmltext('foo `$_-+?=*^%!|/\()[]{}'); SELECT xmltext('foo & <"bar">'); SELECT xmltext('x'|| '

73

'::xml || .42 || true || 'j'::char); + +-- for xmlcast() tests +INSERT INTO xmltest + VALUES (42, +' + + P1Y2M3DT4H5M6S + 1 year 2 mons 3 days 4 hours 5 minutes 6 seconds + 2002-09-24 + 2002-09-24+06:00 + + 09:30:10Z + 09:30:10-06:00 + 09:30:10+06:00 + 2002-05-30T09:00:00 + 2002-05-30T09:30:10.5 + 2002-05-30T09:30:10Z + 2002-05-30T09:30:10-06:00 + 2002-05-30T09:30:10+06:00 + foo bar + foo bar + foo & <"bar"> + 42.7312345678910 + +42.7312345678910 + -42.7312345678910 + INF + -INF + NaN + 42 + +42 + -42 + 4273535420162021 + +4273535420162021 + -4273535420162021 + 42 + 73 + + '::xml +); + +-- This prevents the xmlcast regression tests from failing if the system's timezone has been changed. +SET timezone TO 'America/Los_Angeles'; + +-- xmlcast exceptions +\set VERBOSITY terse +SELECT xmlcast((xpath('//text1/text()', data))[1] AS text[]) FROM xmltest WHERE id = 42; +SELECT xmlcast((xpath('//text1/integer1()', data))[1] AS int[]) FROM xmltest WHERE id = 42; +SELECT xmlcast(NULL AS text); +SELECT xmlcast('foo'::text AS varchar); +SELECT xmlcast(42 AS text); +SELECT xmlcast(array['foo','bar'] AS xml); +SELECT xmlcast('not-a-number'::xml AS integer); +SELECT xmlcast('not-a-date'::xml AS date); +\set VERBOSITY default + +-- xmlcast tests for "XML to non-XML" expressions +SELECT + xmlcast((xpath('//date1/text()', data))[1] AS date), pg_typeof(xmlcast((xpath('//date1/text()', data))[1] AS date)), + xmlcast((xpath('//date2/text()', data))[1] AS date), pg_typeof(xmlcast((xpath('//date2/text()', data))[1] AS date)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//period1/text()', data))[1] AS interval), pg_typeof(xmlcast((xpath('//period1/text()', data))[1] AS interval)), + xmlcast((xpath('//period2/text()', data))[1] AS interval), pg_typeof(xmlcast((xpath('//period2/text()', data))[1] AS interval)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//time/text()', data))[1] AS time), pg_typeof(xmlcast((xpath('//time/text()', data))[1] AS time)), + xmlcast((xpath('//time_tz1/text()', data))[1] AS time with time zone), pg_typeof(xmlcast((xpath('//time_tz1/text()', data))[1] AS time with time zone)), + xmlcast((xpath('//time_tz2/text()', data))[1] AS time with time zone), pg_typeof(xmlcast((xpath('//time_tz2/text()', data))[1] AS time with time zone)), + xmlcast((xpath('//time_tz3/text()', data))[1] AS time with time zone), pg_typeof(xmlcast((xpath('//time_tz3/text()', data))[1] AS time with time zone)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS text)), + xmlcast((xpath('//text2/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS text)), + xmlcast((xpath('//text3/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS text)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS varchar), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS varchar)), + xmlcast((xpath('//text2/text()', data))[1] AS varchar), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS varchar)), + xmlcast((xpath('//text3/text()', data))[1] AS varchar), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS varchar)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS name), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS name)), + xmlcast((xpath('//text2/text()', data))[1] AS name), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS name)), + xmlcast((xpath('//text3/text()', data))[1] AS name), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS name)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS bpchar), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS bpchar)), + xmlcast((xpath('//text2/text()', data))[1] AS bpchar), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS bpchar)), + xmlcast((xpath('//text3/text()', data))[1] AS bpchar), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS bpchar)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//decimal1/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal1/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal2/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal2/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal3/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal3/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal4/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal4/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal5/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal5/text()', data))[1] AS numeric)), + xmlcast((xpath('//decimal6/text()', data))[1] AS numeric), pg_typeof(xmlcast((xpath('//decimal6/text()', data))[1] AS numeric)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//decimal1/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal1/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal2/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal2/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal3/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal3/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal4/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal4/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal5/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal5/text()', data))[1] AS double precision)), + xmlcast((xpath('//decimal6/text()', data))[1] AS double precision), pg_typeof(xmlcast((xpath('//decimal6/text()', data))[1] AS double precision)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//integer1/text()', data))[1] AS int), pg_typeof(xmlcast((xpath('//integer1/text()', data))[1] AS int)), + xmlcast((xpath('//integer2/text()', data))[1] AS int), pg_typeof(xmlcast((xpath('//integer2/text()', data))[1] AS int)), + xmlcast((xpath('//integer3/text()', data))[1] AS int), pg_typeof(xmlcast((xpath('//integer3/text()', data))[1] AS int)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//long1/text()', data))[1] AS bigint), pg_typeof(xmlcast((xpath('//long1/text()', data))[1] AS bigint)), + xmlcast((xpath('//long2/text()', data))[1] AS bigint), pg_typeof(xmlcast((xpath('//long2/text()', data))[1] AS bigint)), + xmlcast((xpath('//long3/text()', data))[1] AS bigint), pg_typeof(xmlcast((xpath('//long3/text()', data))[1] AS bigint)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//bool1/@att', data))[1] AS boolean), pg_typeof(xmlcast((xpath('//bool1/@att', data))[1] AS boolean)), + xmlcast((xpath('//bool2/@att', data))[1] AS boolean), pg_typeof(xmlcast((xpath('//bool1/@att', data))[1] AS boolean)) +FROM xmltest WHERE id = 42; + +SELECT xmlcast((xpath('//empty/text()', data))[1] AS text), pg_typeof(xmlcast((xpath('//empty/text()', data))[1] AS text)) +FROM xmltest WHERE id = 42; + +-- xmlcast tests for "XML to XML" expressions +SELECT + xmlcast((xpath('//text1/text()', data))[1] AS xml), pg_typeof(xmlcast((xpath('//text1/text()', data))[1] AS xml)), + xmlcast((xpath('//text2/text()', data))[1] AS xml), pg_typeof(xmlcast((xpath('//text2/text()', data))[1] AS xml)), + xmlcast((xpath('//text3/text()', data))[1] AS xml), pg_typeof(xmlcast((xpath('//text3/text()', data))[1] AS xml)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//timestamp1/text()', data))[1] AS timestamp), pg_typeof(xmlcast((xpath('//timestamp1/text()', data))[1] AS timestamp)), + xmlcast((xpath('//timestamp2/text()', data))[1] AS timestamp), pg_typeof(xmlcast((xpath('//timestamp2/text()', data))[1] AS timestamp)) +FROM xmltest WHERE id = 42; + +SELECT + xmlcast((xpath('//timestamp_tz1/text()', data))[1] AS timestamp with time zone), pg_typeof(xmlcast((xpath('//timestamp_tz1/text()', data))[1] AS timestamp with time zone)), + xmlcast((xpath('//timestamp_tz2/text()', data))[1] AS timestamp with time zone), pg_typeof(xmlcast((xpath('//timestamp_tz2/text()', data))[1] AS timestamp with time zone)), + xmlcast((xpath('//timestamp_tz3/text()', data))[1] AS timestamp with time zone), pg_typeof(xmlcast((xpath('//timestamp_tz3/text()', data))[1] AS timestamp with time zone)) +FROM xmltest WHERE id = 42; + +-- xmlcast tests for "non-XML to XML" expressions +SELECT j, pg_typeof(j) FROM xmlcast(NULL AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('foo' AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(''::text AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(NULL::text AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(''::xml AS text) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(NULL::xml AS text) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('foo & <"bar">'::text AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('foo & <"bar">'::varchar AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('foo & <"bar">'::name AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(xmltext(E'foo & <"bar">\r') AS text) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(xmlcast(E'foo & <"bar">\r' AS xml) AS text) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(to_date('29/05/2024','dd/mm/yyyy') AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('2024-05-29 12:04:10.703585+02'::timestamp with time zone at time zone 'Europe/Berlin' AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('2024-05-29 12:04:10.703585+02'::timestamp without time zone AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('1 year 2 months 3 days 4 hours 5 minutes 6 seconds'::interval AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(42::smallint AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(427353542 AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(4273535420162021 AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(42.007312345678910 AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(42.007312345678910::double precision AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(42.0::real AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::real AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::real AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('nan'::real AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::double precision AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::double precision AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('nan'::double precision AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::numeric AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::numeric AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('nan'::numeric AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(true AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(false AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(42 = 73 AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast(42 <> 73 AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('11:11:11.5'::time AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('11:11:11.5+01'::time with time zone AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('infinity'::interval AS xml) t(j); +SELECT j, pg_typeof(j) FROM xmlcast('-infinity'::interval AS xml) t(j); + +-- Convert an XML string to bytea and back to xml +SELECT xmlcast(convert_from(xmlcast('<"foo&bar">'::xml AS bytea),'UTF8')::xml AS text); + +SET xmlbinary TO hex; +SELECT xmlcast(E'\\xDEADBEEF'::bytea AS xml); +SET xmlbinary TO base64; +SELECT xmlcast(E'\\xDEADBEEF'::bytea AS xml); + +-- The BY REF and BY VALUE clauses are accepted but ignored. +-- This checks if the results are indeed the same as without the clauses. +SELECT + xmlcast('foo' AS xml)::text = xmlcast('foo' AS xml BY REF)::text, + xmlcast('foo' AS xml)::text = xmlcast('foo' AS xml BY VALUE)::text, + xmlcast('foo'::xml AS text) = xmlcast('foo'::xml AS text BY REF), + xmlcast('foo'::xml AS text) = xmlcast('foo'::xml AS text BY VALUE); + +SELECT + xmlcast(42 AS xml)::text = xmlcast(42 AS xml BY REF)::text, + xmlcast(42 AS xml)::text = xmlcast(42 AS xml BY VALUE)::text, + xmlcast('42'::xml AS int) = xmlcast('42'::xml AS int BY REF), + xmlcast('42'::xml AS int) = xmlcast('42'::xml AS int BY VALUE); + +SELECT + xmlcast(42.73 AS xml)::text = xmlcast(42.73 AS xml BY REF)::text, + xmlcast(42.73 AS xml)::text = xmlcast(42.73 AS xml BY VALUE)::text, + xmlcast('42.73'::xml AS numeric) = xmlcast('42.73'::xml AS numeric BY REF), + xmlcast('42.73'::xml AS numeric) = xmlcast('42.73'::xml AS numeric BY VALUE); + +SELECT + xmlcast('2024-08-14'::date AS xml)::text = xmlcast('2024-08-14'::date AS xml BY REF)::text, + xmlcast('2024-08-14'::date AS xml)::text = xmlcast('2024-08-14'::date AS xml BY VALUE)::text, + xmlcast('2024-08-14'::xml AS date) = xmlcast('2024-08-14'::xml AS date BY REF), + xmlcast('2024-08-14'::xml AS date) = xmlcast('2024-08-14'::xml AS date BY VALUE); + +SELECT + xmlcast('12:30:45'::time without time zone AS xml)::text = xmlcast('12:30:45'::time without time zone AS xml BY REF)::text, + xmlcast('12:30:45'::time without time zone AS xml)::text = xmlcast('12:30:45'::time without time zone AS xml BY VALUE)::text, + xmlcast('12:30:45'::xml AS time without time zone) = xmlcast('12:30:45'::xml AS time without time zone BY REF), + xmlcast('12:30:45'::xml AS time without time zone) = xmlcast('12:30:45'::xml AS time without time zone BY VALUE); + +SELECT + xmlcast('09:30:10+06:00'::time with time zone AS xml)::text = xmlcast('09:30:10+06:00'::time with time zone AS xml BY REF)::text, + xmlcast('09:30:10+06:00'::time with time zone AS xml)::text = xmlcast('09:30:10+06:00'::time with time zone AS xml BY VALUE)::text, + xmlcast('09:30:10+06:00'::xml AS time with time zone) = xmlcast('09:30:10+06:00'::xml AS time with time zone BY REF), + xmlcast('09:30:10+06:00'::xml AS time with time zone) = xmlcast('09:30:10+06:00'::xml AS time with time zone BY VALUE); + +SELECT + xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml)::text = xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml BY REF)::text, + xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml)::text = xmlcast('2002-05-30 09:30:10+06:00'::timestamp with time zone AS xml BY VALUE)::text, + xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone) = xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone BY REF), + xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone) = xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone BY VALUE); + +SELECT + xmlcast('1 year 2 mons'::interval AS xml)::text = xmlcast('1 year 2 mons'::interval AS xml BY REF)::text, + xmlcast('1 year 2 mons'::interval AS xml)::text = xmlcast('1 year 2 mons'::interval AS xml BY VALUE)::text, + xmlcast('1 year 2 mons'::xml AS interval) = xmlcast('1 year 2 mons'::xml AS interval BY REF), + xmlcast('1 year 2 mons'::xml AS interval) = xmlcast('1 year 2 mons'::xml AS interval BY VALUE); + +-- tests for xmlcast() with explicit length modifiers +SELECT xmlcast('hello world'::xml AS varchar(5)); +SELECT xmlcast('42.7312'::xml AS numeric(5,2)); + +CREATE VIEW view_xmlcast_to_xml AS +SELECT + xmlcast(NULL AS xml) AS c1, + xmlcast('foo' AS xml) AS c2, + xmlcast(''::text AS xml) AS c3, + xmlcast(NULL::text AS xml) AS c4, + xmlcast(''::xml AS text) AS c5, + xmlcast(NULL::xml AS text) c6, + xmlcast('foo & <"bar">'::text AS xml) AS c7, + xmlcast('foo & <"bar">'::varchar AS xml) AS c8, + xmlcast('foo & <"bar">'::name AS xml) AS c9, + xmlcast(xmltext(E'foo & <"bar">\r') AS text) AS c10, + xmlcast(xmlcast(E'foo & <"bar">\r' AS xml) AS text) AS c11, + xmlcast(to_date('29/05/2024','dd/mm/yyyy') AS xml) AS c12, + xmlcast('2024-05-29 12:04:10.703585+02'::timestamp with time zone at time zone 'Europe/Berlin' AS xml) AS c13, + xmlcast('2024-05-29 12:04:10.703585+02'::timestamp without time zone AS xml) AS c14, + xmlcast('1 year 2 months 3 days 4 hours 5 minutes 6 seconds'::interval AS xml) AS c15, + xmlcast(427353542 AS xml) AS c16, + xmlcast(4273535420162021 AS xml) AS c17, + xmlcast(42.007312345678910 AS xml) AS c18, + xmlcast(42.007312345678910::double precision AS xml) AS c19, + xmlcast(true AS xml) AS c20, + xmlcast(false AS xml) AS c21, + xmlcast(42 = 73 AS xml) AS c22, + xmlcast(42 <> 73 AS xml) AS c23, + xmlcast('11:11:11.5'::time AS xml) AS c24, + xmlcast('11:11:11.5+01'::time with time zone AS xml) AS c25; + +\sv view_xmlcast_to_xml +SELECT * FROM view_xmlcast_to_xml; + +CREATE VIEW view_xmlcast_from_xml AS +SELECT + xmlcast('P1Y2M3DT4H5M6S'::xml AS interval) AS c1, + xmlcast('1 year 2 mons 3 days 4 hours 5 minutes 6 seconds'::xml AS interval) AS c2, + xmlcast('2002-09-24'::xml AS date) AS c3, + xmlcast('2002-09-24+06:00'::xml AS date) AS c4, + xmlcast('09:30:10Z'::xml AS time with time zone) AS c5, + xmlcast('09:30:10-06:00'::xml AS time with time zone) AS c6, + xmlcast('09:30:10+06:00'::xml AS time with time zone) AS c7, + xmlcast('2002-05-30T09:30:10Z'::xml AS timestamp with time zone) at time zone 'Europe/Berlin' AS c8, + xmlcast('2002-05-30T09:30:10-06:00'::xml AS timestamp with time zone) at time zone 'Europe/Berlin' AS c9, + xmlcast('2002-05-30T09:30:10+06:00'::xml AS timestamp with time zone) at time zone 'Europe/Berlin' AS c10, + xmlcast('foo bar'::xml AS text) AS c11, + xmlcast(' foo bar '::xml AS varchar) AS c12, + xmlcast('foo & <"bar">'::xml AS text) AS c13, + xmlcast('42.7312345678910'::xml AS numeric) AS c14, + xmlcast('+42.7312345678910'::xml AS numeric) AS c15, + xmlcast('-42.7312345678910'::xml AS numeric) AS c16, + xmlcast('42'::xml AS integer) AS c17, + xmlcast('+42'::xml AS integer) AS c18, + xmlcast('-42'::xml AS integer) AS c19, + xmlcast('4273535420162021'::xml AS bigint) AS c20, + xmlcast('+4273535420162021'::xml AS bigint) AS c21, + xmlcast('-4273535420162021'::xml AS bigint) AS c22, + xmlcast('true'::xml AS boolean) AS c23, + xmlcast('false'::xml AS boolean) AS c24, + xmlcast(''::xml AS character varying) AS c25, + xmlcast(NULL::xml AS character varying) AS c26, + xmlcast('hello world'::xml AS varchar(5)) AS c27, + xmlcast('42.7312'::xml AS numeric(5,2)) AS c28; + +\sv view_xmlcast_from_xml +SELECT * FROM view_xmlcast_from_xml; \ No newline at end of file diff --git a/src/tools/pgindent/typedefs.list b/src/tools/pgindent/typedefs.list index f9eb23e52c9..741ac12ce1b 100644 --- a/src/tools/pgindent/typedefs.list +++ b/src/tools/pgindent/typedefs.list @@ -3546,6 +3546,7 @@ XidBoundsViolation XidCacheStatus XidCommitStatus XidStatus +XmlCast XmlExpr XmlExprOp XmlOptionType -- 2.54.0