OSPP 2024: Add xml functions (IvorySQL#687)

* Mapping issue IvorySQL#695
Add xml functions

* Add xml functions

* Update ora_xml_functions.c

* Delete contrib/ivorysql_ora/ivorysql_ora--1.0.sql

* Add test

* Update ora_gram.y

* update test

* update test

* update

* update

* Update for OSPP 2024

* Update ora_xml_functions.out

* Update ora_xml_functions.c

* Update code

---------

Co-authored-by: Wen Yi <wen-yi@qq.com>

Author: Iam-WenYi

contrib/ivorysql_ora/expected/ora_xml_functions.out

@@ -793,6 +793,21 @@ SELECT insertchildxmlafter(data, 'soapenv:Envelope/soapenv:Body/web:BBB','typ:FF
  </soapenv:Envelope>
 (1 row)
 
+--
+-- xmlisvalid
+--
+SELECT xmlisvalid(XMLType('<a/>'));
+ xmlisvalid 
+------------
+          1
+(1 row)
+
+SELECT xmlisvalid(XMLType('<a>'));
+ xmlisvalid 
+------------
+          0
+(1 row)
+
 drop table inaf;
 drop table xmltest;
 drop table xmlnstest;

contrib/ivorysql_ora/sql/ora_xml_functions.sql

@@ -254,6 +254,14 @@ SELECT insertchildxmlafter(XMLType('<a><b>100</b><b>200</b></a>'), '/a/b[1]', 'b
 
 SELECT insertchildxmlafter(data, 'soapenv:Envelope/soapenv:Body/web:BBB','typ:FFF', XMLType('<typ:IVY xmlns:typ="http://www.def.com">Ivory</typ:IVY>'), 'xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:typ="http://www.def.com" xmlns:web="http://www.abc.com"') from xmlnstest where id = 1;
 
+--
+-- xmlisvalid
+--
+
+SELECT xmlisvalid(XMLType('<a/>'));
+
+SELECT xmlisvalid(XMLType('<a>'));
+
 drop table inaf;
 drop table xmltest;
 drop table xmlnstest;

contrib/ivorysql_ora/src/xml_functions/ora_xml_functions.c

@@ -363,6 +363,7 @@ PG_FUNCTION_INFO_V1(ivy_insertchildxmlbefore);
 PG_FUNCTION_INFO_V1(ivy_insertchildxmlbefore2);
 PG_FUNCTION_INFO_V1(ivy_insertchildxmlafter);
 PG_FUNCTION_INFO_V1(ivy_insertchildxmlafter2);
+PG_FUNCTION_INFO_V1(ivy_xmlisvalid);
 /*
  * ----------------------------------------------------------------------------
  *	Helper Function definition
@@ -2372,3 +2373,37 @@ updatexml(List *args)
 	return NULL;
 #endif
 }
+
+Datum ivy_xmlisvalid(PG_FUNCTION_ARGS)
+{
+#ifdef USE_LIBXML
+	if (fcinfo->args[0].isnull)
+	{
+		PG_RETURN_UINT32(1);
+	}
+	else
+	{
+		text *data = PG_GETARG_TEXT_PP(0);
+		char *datastr = VARDATA(data);
+		int32 len = VARSIZE(data) - VARHDRSZ;
+		xmlDocPtr doc = NULL;
+		if (len <= 0) /* Avoid crash */
+		{
+			PG_RETURN_BOOL(1);
+		}
+		doc = xmlReadMemory((const char *)datastr, len, NULL, NULL, XML_PARSE_NOBLANKS);
+		if (doc)
+		{
+			xmlFreeDoc(doc);
+			PG_RETURN_UINT32(1);
+		}
+		else
+		{
+			PG_RETURN_UINT32(0);
+		}
+	}
+#else
+	NO_XML_SUPPORT();
+	return NULL;
+#endif
+}

contrib/ivorysql_ora/src/xml_functions/xml_functions--1.0.sql

@@ -165,3 +165,11 @@ CREATE FUNCTION sys.INSERTCHILDXMLAFTER(sys.xmltype, text, text, sys.xmltype, te
 RETURNS sys.xmltype
 AS 'MODULE_PATHNAME','ivy_insertchildxmlafter2'
 LANGUAGE C IMMUTABLE;
+
+--
+-- XMLISVALID
+--
+CREATE OR REPLACE FUNCTION sys.XMLISVALID(sys.xmltype)
+RETURNS INTEGER
+AS 'MODULE_PATHNAME','ivy_xmlisvalid'
+LANGUAGE C IMMUTABLE;

src/backend/oracle_parser/ora_gram.y

@@ -17868,6 +17868,22 @@ func_expr_common_subexpr:
 				{
 					$$ = makeXmlExpr(IS_XMLELEMENT, $4, $6, $8, @1);
 				}
+			| XMLELEMENT '(' ColLabel ')'
+				{
+					$$ = makeXmlExpr(IS_XMLELEMENT, $3, NIL, NIL, @1);
+				}
+			| XMLELEMENT '(' ColLabel ',' xml_attributes ')'
+				{
+					$$ = makeXmlExpr(IS_XMLELEMENT, $3, $5, NIL, @1);
+				}
+			| XMLELEMENT '(' ColLabel ',' expr_list ')'
+				{
+					$$ = makeXmlExpr(IS_XMLELEMENT, $3, NIL, $5, @1);
+				}
+			| XMLELEMENT '(' ColLabel ',' xml_attributes ',' expr_list ')'
+				{
+					$$ = makeXmlExpr(IS_XMLELEMENT, $3, $5, $7, @1);
+				}
 			| XMLEXISTS '(' c_expr xmlexists_argument ')'
 				{
 					/* xmlexists(A PASSING [BY REF] B [BY REF]) is

src/oracle_test/regress/expected/xml.out

@@ -224,6 +224,29 @@ SELECT xmlelement(name foo, xmlattributes('<>&"''' as funny, xml 'b<a/>r' as fun
  <foo funny="&lt;&gt;&amp;&quot;'" funnier="b&lt;a/&gt;r"/>
 (1 row)
 
+SELECT xmlelement(foo, xmlattributes(true as bar));
+    xmlelement     
+-------------------
+ <foo bar="true"/>
+(1 row)
+
+SELECT xmlelement(foo, xmlattributes('2009-04-09 00:24:37'::timestamp as bar));
+               xmlelement                
+-----------------------------------------
+ <foo bar="2009-04-09 00:24:37.000000"/>
+(1 row)
+
+SELECT xmlelement(foo, xmlattributes('infinity'::timestamp as bar));
+ERROR:  invalid value "infi" for "YYYY"
+LINE 1: SELECT xmlelement(foo, xmlattributes('infinity'::timestamp a...
+                                             ^
+DETAIL:  Value must be an integer.
+SELECT xmlelement(foo, xmlattributes('<>&"''' as funny, xml 'b<a/>r' as funnier));
+                         xmlelement                         
+------------------------------------------------------------
+ <foo funny="&lt;&gt;&amp;&quot;'" funnier="b&lt;a/&gt;r"/>
+(1 row)
+
 SELECT xmlparse(content '');
  xmlparse 
 ----------

src/oracle_test/regress/sql/xml.sql

@@ -67,6 +67,10 @@ SELECT xmlelement(name foo, xmlattributes('2009-04-09 00:24:37'::timestamp as ba
 SELECT xmlelement(name foo, xmlattributes('infinity'::timestamp as bar));
 SELECT xmlelement(name foo, xmlattributes('<>&"''' as funny, xml 'b<a/>r' as funnier));
 
+SELECT xmlelement(foo, xmlattributes(true as bar));
+SELECT xmlelement(foo, xmlattributes('2009-04-09 00:24:37'::timestamp as bar));
+SELECT xmlelement(foo, xmlattributes('infinity'::timestamp as bar));
+SELECT xmlelement(foo, xmlattributes('<>&"''' as funny, xml 'b<a/>r' as funnier));
 
 SELECT xmlparse(content '');
 SELECT xmlparse(content '  ');